用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>

　　推荐阅读

　　身份证校验算法与ASP程序

18位身份证校验算法身份证校验码算法身份证校验码产生方法： ∑(ai×Wi)(mod 11) i: 表示号码字符从由至左包括校验码在内的位置序号； ai 表示第i位置上的号码字符值； Wi 第i位置上的加权因子，其数值Wi=mod(>>>详细阅读

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

地址：http://www.17bianji.com/kaifa2/ASP/32911.html

1/2 1