'ファイルコンテンツの読み取り。
コードコピーは次のとおりです。
functionloadfile（byvalfile）
DimobjStream
onerrorresumenext
setobjstream = server.createObject（ "adodb.stream"）
iferr.Number = -2147221005Then
respons.write "<divalign = 'center'>残念ながら、ホストはadodb.streamをサポートせず、このプログラムを使用できません</div>"
err.clear
Response.End
endif
withoutbjstream
.type = 2
.mode = 3
。開ける
.loadfromfileserver.mappath（file）
iferr.Number <> 0then
respons.write "<divalign = 'center'> file <fontcolor = '＃ff0000'>"＆ "</font>が存在するかどうかを確認してください！</font> </div>"
err.clear
Response.End
endif
.charset = "gb2312"
.position = 2
loadfile = .readText
。近い
終わりに
setobjstream =何もない
エンド機能
'ファイルするストレージコンテンツ
コードコピーは次のとおりです。
SubsavetOfile（byvalsstrbody、byvalfile）
DimobjStream
onerrorresumenext
setobjstream = server.createObject（ "adodb.stream"）
iferr.Number = -2147221005Then
respons.write "<divalign = 'center'>残念ながら、ホストはadodb.streamをサポートせず、このプログラムを使用できません</div>"
err.clear
Response.End
endif
withoutbjstream
.type = 2
。開ける
.charset = "gb2312"
.position = objstream.size
.writeText = strbody
.savetofileserver.mappath（file）、2
。近い
終わりに
setobjstream =何もない
Endingub
コール例
コードコピーは次のとおりです。
<％
writefile "aaa.txt"、 "www.vevb.com"、 "utf-8"
Response.write readfile（ "aaa.txt"、 "utf-8"）
％>