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

下面是我的asp代码,用来从数据库读取数据生成一个歌曲列表文件,生成的文件是给一个flash做的音乐播放器调用的,由于flash只能认的是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>
============================代码结束=============================
展开
 我来答 举报
loveandkissyou
2008-04-17 · TA获得超过2297个赞
知道大有可为答主
回答量:2332
采纳率:0%
帮助的人:2541万
展开全部
这里Set MyFile = fso.CreateTextFile(xmlfile,True)
再加上一个参数值"true"就行了,就这样
Set MyFile = fso.CreateTextFile(xmlfile,True,true)
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
独风吹jU
2008-04-17 · TA获得超过945个赞
知道小有建树答主
回答量:324
采纳率:0%
帮助的人:292万
展开全部
代码如下:
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("<音乐列表>")
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
古朴还安适的海鸥2773
2008-04-17 · TA获得超过148个赞
知道小有建树答主
回答量:181
采纳率:0%
帮助的人:0
展开全部
修改两句:
Set MyFile = fso.CreateTextFile(xmlfile,True,true)
MyFile.WriteLine("<?xml version='1.0' encoding='utf-8'?>")
本回答被提问者采纳
1 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式