Für diejenigen, die FSO unter ASP nicht verwenden, verwenden Sie das adodb.stream-Objekt zum Speichern und Lesen von Dateien, um Maschinen zu vermeiden, die über einige virtuelle Hosts verfügen, die FSO nicht unterstützen. '***********************************
„Lesen Sie die Akte.“
'***********************************
Funktion LoadFromFile(ByVal File)
Dimmen Sie objStream
RText dimmen
RText = Array(0, )
Setze objStream = Server.CreateObject(ADODB.Stream)
Mit objStream
.Typ = 2
.Modus = 3
.Offen
.Charset = utf-8
.Position = objStream.Size
Bei Fehler Weiter fortsetzen
.LoadFromFile Server.MapPath(Datei)
Wenn Sie sich irren, dann
RText = Array(Err.Number, Err.Description)
LoadFromFile = RText
Fehler.Klar
Exit-Funktion
Ende wenn
RText = Array(0, .ReadText)
.Schließen
Ende mit
LoadFromFile = RText
Setze objStream = Nothing
Funktion beenden
'***********************************
'Datei speichern
'***********************************
Funktion SaveToFile(ByVal strBody, ByVal File)
Dimmen Sie objStream
RText dimmen
RText = Array(0, )
Setze objStream = Server.CreateObject(ADODB.Stream)
Mit objStream
.Typ = 2
.Offen
.Charset = utf-8
.Position = objStream.Size
.WriteText = strBody
Bei Fehler Weiter fortsetzen
.SaveToFile Server.MapPath(Datei), 2
Wenn Sie sich irren, dann
RText = Array(Err.Number, Err.Description)
SaveToFile = RText
Fehler.Klar
Exit-Funktion
Ende wenn
.Schließen
Ende mit
RText = Array(0, Datei erfolgreich gespeichert!)
SaveToFile = RText
Setze objStream = Nothing
Funktion beenden