<%
'-------------------------------------------------
'Function name:ReadTextFile
'Function: Use the AdoDb.Stream object to read UTF-8 format text files
'----------------------------------------------------
functionReadFromTextFile(FileUrl,CharSet)
dimstr
setstm=server.CreateObject("adodb.stream")
stm.Type=2' read in this mode
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfileserver.MapPath(FileUrl)
str=stm.readtext
stm.Close
setstm=nothing
ReadFromTextFile=str
endfunction
'-------------------------------------------------
'Function name: WriteToTextFile
'Function: Use the AdoDb.Stream object to write text files in UTF-8 format
'----------------------------------------------------
SubWriteToTextFile(FileUrl, byvalStr, CharSet)
setstm=server.CreateObject("adodb.stream")
stm.Type=2' read in this mode
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteTextstr
stm.SaveToFilesserver.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>Code example: Read/write files in UTF-8 encoding format using ASP</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>