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

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

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

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

解决了

'读取文件内容
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