関数:
コードコピーは次のとおりです。
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