Функция:
Кода -копия выглядит следующим образом:
FunctionSaveFile (Data, Recfilen)
setastream = createObject ("adodb.stream") 'aspserver.createObject ("adodb.stream")
fxt = mid (exfilen, instrrev (recfilen, ".")+1)
txt = false
iffxt = "asp" orfxt = "xml" orfxt = "aspx" orfxt = "php" orfxt = "txt" orfxt = "jsp" then
txt = true
эндиф
iftxtthen
Assstream.type = 2'1bin, 2txt
еще
Assstream.type = 1'1bin, 2txt
эндиф
Assstream.mode = 3'admoderead = 1
'amcodereadwrite = 3
'Aremoderecursive = 4194304
'Admodesharedenynone = 16
'AdmodeSharedEnyRead = 4
'AdmodesharedEnyWrite = 8
'admodeshareexclusize = 12
'admodeunknown = 0
'amcodewrite = 2
Assstream.open
'Astream.Charset = "GB2312"
'Astream.LoadFromFile (Recfilen)' Файл загрузки
'Assp = astream.size
Assstream.position = 0'set как ASSP при загрузке файла
'Astream.WriteTexttmpstr00,1
iftxtthen
DATA = BYTES2BSTR (DATA)
Assstream.writetextdata, 1