admin_music_song.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="include/admin_onlogin.asp" -->
<!-- #include file="admin_music_config.asp" -->
<%
del_user_true=true
del_upload_true=true
tit="歌曲管理"
index_url="msong"
call admin_master(0,0)
data_name="music_song"
call admin_header(0,0)
select case jk_mod
case "istop"
  ntit="推荐"&tit_fir
  sql_add=" where hidden=1 and istop=1"
case "sh"
  ntit="待审核"&tit_fir
  sql_add=" where hidden=0"
case else
  jk_mod=""
  ntit=tit_fir&"列表"
  sql_add=" where hidden=1"
end select
%>
<tr><td colspan=2 align=center>
 <table border=0>
  <tr>
  <td><a href='?'><%response.write tit_fir%>列表</a></td>
  <td width=10></td>
  <td><a href='?jk_mod=sh'<%if jk_mod="sh" then response.write " class=red"%>>待审核<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?jk_mod=istop'<%if jk_mod="istop" then response.write " class=red"%>>推荐<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?action=add&c_id=<%=c_id%>&s_id=<%=s_id%>&n_id=<%=n_id%>&d_id=<%=d_id%>'<%if action="add" then response.write " class=red"%>>添加<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='admin_music_singer.asp'>歌手管理</a></td>
  <td width=10></td>
  <td><a href='admin_music_disk.asp'>专辑管理</a></td>
  <td width=10></td>
  <td><a href='?action=clear' onclick="javascript:return click_return('清空所有歌曲',0);">清空所有歌曲</a></td>
  </tr>
  </table>
</td></tr>
<tr><td colspan=2 align=center>
  <table border=0 cellspacing=0 cellpadding=2>
  <form action='?' method=get>
  <tr>
  <td>搜索（点歌列表）关键字：</td>
  <td><input type=text name=keyword value='<%response.write trim(request.querystring("keyword"))%>' size=15 maxlength=20></td>
  <td><select name=sea_type size=1>
  <option value='name'>按歌曲名称</option>
  <option value='singer'>按所属歌手</option>
  </select></td>
  <td><select name=sea_term size=1>
  <option value='all'>满足所有条件</option>
  <option value='only'>满足一个条件</option>
  </select></td>
  <td><input type=submit value='搜索'></td>
  </tr>
  </form>
  </table>
</td></tr>
<%
call admin_table(1)
if action="handle" then call joekoe_go_handle()
select case action
  case "add"
    call song_add()
  case "edit"
    call song_edit()
  case "clear"
    call joekoe_go_clear()
  case else
    call song_list_main()
end select
call admin_ender(1)
'-----------------------------------删除歌曲-------------------------------------------
sub song_del()
  dim sel_id,sdim,snum,del_type
  sel_id=trim(request.form("sel_id"))
  sel_id=replace(sel_id," ","")
  if sel_id="" then
    call web_js_msg(1,"没有可删除的歌曲！","?")
  end if
  sdim=split(sel_id,",")
  snum=ubound(sdim)
  for i=0 to snum
    if isnumeric(sdim(i)) then
      sql="delete from music_song where id="&sdim(i)
      call joekoe_cms.exec(sql,0)
    end if
  next
  erase sdim
  call admin_msg("已成功删除"&(snum+1)&"首歌曲！","?c_id="&c_id&"&s_id="&s_id&"&n_id="&n_id,0)
end sub
'-----------------------------------修改歌曲-------------------------------------------
sub song_edit()
  dim power,emoney,tim,musicserver,username,ispic,smi,hidden
  sql="select * from music_singer where id="&n_id
  set rs=joekoe_cms.exec(sql,1)
  singer=rs("name")
  rs.close
  sql="select * from music_song where id="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
      rs.close
      call admin_msg(tit_fir&"ID（"&id&"）不存在！","?",1)
      exit sub
    end if
  if chk() then
    if trim(request("MusicName"))="" then 
      rs.close
      call admin_error("歌曲名称不能为空！")
      exit sub
    end if
    musicserver=trim(request.form("musicserver"))
    if musicserver="" or isnull(musicserver) then musicserver=0
    musicserver=int(musicserver)
    if musicserver>0 and instr(trim(request.form("ListenUrl")),"://")<>0 then
      call admin_error("本地服务器"&tit_fir&"地址"&i&" 错误！请输入服务器相对路径！")
      exit sub
    end if
    if musicserver=0 and instr(trim(request.form("ListenUrl")),"://")<1 then
      call admin_error("非本地服务器"&tit_fir&"地址"&i&" 错误！请输入服务器绝对路径！")
      exit sub
    end if
    power=code_admin("power",1,50)
    power=replace(power," ","")
    power=replace(power,",",".")
    emoney=trim(request.form("emoney"))
    if not isnumeric(emoney) then emoney=0
    smi=code_admin("pic",1,100)
    rs("url")=trim(request.form("ListenUrl"))
    rs("urltype")=musicserver
    rs("Name")=trim(request.form("MusicName"))
    rs("c_id")=c_id
    rs("s_id")=s_id
    rs("n_id")=n_id
    rs("d_id")=d_id
    rs("power")=power
    rs("emoney")=emoney
    rs("username")=trim(request.form("username"))
    rs("singer")=trim(request.form("singer"))
    rs("words")=Request.Form("songwords")
    rs("smi")=smi
    tim=code_admin("tim",1,20)
    tim=joekoe_cms.time_type(tim,1)
    if tim="" then tim=joekoe_cms.now_time
    rs("tim")=tim
    isgood=trim(request.form("isgood"))
    hidden=trim(request.form("hidden"))
    if isgood="yes" then
      rs("istop")=true
    else
      rs("istop")=false
    end if
    if hidden="yes" then
      rs("hidden")=false
    else
      rs("hidden")=true
    end if
    rs.update
    rs.close
    sql="select * from music_fav where f_id="&id
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,3
    if not rs.eof then
      rs("Name")=trim(request.form("MusicName"))
      rs.update
    end if
    rs.close
    call admin_msg("已成功修改了一首歌曲！","?c_id="&cid&"&s_id="&sid&"&n_id="&n_id,0)
    exit sub
  end if
  call form_first()
  ispic=apart_filename(pic,1,"/")
  if ispic="" then ispic=joekoe_cms.rand_file(index_url)
%>
<tr><td colspan=2 class=td>修改歌曲&nbsp;<%=MusicName%>&nbsp;的资料</td></tr>
<form method="POST" action="?action=edit&types=chk&id=<%=id%>&c_id=<%=c_id%>&s_id=<%=s_id%>&n_id=<%=n_id%>&page=<%=page%>" name="edit_frm" onsubmit="return Form1_Validator(this)"><input type="hidden" name="singer" value="<%=singer%>">
<input type=hidden name=chk value='yes'>
<tr>
<td>所属专辑：</td><td><%response.write sel_c_id("?action=edit&id="&id)&sel_s_id("?action=edit&id="&id)&sel_n_id("?action=edit&id="&id)&sel_d_id("?action=edit&id="&id)%></td>
</tr>
<tr>
<td>歌曲名称：</td><td><input type="text" name="MusicName" size="60" maxlength="50" value="<%=rs("Name")%>"></td>
</tr>
<tr><td>服务器设置：</td><td>
<select size=1 name=musicserver>
<option value=0>非本地服务器</option>
<%
dim servername,serurl
servername=split(web_dim(28),"$")
for i=1 to ubound(servername)+1
serurl=split(servername(i-1),"|")
%>
<option value='<%=i%>' <%if rs("urltype")=i then%> selected<%end if%>>音频服务器<%=i&serurl(0)%></option>
<%
erase serurl
next
erase servername
%>
</select>
<% response.write redx %></td></tr>
<tr>
<td width="15%">试听地址：</td><td width="85%"><input type="text" name="ListenUrl" value="<%=rs("url")%>" size="60"><br><font class=red>（注意：如果选择了非本地服务器，请输入歌曲绝对地址）</font></td>
</tr>
<tr>
<td>发布时间：</td><td><input type="text" name="tim" value="<%=rs("tim")%>" size=20 maxlength=40>&nbsp;<input type=button name=st_btn value="选择" onclick="javascript:select_time(tim);return false;">&nbsp;&nbsp;浏览：<input type="text" name="hits" value="<%=rs("hits")%>" size=5 maxlength=40>&nbsp;人次&nbsp;&nbsp;推荐：<input type=checkbox name=isgood<%if rs("istop")=true then response.write " checked"%> value='yes'>&nbsp;&nbsp;隐藏/审核：<input type=checkbox name=hidden<%if rs("hidden")=false then response.write " checked"%> value='yes'></td>
</tr>
<%call chk_power("试听",rs("power"),0)%>
<tr>
<td>歌曲发布人：</td><td><input type="text" name="username" value="<%=rs("username")%>" size=20 maxlength=40>&nbsp;&nbsp;<%call chk_emoney(rs("emoney"))%></td>
</tr>
<tr>
<td><%call frm_ubb_type("")%></td>
<td><%call frm_ubb("edit_frm","remark","&nbsp;&nbsp;",0)%></td>
</tr>
<tr>
<td valign=top>歌词内容：</td>
<td>
<table border=0><tr>
<td><textarea name=songwords rows=6 cols=65><%response.write joekoe_cms.code_word(rs("words"))%></textarea></td>
<td width=5></td>
<td valign=bottom><%call textarea_resize("songwords")%></td>
</tr></table>
</td>
</tr>
<tr>
<td>SMI歌词：</td><td><input type="text" name="pic" size="50" value="<%=rs("smi")%>"></td>
</tr>
<tr>
<td>上传歌词：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic'></iframe></td>
</tr>
<%
  call submit_edit()
  rs.close
end sub
'-----------------------------------添加歌曲-------------------------------------------
sub song_add()