関数：
コードコピーは次のとおりです。
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
それ以外
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）'ロードファイル
'assp = astream.size
ASSTREAM.POSITION = 0'SET ASSとしてファイルをロードするとき
'Astream.WriteTextTMPSTR00,1
iftxtthen
data = bytes2bstr（data）
asstream.writeTextData、1