Question

怎么让asp生成的文本用ID命名-----菜鸟求救

下面的是我的一个播放列表代码,怎么让它生成的文件是每一条记录生成一个文件,并且是用数据库的ID来命名?由于我是菜鸟,请直接复制代码来回答,谢谢!

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

<%
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)
xmlfile=server.mappath("001.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True,True)
MyFile.WriteLine("<?xml version='1.0' encoding='utf-8'?>")
MyFile.WriteLine("<musicPlayer username=' '>")
MyFile.WriteLine("<playerConfig bgPic='0009.swf' topPic='toppic.swf'/> <effect>")
MyFile.WriteLine("<item name='mc1' url='190.swf' x='0' y='0' z='10'/>")
MyFile.WriteLine("<item name='mc2' url='197.swf' x='0' y='0' z='11'/>")
MyFile.WriteLine("</effect>")
MyFile.WriteLine("<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>

==================代码结束===========================
直接改成变量还是不行,只生成一个文件,而不是每个ID都生成一个文件,请把代码全部帖出来,我是菜鸟
还有这个分页问题 kuai
http://zhidao.baidu.com/question/52244464.html

Answer 1

xmlfile=server.mappath("001.txt")
改成
xmlfile=server.mappath(Rs("ID")&".txt")