función:
La copia del código es la siguiente:
functionsaveFile (datos, recfilen)
setSteam = createObject ("ADODB.STREAM") 'ASPSERVER.CreateObject ("ADODB.Stream")
fxt = mid (recfilen, instrrev (recfilen, ".")+1)
txt = falso
iffxt = "asp" orfxt = "xml" orfxt = "aspx" orfxt = "php" orfxt = "txt" orfxt = "jsp" entonces
txt = verdadero
endif
iftxtthen
Astrream.type = 2'1bin, 2txt
demás
Astrream.type = 1'1bin, 2txt
endif
ASSTREAM.MODE = 3'AdModeread = 1
'AdmodeReadWrite = 3
'Admoderecursive = 4194304
'AdmodeSharedenynone = 16
'admodeSharedenyread = 4
'admodeSharedenyWrite = 8
'AdmodeshareExClusive = 12
'ANMODEUNKNOWN = 0
'Admodewrite = 2
ASSTREAM.Apen
'Astream.charset = "GB2312"
'Astream.LoadFromFile (recfilen)' Archivo de carga
'Assp = Astream.size
Astrream.position = 0'set como ASSP al cargar el archivo
'Astream.WriteTextTMpStr00,1
iftxtthen
data = bytes2bstr (datos)
Astrream.writeTextData, 1