以下函數(shù)采用FSO對(duì)象，文件位置在FSO.ASP。FSO對(duì)象的文件編碼屬性只有三種，系統(tǒng)默認(rèn)，Unicode，ASCII，并沒(méi)有我們要的utf-8，所以一般中文系統(tǒng)上使用FSO對(duì)象生成的文件都是gb2312網(wǎng)頁(yè)編碼格式，無(wú)法生成UTF-8編碼，因此，英文等拉丁語(yǔ)系和中文可以正常顯示，但象俄語(yǔ)等非拉丁語(yǔ)系，頁(yè)面就會(huì)出現(xiàn)亂碼。
復(fù)制代碼 代碼如下:
function createfile(sfilename,scontent)
set fso=server.CreateObject("scripting.filesystemobject")
'set f1=fso.opentextfile(sfilename,2,true,-1) 'append=8 only write=2 Unicode編碼=-1
set f1=fso.opentextfile(sfilename,2,true)
f1.write(scontent)
f1.close
set fso=nothing
end function
選擇用ADODB.STREAM對(duì)象來(lái)替代FSO對(duì)象，因?yàn)镾TREAM類有LOADFROMFILE和SAVETOFILE方法，并且有一個(gè)至關(guān)重要的屬性CHARSET，這是FSO沒(méi)有的。以下函數(shù)采用用Adodb.Stream編寫，成功生成UTF-8網(wǎng)頁(yè)文件。
復(fù)制代碼 代碼如下:
function createfile(sfilename,scontent)
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=scontent
.SaveToFile sfilename,2
.Close
End With
Set objStream = Nothing
end function
對(duì)于采用FSO的程序，只要把這個(gè)函數(shù)修改一下， 函數(shù)名稱不變，就可以正常運(yùn)行， 比較省事方便。
如果采用模板生成文件， 還需要把模板文件用UTF-8編碼讀進(jìn)來(lái)，否則，后臺(tái)發(fā)布正確文件編碼，但模板文件讀進(jìn)來(lái)是用FSO的GB2312編碼，模板頁(yè)面的俄語(yǔ)等非拉丁語(yǔ)系，就會(huì)出現(xiàn)亂碼。函數(shù)修改如下：
原來(lái)采用的FSO 的READFILE函數(shù)
復(fù)制代碼 代碼如下:
function readfile(sfilename)
Set fso=server.CreateObject("scripting.filesystemobject")
Set f = fso.OpenTextFile(sfilename, 1, true)
if not f.AtEndOfStream then readfile = f.readAll
Set f=nothing
Set fso=nothing
end function
替換采用的ADODB.STREAM 的READFILE函數(shù)
注意根據(jù)實(shí)際需要，去掉或保留Function readfile (sfilename,charset)charset參數(shù)charset。
復(fù)制代碼 代碼如下:
Function readfile (sfilename)
Dim f
Set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式讀取
stm.mode=3
stm.charset="utf-8"
stm.open
stm.loadfromfile sfilename
f=stm.readtext
stm.Close
Set stm=Nothing
readfile=f
End Function
關(guān)于文件編碼和網(wǎng)頁(yè)編碼， 請(qǐng)參考“字符集Charset和文件編碼Encoding的區(qū)別詳解”。
其他樣例程序
復(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
ReadFromTextFile=str
End Function
'-------------------------------------------------
'函數(shù)名稱:WriteToTextFile
'作用:利用AdoDb.Stream對(duì)象來(lái)寫入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
其中， 這一行要注意路徑問(wèn)題，stm.SaveToFile server.MapPath(FileUrl),2
您可能感興趣的文章:- php 判斷網(wǎng)頁(yè)是否是utf8編碼的方法
- js 顯示base64編碼的二進(jìn)制流網(wǎng)頁(yè)圖片
- Base64編碼加密JS代碼網(wǎng)頁(yè)版
- 多種語(yǔ)言(big5\gbk\gb2312\utf8\Shift_JIS\iso8859-1)的網(wǎng)頁(yè)編碼切換解決方案歸納
- ASP+FSO生成的網(wǎng)頁(yè)文件默認(rèn)編碼格式以及轉(zhuǎn)換成UTF-8編碼方法
- asp.net HttpWebRequest自動(dòng)識(shí)別網(wǎng)頁(yè)編碼
- asp.net 網(wǎng)頁(yè)編碼自動(dòng)識(shí)別代碼
- vbs或asp采集文章時(shí)網(wǎng)頁(yè)編碼問(wèn)題
- 網(wǎng)頁(yè)語(yǔ)言編碼及asp亂碼問(wèn)題解決方案
- 判斷網(wǎng)頁(yè)編碼的方法python版
