Question

怎么让asp生成UTF-8格式的文本-----菜鸟求救

下面是我的asp代码,用来从数据库读取数据生成一个歌曲列表文件,生成的文件是给一个flash做的音乐播放器调用的,由于flash只能认的是UTF-8格式的文本,所以下面的asp程序生成的ANSI文件不能用,谁给把下面的代码改成生成的文件是UTF-8格式,本人是菜鸟,请把代码详细的帖出来,谢谢.

========================代码开始=================================

<%
set conn=server.CreateObject( "adodb.connection" )
set rs=server.CreateObject( "adodb.recordset" )
db="gg.mdb"
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(db)
sql="select * from gg order by id desc"
set rs=conn.execute(sql)
set fileobj=server.CreateObject( "scripting.filesystemobject" )
set textobj=fileobj.createtextfile(server.MapPath("lb.txt"))

xmlfile=server.mappath("lb.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("<?xml version='1.0' encoding='gb2312'?>")
MyFile.WriteLine("<musicPlayer><playList playMode='1'>")
MyFile.WriteLine("<音乐列表>")

rs.movefirst '记录指针移至第一条记录上

while not rs.eof '当指针未到结尾时执行此循环

MyFile.WriteLine("<item name='"&rs("nr")&"' url='"&rs("lj")&"'></item>")

' 输出到文件

rs.movenext '指针移至下一条记录

wend
rs.close
Set rs = Nothing
conn.close
set conn=Nothing

MyFile.WriteLine("</音乐列表></playList></musicPlayer>")
MyFile.Close
%>

<script language="JavaScript">
alert(':::更新成功:::');
</script>
<script language="javascript">
<!--
function clock(){i=i-1
if(i>0)setTimeout("clock();",1000);
else self.close();}
var i=0.5
clock();
//-->
</script>
============================代码结束=============================

Answer 1

这里Set MyFile = fso.CreateTextFile(xmlfile,True)
再加上一个参数值"true"就行了，就这样
Set MyFile = fso.CreateTextFile(xmlfile,True,true)

Answer 2

代码如下：
xmlfile=server.mappath("lb.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True,True)
MyFile.WriteLine("<?xml version='1.0' encoding='utf-8'?>")
MyFile.WriteLine("<musicPlayer><playList playMode='1'>")
MyFile.WriteLine("<音乐列表>")

Answer 3

修改两句:
Set MyFile = fso.CreateTextFile(xmlfile,True,true)
MyFile.WriteLine("<?xml version='1.0' encoding='utf-8'?>")