การทำงาน:
การคัดลอกรหัสมีดังนี้:
FunctionSaveFile (ข้อมูล, 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"
txt = true
endif
iftxtthen
assTream.type = 2'1bin, 2txt
อื่น
assTream.type = 1'1bin, 2txt
endif
assTream.Mode = 3'adModeread = 1
'AdmodereadWrite = 3
'Admoderecursive = 4194304
'Admodesharedenynone = 16
'AdmodesharedenyRead = 4
'AdmodesharedenyWrite = 8
'AdmodeshareexClusive = 12
'AdmodeUnknown = 0
'Admodewrite = 2
assstream.open
'Astream.Charset = "GB2312"
'astream.loadfromfile (recfilen)' ไฟล์โหลด
'assp = astream.size
assTream.position = 0'Set เป็น assp เมื่อโหลดไฟล์
'Astream.WriteTexttMpStr00,1
iftxtthen
data = bytes2bstr (data)
assstream.writetextdata, 1