function:
The code copy is as follows:
functionsaveFile(data,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"then
txt=true
endif
iftxtthen
Asstream.type=2'1bin,2txt
else
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
Asstream.open
'Astream.CharSet="GB2312"
'Astream.LoadFromFile(recfilen)' load file
'Assp=Astream.size
Asstream.Position=0'Set as Assp when loading the file
'Astream.Writetexttmpstr00,1
iftxtthen
data=bytes2bstr(data)
Asstream.Writetextdata,1