www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/sowrm.asp
<!--#include file="checkadmin.inc"--><!--#include file="const.asp"--><%=playstart%><%=chr(10)%><% if request("songid")<>"" then set rs=server.createobject("adodb.recordset") set Nrs=server.createobject("adodb.recordset") id=request("songid") sql="select * from Musiclist where id in (" & id & ")" rs.open sql,conn,1,3 while not rs.eof ListenUrl=rs("ListenUrl") LS_ID=rs("LS_ID") source=ListenUrl if LS_ID<>"" then sql="select ListenServerUrl from DJServer where LServerID="&LS_ID Nrs.open sql,conn,1,1 ListenServerUrl=Nrs("ListenServerUrl") source=ListenServerUrl+ListenUrl Nrs.close end if %><%=source%><%=chr(10)%><% rs.movenext wend rs.Close set rs=nothing end if conn.close set conn=nothing %>