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
%>