<!-#Включите файл = dbconn.asp->
<%
функция readfile (имя файла)
при ошибке резюме следующим
err.clear
'Метод коррекции ошибок в ASP
Const forreding = 2
Const create = false
Dim FSO
Dim ts
Dim FilePath
Тусклый файл
Dim Content
'-------------------------------------------------------------------------------------------------------------------------
Установить fso = server.createObject (scripting.filesystemobject)
filePath = server.mappath (temp) ./folder, хранящийся в книге записей
Если err.number <> 0, тогда
Справочник response.write не существует
response.end
конец, если
'filename = test.txt ------------------ test.txt-это имя файла, которое вы читаете из базы данных
thefile = filepath &/& filename
Установите ts = fso.opentextfile (thefile, 1)
Делайте, пока Ts.atendofstream
Response.write (& ts.readline &)
response.write (<br>)
петля
Установить TS = ничего
Установить FSO = ничего
конечная функция
%>
<%
DIM ID
DIM FILENAME
id = 6
Установить rs = server.createObject (adodb.recordset)
SQL = SELECT * FROM YUAN, где ID = & ID
Rs.Open SQL, CN, 1,1
filename = rs (fileload)
%>
< % readfile (имя файла) %>