ASP產生UTF-8編碼的代碼

方法一：createtextfile組建檔案方法

function WriteToFile(FileName,FileContent)
set fso=server.createobject("scripting.filesystemobject")
set fp=fso.createtextfile(server.mappath(FileName),,True)
fp.write(FileContent)
end function

方法二：ADODB.Stream組建檔案方法
Set ccObjStream = Server.CreateObject("ADODB.Stream")
With ccObjStream
.Type = 2
.Mode = 3
.Open
.Charset = "utf-8"
.Position = ccObjStream.Size
.WriteText 要產生的內容
.SaveToFile 要組建檔案路徑和檔案名稱,2
.Close
End With

CreateTextFile 方法
建立指定檔案並返回 TextStream 對象，該對象可用於讀或寫建立的檔案。

object.CreateTextFile(filename[, overwrite[, unicode]])

參數
object

必選項。應為 FileSystemObject 或 Folder 對象的名稱。

filename

必選項。字串運算式，指明要建立的檔案。

overwrite

可選項。Boolean 值指明是否可以覆蓋現有檔案。如果可覆蓋檔案，該值為 True；如果不能覆蓋檔案，則該值為 False 。如果省略該值，則不能覆蓋現有檔案。

unicode

可選項。Boolean 值指明是否以 Unicode 或 ASCII 檔案格式建立檔案。如果以 Unicode 檔案格式建立檔案，則該值為 True；如果以 ASCII 檔案格式建立檔案，則該值為 False。如果省略此部分，則假定建立 ASCII 檔案。