Funktion:
Die Codekopie lautet wie folgt:
FunktionsaveFile (Daten, Recafilen)
setAstream = createObject ("adodb.stream") 'ASPServer.createObject ("adodb.stream")
FXT = MID (recFilen, Instrrev (recFilen, ")+1)
txt = false
IFFXT = "ASP" orfxt = "xml" orfxt = "Aspx" orfxt = "php" orfxt = "txt" orfxt = "jsp" Dann
txt = true
Endif
iftXTthen
AssTream.Type = 2'1BIN, 2TXT
anders
AssTream.Type = 1'1BIN, 2TXT
Endif
AssTream.mode = 3'AdModerad = 1
'admodiereadwrite = 3
'admoderecursive = 4194304
'admodeshardenynon = 16
'admodeshardenynenead = 4
'Admodeshardedenywrite = 8
'admodeshareexclusive = 12
'admodeUnnown = 0
'Admodewrite = 2
Asstream.open
'Astream.Charset = "GB2312"
'Astream.loadfromFile (recFilen)' ladendatei
'Assp = istrame.size
AssTream.position = 0'Set als ASSP beim Laden der Datei
'Astream.WritETEXTTMPSTR00,1
iftXTthen
Data = bytes2bstr (Daten)
AssTream.WritetextData, 1