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

落日映苍穹つ 2021-11-04 17:18 162阅读 0赞

由于动态页是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")

![在这里插入图片描述][aHR0cHM6Ly9vc2NpbWcub3NjaGluYS5uZXQvb3NjbmV0LzZmZThkNGE3YzMwMjBjMGFjYmU2ZTQxNDI3NWE4MTYyNDEwLmpwZw]

[www.iisboy.com]: http://www.iisboy.com
[aHR0cHM6Ly9vc2NpbWcub3NjaGluYS5uZXQvb3NjbmV0LzZmZThkNGE3YzMwMjBjMGFjYmU2ZTQxNDI3NWE4MTYyNDEwLmpwZw]: /images/20211104/9af2696152f24177b1c709eac0b6d85f.png