コードコピーは次のとおりです。
'関数名：ReadTextFile
'機能：adodb.streamオブジェクトを使用して、UTF-8形式のテキストファイルを読み取ります
'-----------------------------------------------------------------
functionfromtextfile（fileurl、charset）
iffileurl = "" orisnull（fileurl）then
readfromtextfile = ""
exitFunction
endif
ifnotflib.isreallypath（fileurl）
fileurl = server.mappath（fileurl）
endif
Dimstr、Stm
setStm = server.createObject（ "adodb.stream"）
stm.type = 2 'このモードで読み取ります
stm.mode = 3
stm.charset = charset
stm.open
stm.loadfromfilefileurl
str = stm.readtext
stm.close
setStm = Nothing
readfromtextfile = str
エンド機能
'-------------------------------------------------------------
'関数名：WriteTotextFile
'機能：adodb.streamオブジェクトを使用して、UTF-8形式でテキストファイルを書き込みます
'-----------------------------------------------------------------
functionWriteTextFile（fileurl、byvalstr、charset）
iffileurl = "" orisnull（fileurl）then
writetotextfile = ""
exitFunction
endif
ifnotflib.isreallypath（fileurl）
fileurl = server.mappath（fileurl）
endif
dimstm
setStm = server.createObject（ "adodb.stream"）