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

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

2019-10-30 15:46asp教程网 ASP教程

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

<%

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

'函数名称:ReadTextFile

'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件

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

function ReadFromTextFile (FileUrl,CharSet)

dim str

set stm=server.CreateObject("adodb.stream")

stm.Type=2 '以本模式读取

stm.mode=3

stm.charset=CharSet

stm.open

stm.loadfromfile server.MapPath(FileUrl)

str=stm.readtext

stm.Close

set stm=nothing

ReadFromTextFile=str

end function

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

'函数名称:WriteToTextFile

'作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件

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

Sub WriteToTextFile (FileUrl,byval Str,CharSet)

set stm=server.CreateObject("adodb.stream")

stm.Type=2 '以本模式读取

stm.mode=3

stm.charset=CharSet

stm.open

stm.WriteText str

stm.SaveToFile server.MapPath(FileUrl),2

stm.flush

stm.Close

set stm=nothing

end Sub

%>

<%

Dim strText

strText = ReadFromTextFile ("test_utf-8.txt","utf-8")

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<head>

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

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

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

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

</head>

<body>

<%=strText%>

</body>

</html>