将 FileSystemObject 保存为 UTF

Question

我怎样才能将文件保存为utf-8？

Dim FSO, File   
Set FSO = Server.CreateObject("Scripting.FileSystemObject")   
Set File = FSO.OpenTextFile(Path,2,true,-1)   
File.Write(xml1)   
File.Close   
Set File = Nothing  
Set FSO = Nothing  

Answer 1

我会尝试 ADODB Stream 对象。

Dim objStream 
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeText
objStream.Mode = adModeReadWrite
objStream.Open
objStream.Position = 0
objStream.Charset = "UTF-8"
objStream.WriteText strContent
objStream.SaveToFile strABSPath,adSaveCreateOverWrite
objStream.Close
Set objStream=nothing