«Contenu de fichier Lire.
La copie de code est la suivante:
FunctionLoadFile (ByValFile)
Dimobjstream
Onerrorresumenext
SetObjstream = server.createObject ("adodb.stream")
IFerr.number = -2147221005
Response.Write "<divalign = 'Center'> Malheureusement, votre hôte ne prend pas en charge Adodb.stream, et vous ne pouvez pas utiliser ce programme </div>"
Err.Clear
Réponse.
Endire
Sansbjstream
.Type = 2
.Mode = 3
.Ouvrir
.LoadFromFileServer.Mappath (Fichier)
IFerr.Number <> 0THEN
Response.Write "<divalign = 'Center'> Fichier <FontColor = '# FF0000'>" & File & "</font> Impossible de s'ouvrir, veuillez vérifier s'il existe! </font> </div>"
Err.Clear
Réponse.
Endire
.Charset = "GB2312"
.Position = 2
Loadfile = .readText
.Fermer
Fin
SetObjstream = rien
Finition de fin
'Contenu de stockage dans le fichier
La copie de code est la suivante:
Subsavetofile (byValStrody, byValfile)
Dimobjstream
Onerrorresumenext
SetObjstream = server.createObject ("adodb.stream")
IFerr.number = -2147221005
Response.Write "<divalign = 'Center'> Malheureusement, votre hôte ne prend pas en charge Adodb.stream, et vous ne pouvez pas utiliser ce programme </div>"
Err.Clear
Réponse.
Endire
Sansbjstream
.Type = 2
.Ouvrir
.Charset = "GB2312"
.Position = Objstream.Size
.WriteText = Strbody
.Savetofileserver.mappath (fichier), 2
.Fermer
Fin
SetObjstream = rien
Fin
Exemple d'appel
La copie de code est la suivante:
<%
WriteFile "aaa.txt", "www.vevb.com", "utf-8"
Réponse.write readFile ("aaa.txt", "utf-8")
%>