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

时间：2021-05-18

<%
'-------------------------------------------------
'函数名称: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://"/>
</head>
<body>
<%=strText%>
</body>
</html>

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章