<!-#inclua arquivo = dbconn.asp->
<%
função readfile (nome do arquivo)
em erro de erro em seguida
err.clear
'Um método de correção de erro no ASP
Const forreading = 2
Const Create = false
Dim FSO
Dim ts
Dim filepath
Diminuir o arquivo
Conteúdo escuro
'-----------------------------------------------------------------------------------------------------------------------------------
Set fso = server.createObject (script.filesystemoBject)
filepath = server.mappath (temp) ./Folder armazenado no livro de registros
se err.number <> 0 então
O diretório de respostas.Write não existe
resposta.END
final se
'nome do arquivo = test.txt ---------------- Test.txt é o nome do arquivo que você leu no banco de dados
thefile = filepath &/& filename
Definir ts = fso.opentExtFile (thefile, 1)
faça até ts.tendofstream
Response.write (& ts.readline &)
Response.write (<br>)
laço
Defina ts = nada
Definir FSO = nada
Função final
%>
<%
Dim ID
Dim FileName
id = 6
Set rs = server.createObject (adodb.recordset)
sql = selecione * de yuan onde id = & id
Rs.Open SQL, CN, 1,1
nome do arquivo = RS (FileLoad)
%>
< % readfile (nome do arquivo) %>