由于動(dòng)態(tài)頁(yè)是utf8格式的編碼，我得到它的html代碼后，使用fso保存，生成html是成功了，但是不能訪問(wèn)，因?yàn)閔tml的編碼有問(wèn)題，選擇gb2312就可以正常訪問(wèn)了。這樣不行，因?yàn)檎径际莡tf8格式的編碼，打開(kāi)這個(gè)頁(yè)面，還需要選擇編碼才可訪問(wèn)，這樣太麻煩了，也沒(méi)有人愿意去訪問(wèn)，所以必須解決utf8格式編碼問(wèn)題。
經(jīng)過(guò)一翻搜索才了發(fā)現(xiàn)，fso不能生成utf8格式的文件。所以要換種方法。 www.iisboy.com
又找了一會(huì)，找到一個(gè)函數(shù)，可代替fso生成文件，它使用的adodb.stream對(duì)象來(lái)生成utf8文件的，函數(shù)如下：
復(fù)制代碼 代碼如下:
'-------------------------------------------------
'函數(shù)名稱:ReadTextFile
'作用:利用AdoDb.Stream對(duì)象來(lái)讀取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 本文來(lái)自www.iisboy.com
ReadFromTextFile=str
End Function
'-------------------------------------------------
'函數(shù)名稱:WriteToTextFile
'作用:利用AdoDb.Stream對(duì)象來(lái)寫(xiě)入U(xiǎn)TF-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網(wǎng),IISBOY.COM
使用方法：
復(fù)制代碼 代碼如下:
call WriteToTextFile ("../index.html","aaa","utf-8")
搞定。
