BVB Source Codes

Seven VIP jubilee dance CMS management system Show Down_Url.asp Source code

Return Download Seven VIP jubilee dance CMS management system: download Down_Url.asp Source code - Download Seven VIP jubilee dance CMS management system Source code - Type:.asp
  1. <!--#include file="../Sql_Conn.asp"-->
  2. <!--#include file="Inc.asp"-->
  3. <!--#include file="Md5.asp"-->
  4. <!--#include file="Config.asp"-->
  5. <%
  6. From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
  7. Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
  8. if mid(From_url,8,len(Serv_url)) <> Serv_url then
  9. response.write "不支持外部链接!"
  10. response.end
  11. end if
  12.  
  13. if request("id")<>"" then
  14.     set rs=server.createobject("adodb.recordset")
  15.     set Nrs=server.createobject("adodb.recordset")
  16.     id=request("id")
  17.     sql="select * from Ylmv_Dj where Dj_Id in (" & id & ")"
  18.     rs.open sql,conn,1,3
  19.     while not rs.eof
  20.     Dj_Url=rs("Dj_Url")
  21.     Mp3_Url=rs("Mp3_Url")
  22.     djname=rs("Dj_Name")
  23.     Path=rs("Path")
  24.     rs("DownHits")=rs("DownHits")+1
  25.     djGrade=rs("Grade")
  26.     djpoints=rs("points")
  27.     sql="select * from Ylmv_DjServer where DjServerId="&Path
  28.     Nrs.open sql,conn,1,1
  29.     DjServerUrl=Nrs("DjServerUrl")
  30.     DjServerDown=Nrs("DjServerDown")
  31.     downurl=DjServerUrl+Dj_Url
  32.     downmp3url=DjServerDown+Mp3_Url
  33.     Nrs.close
  34. if UserLogined<>True then
  35.     Grade=0
  36. else
  37.     Grade=Ylmv_Com_Grade+1
  38. end if
  39.  
  40. if request("l")="1" then
  41.   if djdown<>"yes" then
  42.     Response.Write "<script language=javascript>alert('对不起,本站不开放免费下载功能!');JavaScript:window.close();</script>"
  43.     Response.End
  44.   end if
  45.     response.redirect downurl
  46. elseif request("l")="2" then
  47.   if Mp3_Url<>"" then
  48.   else
  49.     Response.Write "<script language=javascript>alert('对不起,此音乐不开放下载!');JavaScript:window.close();</script>"
  50.     Response.End
  51.   end if
  52.   if UserLogined<>True then
  53.     response.write"<script>alert(' 请登陆后操作,谢谢您的支持 !');location.href = '../user/do.asp?id=login';</script>"
  54.     response.end
  55.   elseif Down_Mp3<>"1" then
  56.     Response.Write "<script language=javascript>alert('对不起,本站不开放收费下载功能!');JavaScript:window.close();</script>"
  57.     Response.End
  58.   elseif Grade<djGrade then
  59.     Response.Write "<script language=javascript>alert('对不起,你的权限不够,不能下载此音乐,请升VIP后再下载!');location.href = '../user/index.asp?do=pay&view=vip';</script>"
  60.     Response.End
  61.   elseif Ylmv_Com_Grade="1" then
  62.     conn.execute("insert into [Ylmv_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&Ylmv_Com_Uid&",'"&Ylmv_Com_Name&"',8,"&id&",0,0,'"&Now()&"')")
  63.     response.redirect downmp3url
  64.   else
  65.    if Ylmv_Com_Points<djpoints then
  66.     Response.Write "<script language=javascript>alert('你的点数不足(你当前点数为:" &Ylmv_Com_Points& ")。\n\n下载此音乐需要 " &djpoints& " 点。\n\n请先充值。');location.href = '../User/User_Main.asp';</script>"
  67.     Response.End
  68.    else
  69.     djID=md5(trim(request("id"))+123)
  70.     if Request.Cookies("Ylmv_Com")("pay_dj" & djID)<>"yes" then
  71.         conn.execute "UPDATE [Ylmv_User] SET points = points - "&djpoints&" where userid="&Ylmv_Com_uid
  72.         conn.execute("insert into [Ylmv_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&Ylmv_Com_Uid&",'"&Ylmv_Com_Name&"',8,"&id&","&djpoints&",0,'"&Now()&"')")
  73.         response.Cookies("Ylmv_Com")("pay_dj" & djID)="yes"
  74.         Response.Cookies("Ylmv_Com").Expires=date+1
  75.     end if
  76.     response.redirect downmp3url
  77.    end if
  78.   end if
  79. end if
  80.  
  81. rs.movenext
  82. wend
  83. rs.Close
  84. set rs=nothing
  85. end if
  86. conn.close
  87. set conn=nothing
  88. %>
downloadDown_Url.asp Source code - Download Seven VIP jubilee dance CMS management system Source code
Related Source Codes/Software:
Jie Yang v0.6.3 article system - System functions: 1, the system settings A confi... 2016-09-21
Download IT mop stand (with site to download the database ACC) - Background management: http://www.xxx.com/admin/ad... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
PeterCMS3 v3.2 - PeterCMS is the original sirenCMS and a series of ... 2016-09-21
Subdomain hosting edition v1.9 s taobao, pat - The background site admin 2016-09-21
126oo CMS film station system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Copy the site source code v2.01 - It is ok to cover the folder % S 2016-09-21
ETsale simple product sales management system V3.0 formal version - ETsale3.0 is developed by PHP+MySQL+Smarty+jQuery ... 2016-09-21
Mobile - shop. Tk all source code - Admin admin.php no database. The total data Modi... 2016-09-22
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top