⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 music_down.asp

📁 打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx
💻 ASP
字号:
<!-- #include file="include/con_music.asp" -->
<!-- #include file="include/con_music_other.asp" -->
<!-- #include file="include/jk_emoney.asp" -->
<%
tit="下载歌曲"
dim MusicName,downurl,Singer,counter,music_power,music_emoney
call web_head(0,0,4,0,0)

if not(isnumeric(id)) then
  call format_redirect("music_down.asp")
end if
  sql = "select * from music_song where hidden=1 and id="&id
  set rs=joekoe_cms.exec(sql,1)
  MusicName=rs("name")
  downurl=rs("url")
  if rs("urltype")<>0 then
  downurl=music_se.music_server(int(rs("urltype")),1,downurl)
  end if
  Singer=rs("Singer")
  counter=rs("counter")
  music_power=rs("power")
  music_emoney=rs("emoney")
  rs.close
'----------------------------下载 开始----------------------------
if action="download" then
  dim down_true
  response.clear
  if not joekoe_cms.post_chk() then
    call music_error("歌曲下载出错:\n\n请不要使用WebZip、Teleport这类软件下载本站数据;\n也不要使用googlebot这类浏览器浏览本站;\n\n请更改浏览器或停止非法操作后再访问本站,谢谢。")
  end if
  if music_se.music_free then
    down_true=true
  else
    down_true=emoney_notes(music_power,music_emoney,"music",id,0,"")
  end if
  if not down_true then
    call music_error("歌曲下载出错:\n\n您没有足够的权限或钱币进行刚才的操作!\n\n也可能您还没有注册和登陆本站。")
  end if
  sql="update music_song set counter=counter+1 where id="&id
  call joekoe_cms.exec(sql,0)
  sql="update user_data set emoney=emoney-"&music_emoney&" where id="&id
  call joekoe_cms.exec(sql,0)
  call web_clear(0)
  response.clear
  response.write "nodownload"
  response.redirect downurl
  response.end
end if
'----------------------------下载 结束----------------------------
call music_load()

call down_main()
'----------------------------中间 结束----------------------------
call web_end(0,1)

sub down_main()
%>
<script language=javascript>
function down_load(url)
{
  var t1=note_emoney('下载此歌曲','<%response.write music_emoney%>','<%response.write music_power%>');
  if (t1)
  {
    document.down_frm.submit();
  }
}
</script>
<table border=0 width='100%' cellspacing=1 cellpadding=1 class=mtb>
<tr>
<td colspan=2 class=td>&nbsp;<%response.write img_skin("m_user")%> 下载歌曲</td>
</tr>
<form name=down_frm action='?action=download&id=<%response.write id%>' method=post target=hiddenframe>
<tr class=bg_tds><td width=15%></td><td width=85%></td></tr>
  <tr class=bg_tds height=24>
    <td>歌曲名称:</td>
  <td><%=MusicName%></td></tr>
    <tr class=bg_td height=24>
  <td>歌手姓名:</td>
  <td><%=Singer%></td></tr>
  <tr class=bg_td height=24><td>下载次数:</td>
  <td><%=counter%></td></tr>
  <tr class=bg_tds height=24>
  <td>下载权限:</td>
  <td><%response.write format_emoney_power(""&music_emoney&"",""&music_power&"",1)%></td>
  </tr>
  <tr class=bg_td height=24>
  <td>下载地址:</td>
  <td><a href='javascript:;' onclick="javascript:down_load('');"><img src='images/down/download.gif' border=0></a></td></tr>
  <tr class=bg_tds height=30>
  <td colspan=2><%response.write img_user()%></td></tr>
  <tr class=bg_td height=30>
  <td><font class=red>免费声明:</font></td><td>&nbsp;如果您是本站的免费用户,将不会扣除您的金币。<br>&nbsp;免费用户包括月卡、季卡和年卡以及系统设定的免费用户和免费IP用户。</td></tr>
  </form></table>
<%end sub%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -