fonction:
La copie de code est la suivante:
FunctionSaveFile (données, recfilen)
setasteream = 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" puis
txt = vrai
endire
iftxthen
Asstream.type = 2'1bin, 2txt
autre
Asstream.type = 1'1bin, 2txt
endire
Asstream.Mode = 3'AdModeRead = 1
'AdmodeReadWrite = 3
'AdmodereCursive = 4194304
'AdmodeshareDenynone = 16
'AdmoDeshareDenyread = 4
'AdmodesharedenyWrite = 8
'AdmoDeshAreEExclusive = 12
'addodeunknown = 0
'AdmodeWrite = 2
Asstream.Open
'Astream.charset = "gb2312"
Fichier de charge
'Assp = astream.Size
Asstream.position = 0'set en ASSP lors du chargement du fichier
'Astream.WriteTextTMPSTR00,1
iftxthen
data = bytes2BSTR (données)
Asstream.writeTextData, 1