www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > d/drm.asp

    <!--#include file="../connkkp.asp"--><%
id=request("id")
founderr=false
if id="" then
	response.write"<script>alert('请选择你想下载的舞曲!');window.close();</script>"
	founderr=true
end if
if founderr=true then
	call error()
	Response.End 
end if
set rs=server.createobject("adodb.recordset")
sql="select * from user where UserName='"&Session("DJUser")&"' and PassWord='"&Session("DJUserPwd")&"'"
rs.Open sql,conn,1,3
if not rs.eof then
	set rs3=server.createobject("adodb.recordset")
	sql3="select * from Downlog where UserName='"&session("DJUser")&"' and Musicid="&id
	rs3.open sql3,conn,1,3
	if not rs.EOF then
		rs3.AddNew
		rs3("UserName")=session("DJUser")
		rs3("Musicid")=id
		rs3("MusicName")=MusicName
		rs3("Logtime")=now()
		rs3.Update
	end if
	rs3.Close
	set rs3=nothing
rs("downloads")=rs("downloads")+1
rs.Update
end if	
rs.close
set rs=nothing
    set rs=server.createobject("adodb.recordset")
    set Nrs=server.createobject("adodb.recordset")
    id=request("id")
	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")
	rs("downhits")=rs("downhits")+1
	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
    rs.movenext
    wend
    rs.Close
    set rs=nothing
        response.redirect source
conn.close
set conn=nothing 
%>