依照FSO產生的網頁檔案預設編碼格式以及轉換成UTF-8編碼方法，編寫函數採用用Adodb.Stream對象，成功產生UTF-8網頁檔案。下列函數採用FSO對象，檔案位置在FSO.ASP。 FSO物件的檔案編碼屬性只有三種，系統默認，Unicode，ASCII，並沒有我們想要的utf-8，所以一般中文系統上使用FSO物件產生的檔案都是gb2312網頁編碼格式，無法產生UTF-8編碼，因此，英文等拉丁語系和中文可以正常顯示，但像俄語等非拉丁語系，頁面就會出現亂碼。
複製代碼代碼如下:
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物件來取代FSO對象，因為STREAM類別有LOADFROMFILE和SAVETOFILE方法，而且有一個至關重要的屬性CHARSET，這是FSO沒有的。以下函數採用以Adodb.Stream編寫，成功產生UTF-8網頁檔案。
複製代碼代碼如下:
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
對於採用FSO的程序，只要把這個函數修改一下， 函數名稱不變，就可以正常運行， 比較省事方便。
如果採用模板產生文件， 還需要把模板文件用UTF-8編碼讀進來，否則，後台發布正確文件編碼，但模板文件讀進來是用FSO的GB2312編碼，模板頁面的俄語等非拉丁語系，就會出現亂碼。函數修改如下：
原來採用的FSO 的READFILE函數
複製代碼代碼如下:
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函數
注意依實際需要，去掉或保留Function readfile (sfilename,charset)charset參數charset。
複製代碼代碼如下:
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
關於文件編碼和網頁編碼， 請參考字符集Charset和文件編碼Encoding的區別詳解。
其他範例程式
複製代碼代碼如下:
'-------------------------------------------------
'函數名稱: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
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
其中， 這一行要注意路徑問題，stm.SaveToFile server.MapPath(FileUrl),2