<! - # Inclure file = dbConn.asp ->
<%
Fonction ReadFile (nom de fichier)
sur l'erreur reprendre ensuite
err.Clear
'Une méthode de correction d'erreur dans ASP
Const Forreading = 2
Const Create = false
DIM FSO
Ts
Dim Filepath
THE THE THEFILE
Contenu
'-----------------------------------------------------------------------------------------------------------------------------
Set fso = server.createObject (scripting.fileSystemObject)
filepath = server.mappath (temp) ./folder stocké dans le livre des enregistrements
Si err.number <> 0 alors
Le répertoire de réponse.Write n'existe pas
réponse.
terminer si
'filename = test.txt ------------------ Test.txt est le nom de fichier que vous lisez dans la base de données
thefile = filepath & / & nom de fichier
Set ts = fso.Opentextfile (thefile, 1)
faire jusqu'à t.atendofstream
Réponse.write (& ts.readline &)
réponse.write (<br>)
boucle
Définir TS = rien
Définir FSO = rien
fonction finale
%>
<%
id dim
nom de fichier DIM
id = 6
Set rs = server.createObject (adodb.recordSet)
sql = select * from yuan où id = & id
Rs.Open SQL, CN, 1,1
FileName = Rs (FileLoad)
%>
<% ReadFile (nom de fichier)%>