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

首頁 > 編程 > ASP > 正文

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

2024-05-04 10:59:38
字體:
來源:轉載
供稿:網友

由于動態頁是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")

搞定。 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 沅陵县| 三江| 兴业县| 离岛区| 乌审旗| 芜湖县| 甘肃省| 彩票| 东源县| 吉木萨尔县| 延边| 平度市| 那坡县| 钟山县| 全州县| 云浮市| 裕民县| 北川| 密云县| 南皮县| 邢台县| 慈利县| 达尔| 治县。| 曲水县| 霍山县| 荣昌县| 昌乐县| 板桥市| 瓮安县| 巨鹿县| 镶黄旗| 砀山县| 凤阳县| 中宁县| 茶陵县| 梁平县| 靖远县| 精河县| 福建省| 遂川县|