<!-#include file = dbconn.asp->
<%
Función ReadFile (nombre de archivo)
En el currículum de error siguiente
Err.Clear
'Un método de corrección de errores en ASP
Const prevención = 2
Const create = false
Dim FSO
Dim TS
Dim Filepath
Dim thego
Contenido atenuante
'-----------------------------------------------------------------------------------------------
Establecer fso = server.createObject (scripting.filesystemObject)
filepath = server.mappath (temp) ./folder almacenado en el libro de registros
Si err.number <> 0 entonces
El directorio de respuesta. Write no existe
respuesta.
final si
'FileName = test.txt ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
theFile = FilePath &/& FileName
Establecer ts = fso.opentextfile (thefile, 1)
hacer hasta ts.atendofstream
Response.write (& ts.Readline &)
Response.Write (<br>)
bucle
Establecer ts = nada
Establecer FSO = nada
función final
%>
<%
Dimidio
Nombre de archivo Dim
id = 6
Establecer rs = server.createObject (ADODB.RecordSet)
sql = select * de yuan donde id = & id
Rs.open SQL, CN, 1,1
FileName = RS (Fileload)
%>
< % readfile (nombre de archivo) %>