<％
'-------------------------------------------------------------
'関数名：ReadTextFile
'機能：adodb.streamオブジェクトを使用して、UTF-8形式のテキストファイルを読み取ります
'-----------------------------------------------------------------
functionfromtextfile（fileurl、charset）
Dimstr
setStm = server.createObject（ "adodb.stream"）
stm.type = 2 'このモードで読み取ります
stm.mode = 3
stm.charset = charset
stm.open
stm.loadfromfileserver.mappath（fileurl）
str = stm.readtext
stm.close
setStm = Nothing
readfromtextfile = str
エンド機能
'-------------------------------------------------------------
'関数名：WriteTotextFile
'機能：adodb.streamオブジェクトを使用して、UTF-8形式でテキストファイルを書き込みます
'-----------------------------------------------------------------
subwriteTextFile（fileurl、byvalstr、charset）
setStm = server.createObject（ "adodb.stream"）
stm.type = 2 'このモードで読み取ります
stm.mode = 3
stm.charset = charset
stm.open
stm.writeTextStr
stm.savetofilesserver.mappath（fileurl）、2
stm.flush
stm.close
setStm = Nothing
Endingub
％>
<％
dimstrtext
strtext = readfromtextfile（ "test_utf-8.txt"、 "utf-8"）
％>
<
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<head>
<head>
<Title>コード例：ASPを使用してUTF-8エンコード形式でファイルを読み取り/書き込み</title>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<Metaname = "Author" content = "fengyan、[email protected]">
<Metaname = "Copyright" content = "http://www.cnlei.com"/>
</head>
<body>
<％= strtext％>
</body>
</html>