www.gusucode.com > 盘锦DJ舞曲网 商业版源码程序 > allplayer.asp

    <!--#include file="config.asp"-->
<%
id=request("id")
if id="" then
response.write "<script>alert('非法参数！');window.opener=null;window.close()</script>"
response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select server.serverurl as serverurl,musiclist.musicpath as musicpath,musiclist.hits as hits,musiclist.MusicName as MusicName, musiclist.id as id from server,musiclist where musiclist.ID in ("&id&")"
sql=sql&"and server.serverid=musiclist.serverid order by musiclist.ID desc"
rs.open sql,conn,1,1
while not rs.eof
rm=rs("serverurl")&rs("musicpath")
%>
<%=rm%><%=chr(10)%>
<%
rs.movenext
wend
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
<script>if(top==self)top.location="/" </script>