网络编程
位置：首页>> 网络编程>> Asp编程>> 用ASP读取/写入UTF-8编码格式的文件

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

作者：CnLei　来源：cnlei.com　发布时间：2007-08-20 09:29:00　

标签：UTF-8,编码,读取,写入

本文介绍了用ASP的AdoDb.Stream读取/写入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编码格式的文件 - asp之家 </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>


0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com