怎样往UTF-8编码的文本文件里写入中文？

[colee]

所有程式文件都用的是UTF-8编码，
现在要往UTF-8编码的advise.txt文件里写入中文，我试过，写入后全部是乱码。
set adviseFile=fo.opentextfile(server.MapPath"advise.txt"),2,true)
adviseFile.writeLine("请")

[colee]

另外我是用set fo=Server.CreateObject("Scripting.FileSystemObject")

[julyclyde]

fso只能写unicode原始编码，不能用utf

[xfekin]

Sub SaveFile(file,str)
dim fso,saveall
set fso=server.createobject("scripting.filesystemobject")
set saveall=fso.createtextfile(server.mappath(file),true)
saveall.write(str)
saveall.close
set saveall=nothing
set fso=nothing
Ene Sub

[edwardfay]

看好多朋友都有文字格式转换问题，但在csdn上还没有见到有人解决过！

[colee]

解决了

'读取文件内容
Function GetFileBody(File_path)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File_path)
.Charset = "UTF-8"
.Position = 2
GetFileBody = .ReadText
.Close
End With
Set objStream = Nothing
End Function

'写内容到文件
Sub SaveToFile(strBody,File_path)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Open
.WriteText strBody
.Position = 0
.Charset = "UTF-8"
.Position = 2
.SaveToFile Server.MapPath(File_path),2
.Close
End With
Set objStream = Nothing
End Sub