播放器连播的代码

2005-12-21 10:16:29

<object ......> <param name="URL" value="listenurl.asp?id=<%=request("checked")%>"> ...... </object> listenurl.asp页面 <!--#include file="conn.asp"--> <ASX version = "3.0"> <% if request("id")<>"" then set rs=server.cr&#101;ateobject("adodb.recordset") sql="sel&#101;ct * from music wh&#101;re id in ("&request("id")&")" rs.open sql,conn,1,3 do while not rs.eof %> <entry SKIPIFREF="YES"> <title><%=rs("name")%></title> <ref href="<%=rs("listenurl")%>"/> <param name="Artist" value="<%=rs("who")%>"/> <param name="Title" value="<%=rs("name")%>"/> </entry> <% rs.movenext loop rs.Close set rs=nothing end if conn.close set conn=nothing %> </ASX>