asp写入txt时怎么把格式存储为utf-8？

这段代码上怎么加啊？小弟跪求！
<% 
 Dim ObjFSO,ObjTextFile,strFileName,message 
message=request.form("message") 
set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 
strFileName = server.MapPath("dianming.txt") 
set ObjTextFile=ObjFSO.CreateTextFile(strFileName) 
ObjTextFile.WriteLine message 
ObjTextFile.Close 
set ObjTextFile = Nothing 
set ObjFSO = Nothing 
response.Write("eof=ok") 
%>

追问：哎！好吧~我另寻出路吧~小弟再这先谢谢大家了！我这个是flash和asp+txt互动的，flash中只能读取utf-8的格式
但是asp重新写入数据后txt就变成了ANSI格式的了，很郁闷……我加了，不起作用啊~
加上后连数据都些不进去了~
估计是小弟太笨，还请兄长明示~

答案：我之前也遇到过，研究无果，只好用stream替换了。

sub bldFile(fname,str)
Set objStream = Server.CreateObject("ADODB.Stream") 
With objStream 
.Open 
.Charset = "utf-8" 
.Position = objStream.Size 
.WriteText=str
.SaveToFile Server.Mappath(""&fname&"")，2 
.Close 
End With 
Set objStream = Nothing
end sub

其他：另存为  文本格式设为utf-8 就可以了。。

上一个：html frame框架 页面跳转问题 (asp.net)
下一个：ASP在发帖子时对文字做超链接 出现缺少标识符，不能操作。