Quotation If Body<>"" Then Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Fout = [color=#ff0000]Fso.CreateTextFile(Server.Mappath(""&Filename&"")) [/color]Fout.Write(Body)' 当编码是utf-8的时候,就会提示这里错误! Fout.Close 上面这段代码的红字部分其实也是这样的Fso.CreateTextFile(Server.Mappath(""&Filename&""),true)不写的话 默认为这样.这样保存的文件你用记事本打开看看,是用ASCII码来保存的.但是这对于utf-8是不适合的.所以才会出现 上面的错误
解决方法
Quotation If Body<>"" Then Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Fout = [color=#3366ff]Fso.CreateTextFile(Server.Mappath(""&Filename&""),true,true) [/color]Fout.Write(Body)'这下不会提示错出! Fout.Close