采用adodb.stream对角来解决生成网页乱码问题-4436x12威尼斯

采用adodb.stream对角来解决生成网页乱码问题

今天在做asp生成静态页的时候遇到这个问题
由于我生成静态页使用的方法是读取asp页面的html代码，保存为html文件，这种方法。由于动态页是utf8格式的编码，我得到它的html代码后，使用fso保存，生成html是成功了，但是打开网页全是乱码，选择gb2312就可以正常生成了。这样不行，因为整站都是utf8格式的编码，打开这个页面，还需要选择编码才可访问，这样太麻烦了，也没有人愿意去访问，所以必须解决utf8格式编码问题。

经过一翻测试采用“adodb.stream”来代替"scripting.filesystemobject"读取生成任何编码的网页都正常了。

函数如下：
'-------------------------------------------------
'函数名称: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
     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
使用方法：
call writetotextfile ("../index.html","aaa","utf-8") 

根据自已的情况，修改一下上面两个函数，完满生成4436x12威尼斯-威尼斯144777cm。