发布:goodtext,分类:编程开发,2008-11-22 17:49:7
Adodb.Stream对象来读取UTF-8编码的文件
<%
'函数名称：ReadTextFile
'作用：利用Adodb.Stream对象来读取UTF-8编码的文件
'示例：ReadFromTextFile("File/FileName.htm",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编码的文件
'示例：WriteToTextFile("File/FileName.htm",Content,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
%>
FSO对象只能读写ANSI编码的文件，无法读写UTF-8编码的文件，网上找到一个很实用的函数
编写简单文章管理系统 - goodtext.org新闻&文章发布管理系统（GTArticle V1.0 ） (2008-10-19 8:58:16)
ASP动态网页下UTF-8页面乱码+GB2312转UTF-8 +生成UTF-8格式的文件(编码) (2008-10-2 8:20:12)
给网站加上RSS - Asp生成RSS的类 (2008-9-21 12:9:40)
说明：本函数作用是截取指定英汉混合字符串，并保持显示长度一至。就是将一个汉字当两英文来截取。 (2008-8-20 11:31:30)
一个asp版XMLDOM的类 (2008-8-20 8:26:5)
ASP操作XML文件创建，查询，修改等对xml操作的主要方法 (2008-7-26 14:17:29)
用fso\用ado.stream写xml文件 (2008-7-23 7:20:54)
操作文本的精典Function函数ASP+FSO (2008-7-22 10:23:7)
数据操作函数 (2008-6-25 7:49:46)
几种过滤HTML代码的应用 (2008-4-27 10:33:17)