<!-#Sertakan file = dbconn.asp->
<%
fungsi readfile (nama file)
pada kesalahan resume berikutnya
err.clear
'Metode koreksi kesalahan di ASP
Const forreading = 2
Const create = false
Redup fso
Redup
Filepath redup
Redup thefile
Konten redup
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Atur fso = server.createObject (scripting.filesystemObject)
filepath = server.mappath (temp) ./folder disimpan dalam buku catatan
Jika err.number <> 0 lalu
Direktori respons.write tidak ada
respons.end
akhiri jika
'FileName = test.txt ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
TheFile = FilePath &/& FileName
Set Ts = fso.opentextFile (TheFile, 1)
lakukan sampai ts.atendofstream
Response.write (& ts.readline &)
response.write (<br>)
lingkaran
Atur ts = tidak ada
Atur fso = tidak ada
fungsi akhir
%>
<%
ID redup
nama file redup
ID = 6
Set RS = Server.CreateObject (ADODB.Recordset)
sql = pilih * dari yuan di mana id = & id
Rs.open SQL, CN, 1,1
FileName = RS (FileLoad)
%>
< % readfile (nama file) %>