وظيفة:
نسخة الكود كما يلي:
FunctionSaveFile (البيانات ، recfilen)
setastream = createObject ("adodb.stream") 'aspserver.createObject ("Adodb.stream")
fxt = mid (recfilen ، instrev (recfilen ، ".")+1)
txt = خطأ
iffxt = "asp" orfxt = "xml" orfxt = "aspx" orfxt = "php" orfxt = "txt" orfxt = "jsp" ثم
txt = صحيح
Endif
iftxtthen
asstream.type = 2'1bin ، 2txt
آخر
Asstream.type = 1'1bin ، 2txt
Endif
asstream.mode = 3'AdModeread = 1
admodereadwrite = 3
'edgoderecursive = 4194304
'admodesharedenynone = 16
'edgodesharedenyread = 4
'edgodesharedenywrite = 8
admodeshareExclusive = 12
'admodeunknown = 0
admodewrite = 2
Asstream.Open
'Astream.charset = "GB2312"
'astream.loadfromfile (recfilen) "ملف التحميل
'ASSP = Astream.size
asstream.position = 0'set كـ ASSP عند تحميل الملف
'Astream.writeTextTMPSTR00،1
iftxtthen
البيانات = BYTES2BSTR (بيانات)
Asstream.WriteteTextData ، 1