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

来源:百度知道 编辑:UC知道 时间:2024/05/28 15:14:25
下面是我的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'?>") <

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

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

代码如下:
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("<音乐列表>")