www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > d/dmp3.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 isnull(session("DJUser")) or isnull(session("DJUserPwd")) or session("DJUser")="" or session("DJUserPwd")="" then
	response.write"<script>alert('请先登陆！只有会员才能下载Mp3格式舞曲!');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 Musiclist where id="&id&""
rs.open sql,conn,1,1
If rs.eof Then 
	banner=banner&"暂时没任何记录！"
Else 
	banner=banner&""&rs("Music_Points")&""
	Music_Points=rs("Music_Points")
	mp3downid=rs("mp3downid")
	DownUrl=rs("DownUrl")
End If
if rs("mp3downid")="" or rs("DownUrl")="" then 
response.redirect "/"
else
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 rs.eof then
	response.write"<script>alert('会员帐号或密码错误！请重新登陆!');</script>"
	founderr=true
else
			if rs("Points")<Music_Points then
			response.write"<script>alert('你的剩余点数不够下载这首舞曲！');window.close();</script>"
			response.end
			else
			rs("points")=rs("points")-Music_Points
			end if
	rs("downloads")=rs("downloads")+1
	rs.Update
end if	
rs.close
set rs=nothing
	set Box_rs=server.createobject("adodb.recordset")
	Box_sql="select * from Mp3DownServer where mp3downid="&mp3downid
	Box_rs.open Box_sql,conn,1,1
        if not rs.eof then
		mp3downid=Box_rs("Mp3DownServerUrl")
        end if
	Box_rs.close
	set Box_rs=nothing
	mp3down=mp3downid+DownUrl
        response.redirect mp3down
end if
conn.close
set conn=nothing 
%>