• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp中通过fso读取和生成UTF-8编码的txt

    由于动态页是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生成静态HTML(动态读取)
    下一篇:ASP 微信公共平台接口实现代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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