函數：
複製代碼代碼如下:
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
Astream.type=2'1bin,2txt
else
Astream.type=1'1bin,2txt
endif
Astream.Mode=3'adModeRead =1
' adModeReadWrite=3
' adModeRecursive=4194304
' adModeShareDenyNone=16
' adModeShareDenyRead=4
' adModeShareDenyWrite=8
' adModeShareExclusive=12
' adModeUnknown =0
' adModeWrite =2
Astream.open
'Astream.CharSet="GB2312"
'Astream.LoadFromFile(recfilen)'裝載文件
'Assp=Astream.size
Astream.Position=0'裝載文件時設置為Assp
'Astream.Writetexttmpstr00,1
iftxtthen
data=bytes2bstr(data)
Astream.Writetextdata,1