fungsi:
Salinan kode adalah sebagai berikut:
FunctionsAveFile (Data, Recfilen)
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" lalu
txt = true
endif
iftxtthen
Asstream.type = 2'1bin, 2txt
kalau tidak
Asstream.type = 1'1bin, 2txt
endif
Asstream.mode = 3'admoderead = 1
'AdmodereadWrite = 3
'Admoderecursive = 4194304
'ADModesharedYnone = 16
'AdmodesharedYyread = 4
'AdmodesharedEnywrite = 8
'ADModeshareExclusive = 12
'ADModeUnkNown = 0
'ADMODEWRITE = 2
Asstream.open
'Astream.charset = "GB2312"
'Astream.LoadFromFile (RecFilen)' LOAD file
'Assp = astream.size
Asstream.position = 0'set sebagai assp saat memuat file
'Astream.writetextTmptr00,1
iftxtthen
data = bytes2btr (data)
Asstream.writetextData, 1