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