<% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) If mid(From_url,8,len(Serv_url)) <> Serv_url Then Response.Write "不支持外部链接！" Response.End End If UnionID=13579 '这里设置迅雷联盟的ID号 id=SafeRequest("id","get") if ID="" then Response.Write "" Response.End else if not isInteger(ID) then Response.Write "" Response.End end if end if Set CmsDjMusic = New CmsDj_Com_Dj Set CmsDjServer = New CmsDj_Com_Server Set CmsDjFeed = New CmsDj_Com_Feed Conn.DB "update CmsDj_Dj set CD_DownHits=CD_DownHits+1 where CD_ID="&id,"exe" Set Rs = CmsDjMusic.GetRs("CD_ID,CD_Name,CD_Url,CD_DownUrl,CD_Server,CD_Grade,CD_Points",0,"CD_ID="&ID) If rs.EOF And rs.BOF Then Response.write "" Response.End Else CD_Name=Rs("CD_Name") CD_Url=Rs("CD_Url") CD_DownUrl=Rs("CD_DownUrl") CD_Server=Rs("CD_Server") If CD_Server<>0 Then Set RsServer = CmsDjServer.GetRs("CD_Url,CD_DownUrl",0,"CD_ID="&CD_Server) Ser_Url=RsServer("CD_Url") PlayUrl = RsServer("CD_Url")&CD_Url DownUrl = RsServer("CD_DownUrl")&CD_DownUrl RsServer.Close Set RsServer = Nothing Else PlayUrl = CD_Url DownUrl = CD_DownUrl End If End If If UserLogined<>True Then Grade=0 Else Grade=CmsDj_Com_Grade+1 End If If Gradealert('对不起，请先登陆再下载！');location.href = '"&InstallDir&"user/do.asp?ac=login&refer="&InstallDir&"Down.asp?id="&id&"';":Response.End Else Response.Write "":Response.End End If End If If Rs("CD_DownUrl")<>"" Then DownUrls=DownUrl Else DownUrls=PlayUrl End If If CmsDj_Com_Grade=1 Then Call dj95_com_down() '--VIP下载 Else If CmsDj_Com_Pointsalert('你的点数不足(你当前点数为：" &CmsDj_Com_Points& ")。\n\n下载此音乐需要 " &Rs("CD_Points")& " 点。\n\n请先充值。');location.href = '"&InstallDir&"user/space.asp?do=pay&view=dk';":Response.End Else CD_ID=md5(trim(ID)+123) If Request.Cookies("CmsDj_Com")("Down" & CD_ID)<>"yes" Then Conn.DB "UPDATE [CmsDj_User] SET points = points - "&Rs("CD_Points")&" where UserID="&CmsDj_Com_UserID,"exe" Response.Cookies("CmsDj_Com")("Down" & CD_ID)="yes" Response.Cookies("CmsDj_Com").Expires=Date+1 End If Set RsFeed = CmsDjFeed.GetRs("",0,"FeedA=8 and UserID="&CmsDj_Com_UserID&" and FeedB="&ID) If Not RsFeed.eof Then Conn.DB "update CmsDj_Feed set FeedE=Now() where FeedA=8 and UserID="&CmsDj_Com_UserID&" and FeedB="&ID,"exe" Else Conn.DB "insert into [CmsDj_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&CmsDj_Com_UserID&",'"&CmsDj_Com_UserName&"',8,"&id&","&Rs("CD_Points")&",0,'"&Now()&"')","exe" End If RsFeed.Close Set RsFeed=Nothing End If Rs.Close:Set Rs = Nothing Call dj95_com_down() End If Sub dj95_com_down() if Ser_Url="http://dj95.www.dj95.com/" then DJ95_md5=md5(Dj95_ym&Dj95_key&id) PlayUrl="http://www.95dj.com/flash/api_play.do?v="&Dj95_name&"&w=430&h=64&color=lan&id="&id&"&u="&CD_Url&"&ac=down" Response.write " " Response.write "
注意：如果遇到不能下载，请用右键目标另寸为!" else 'thunderUrl = ThunderEncode(DownUrls) 'Response.Write "" 'Response.Write "" .Response.Write "" Response.write "
注意：如果遇到不能下载，请用右键目标另寸为!" end if End Sub %>