国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網站 > 建站經驗 > 正文

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

2024-04-25 20:30:50
字體:
來源:轉載
供稿:網友

利用fso.OpenTextFil讀取UTF-8文件或者用FSO.save生成UTF-8文件時亂碼解決辦法生成靜態頁使用的方法是讀取asp頁面的html代碼,保存為html文件,這種方法由于動態頁是utf8格式的編碼,我得到它的html代碼后,使用fso保存,生成html是成功了,但是不能訪問,因為html的編碼有問題,選擇gb2312就可以正常訪問了。這樣不行,因為整站都是utf8格式的編碼,打開這個頁面,還需要選擇編碼才可訪問,這樣太麻煩了,也沒有人愿意去訪問,所以必須解決utf8格式編碼問題。

經過一翻搜索才了發現,fso不能生成utf8格式的文件。所以要換種方法。

又找了一會,找到一個函數,可代替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")

 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 宾阳县| 石棉县| 镇宁| 福贡县| 宝应县| 江源县| 新巴尔虎右旗| 延寿县| 阿勒泰市| 天台县| 黎平县| 开远市| 渝北区| 金门县| 佛山市| 黄大仙区| 都昌县| 紫阳县| 水富县| 佛坪县| 黄梅县| 嵊泗县| 堆龙德庆县| 鄂托克前旗| 榆树市| 汽车| 翁牛特旗| 金塔县| 林州市| 吴忠市| 长泰县| 新余市| 开江县| 苗栗县| 建湖县| 大连市| 右玉县| 恩平市| 鞍山市| 新建县| 赤峰市|