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

2018-09-06 12:14

阅读:475

  <%
-------------------------------------------------
函数名称: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
<htmlxmlns=
<head>
<head>
<title>代码实例:用ASP读取/写入UTF-8编码格式的文件</title>
<metahttp-equiv=content-typecontent=text/html;charset=gb2312/>
<metaname=authorcontent=枫岩gt;
<metaname=copyrightcontent=
</head>
<body>
<%=strText%>
</body>
</html>


评论


亲,登录后才可以留言!