<%
'-------------------------------------------------
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
'----------------------------------------------------
functionReadFromTextFile(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
endfunction
'-------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
'----------------------------------------------------
SubWriteToTextFile(FileUrl,byvalStr,CharSet)
setstm=server.CreateObject("adodb.stream")
stm.Type=2'以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteTextstr
stm.SaveToFileserver.MapPath(FileUrl),2
stm.flush
stm.Close
setstm=nothing
endSub
%>
<%
DimstrText
strText=ReadFromTextFile("test_utf-8.txt","utf-8")
%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<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="枫岩,[email protected]">
<metaname="copyright"content="http://www.cnlei.com"/>
</head>
<body>
<%=strText%>
</body>
</html>