'Dateiinhalt gelesen.
Die Codekopie lautet wie folgt:
Functionloadfile (ByvalFile)
Dimobjstream
OnErrorresumeNext
SetObjstream = server.createObject ("adodb.stream")
Ifer.number = -2147221005Then
Response.write "<divalign = 'center'> Leider unterstützt Ihr Host adodb.stream nicht und Sie können dieses Programm nicht verwenden </div>."
Err.clear
Antwort.end
Endif
Ohne Bystream
.Type = 2
.Mode = 3
.Offen
.LoadfromFileServer.MAppath (Datei)
Ifr.number <> 0Then
Response.write "<divalign = 'center'> file <fontcolor = '#ff0000'>" & Datei & "</font> kann nicht geöffnet werden, bitte prüfen Sie, ob es existiert! </Font> </div>"
Err.clear
Antwort.end
Endif
.CharSet = "GB2312"
.Position = 2
LoadFile = .ReadText
.Schließen
Endwith
SetObjstream = nichts
Endfunktion
'Speichern Sie Inhalte zur Datei ein
Die Codekopie lautet wie folgt:
SubavetoFile (Byvalstrack, Byvalfile)
Dimobjstream
OnErrorresumeNext
SetObjstream = server.createObject ("adodb.stream")
Ifer.number = -2147221005Then
Response.write "<divalign = 'center'> Leider unterstützt Ihr Host adodb.stream nicht und Sie können dieses Programm nicht verwenden </div>."
Err.clear
Antwort.end
Endif
Ohne Bystream
.Type = 2
.Offen
.CharSet = "GB2312"
.Position = objstream.size
.WritETEXT = strkodo
.SavetoFileServer.Mappath (Datei), 2
.Schließen
Endwith
SetObjstream = nichts
Ende
Aufrufen Beispiel
Die Codekopie lautet wie folgt:
<%
WriteFile "aaa.txt", "www.vevb.com", "UTF-8"
Response.write readfile ("aaa.txt", "utf-8")
%>