快捷導(dǎo)航

asp中通過fso讀取和生成UTF-8編碼的txt

更新時(shí)間：2013年08月22日 23:08:39 作者：

利用fso.OpenTextFil讀取UTF-8文件或者用FSO.save生成UTF-8文件時(shí)亂碼解決辦法生成靜態(tài)頁(yè)使用的方法是讀取asp頁(yè)面的html代碼，保存為html文件，這種方法

由于動(dòng)態(tài)頁(yè)是utf8格式的編碼，我得到它的html代碼后，使用fso保存，生成html是成功了，但是不能訪問，因?yàn)閔tml的編碼有問題，選擇gb2312就可以正常訪問了。這樣不行，因?yàn)檎径际莡tf8格式的編碼，打開這個(gè)頁(yè)面，還需要選擇編碼才可訪問，這樣太麻煩了，也沒有人愿意去訪問，所以必須解決utf8格式編碼問題。
經(jīng)過一翻搜索才了發(fā)現(xiàn)，fso不能生成utf8格式的文件。所以要換種方法。 www.iisboy.com
又找了一會(huì)，找到一個(gè)函數(shù)，可代替fso生成文件，它使用的adodb.stream對(duì)象來生成utf8文件的，函數(shù)如下：

復(fù)制代碼代碼如下:

'------------------------------------------------- 
'函數(shù)名稱:ReadTextFile 
'作用:利用AdoDb.Stream對(duì)象來讀取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 
'------------------------------------------------- 
'函數(shù)名稱:WriteToTextFile 
'作用:利用AdoDb.Stream對(duì)象來寫入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 