手机
当前位置:查字典教程网 >编程开发 >ASP教程 >asp中通过fso读取和生成UTF-8编码的txt
asp中通过fso读取和生成UTF-8编码的txt
摘要:由于动态页是utf8格式的编码,我得到它的html代码后,使用fso保存,生成html是成功了,但是不能访问,因为html的编码有问题,选择...

由于动态页是utf8格式的编码,我得到它的html代码后,使用fso保存,生成html是成功了,但是不能访问,因为html的编码有问题,选择gb2312就可以正常访问了。这样不行,因为整站都是utf8格式的编码,打开这个页面,还需要选择编码才可访问,这样太麻烦了,也没有人愿意去访问,所以必须解决utf8格式编码问题。

经过一翻搜索才了发现,fso不能生成utf8格式的文件。所以要换种方法。 www.iisboy.com

又找了一会,找到一个函数,可代替fso生成文件,它使用的adodb.stream对象来生成utf8文件的,函数如下:

复制代码 代码如下:

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

'函数名称: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 本文来自www.iisboy.com

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 IISBOY网,IISBOY.COM

使用方法:

复制代码 代码如下:

call WriteToTextFile ("../index.html","aaa","utf-8")

搞定。

【asp中通过fso读取和生成UTF-8编码的txt】相关文章:

一段在asp中加密与解密对应的函数

如何实现asp无组件生成缩略图

asp html转成html编码程序

asp下同一空间多绑多哥域名的方法

asp中通过getrows实现数据库记录分页的一段代码

通过数组给您的文件排序

在ASP中通过oo4o连接Oracle数据库的例子

FSO+递归生成文件列表(xml)

asp中对ip进行过滤限制函数

asp获取当前URL代码

精品推荐
分类导航