主页 > 知识库 > asp中通过fso读取和生成UTF-8编码的txt

asp中通过fso读取和生成UTF-8编码的txt

热门标签:地图标注阳江 济源电销外呼系统线路 石家庄慧营销外呼系统 梧州市地图标注 外呼线路批发 创意电话机器人 java外呼系统是什么 武穴地图标注 世界地图标注了哪些城市

由于动态页是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,中,通过,fso,读取,和,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp中通过fso读取和生成UTF-8编码的txt》相关的同类信息!
  • 本页收集关于asp中通过fso读取和生成UTF-8编码的txt的相关信息资讯供网民参考!
  • 推荐文章