用ASP读取/写入UTF-8编码格式的文件

'-------------------------------------------------

'函数名称: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>

<title>代码实例：用ASP读取/写入UTF-8编码格式的文件</title>

<metahttp-equiv="content-type"content="text/html;charset=gb2312"/>

<metaname="author"content="枫岩,CnLei.y.l@gmail.com">

<metaname="copyright"content="http://www.cnlei.com"/>

</head>

<body>

<%=strText%>

</body>

</html>