<!-#include file = dbconn.asp->
<%
Funktion Readfile (Dateiname)
Bei der nächsten Fehleraufnahme als nächstes
err.clear
'Eine Methode zur Fehlerkorrektur in ASP
Const Forreading = 2
Const create = false
Dim fso
Dim Ts
Dimer Filepath
Dim der Datei
Schwacher Inhalt
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
filepath = server.mappath (tempat) ./Folder im Rekordbuch gespeichert
Wenn err.number <> 0 dann
Das Response.Write -Verzeichnis gibt es nicht
Antwort.end
Ende wenn
'Dateiname = test.txt ------------------ test.txt ist der Dateiname, den Sie aus der Datenbank gelesen haben
theFile = filepath &/& fileName
Setzen Sie ts = fso.opentextfile (TheFile, 1)
tun bis ts.atendofstream
Response.write (& ts.readline &)
response.write (<br>)
Schleife
Setzen Sie ts = nichts
Fso = nichts setzen
Endfunktion
%>
<%
Dim id
Dimer Filname
id = 6
Setzen Sie rs = server.createObject (adodb.Recordset)
SQL = SELECT * von Yuan wobei id = & id
Rs.open SQL, CN, 1,1
Dateiname = RS (Fileload)
%>
< % ReadFile (Dateiname) %>