admin_music.asp

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

<!-- #include file="include/admin_onlogin.asp" -->
<!-- #InclUDE file="include/jk_pagecute.asp" -->
<!--#include file="include/con_music_conn.asp"-->
<%
tit="专辑管理"  
index_url="music"
call admin_master(0,0)
call admin_header(0,0)

%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a class=h_menu onmouseover=ShowMenu(strMenu_music,100) href='admin_music.asp'>音乐列表</a></td>
  <td width=10></td>
  <td><a href='admin_music_list.asp'>歌曲管理</a></td>
  <td width=10></td>
  <td><a class=h_menu onmouseover=ShowMenu(strMenu_singer,100) href='admin_music_singer.asp'>歌手管理</a></td>
  <td width=10></td>
  <td><a href='admin_music.asp?action=disk_list'>专辑管理</a></td> 
  <td width=10></td>
  <td><a href='admin_music_sort.asp'>音乐分类</a></td>
  <td width=10></td>
  <td><a href='admin_song.asp'>点歌管理</a></td>
  <td width=10></td>
  <td><a href='admin_fav.asp'>歌曲收藏</a></td>
  <td width=10></td>
  <td><a href='admin_disk.asp'>专辑收藏</a></td>
  </tr>
  </table>
</td></tr>
<tr><td colspan=2 align=center>
  <table border=0 cellspacing=0 cellpadding=2>
  <form action='admin_music_search.asp' name="search" method="post">
  <input type=hidden name=sea_term value='only'>
  <input type=hidden name=sea_type value='name'>
  <tr>
  <td>音 乐 搜 索</td>
  <td>&nbsp;<select name='stype' size=1>
<option value='Special'>专辑</option>
<option value='Music'>音乐</option>
<option value='Singer'>歌手</option>
</select></td>
  <td>&nbsp;<input type='text' name='keyword' value='' size=12 maxlength=20 alt='多个关键字请用 空格 格开'></td>
  <td>&nbsp;<select name=s_area size=1>
<option value='' class=mbg_tds>所有地区</option>
<option value='1'>大陆地区</option>
<option value='2'>港台地区</option>
<option value='3'>海外地区</option></select></td>
  <td>&nbsp;<select name=s_sex size=1>
<option value='' class=mbg_tds>所有歌手</option>
<option value='1'>男歌手</option>
<option value='2'>女歌手</option>
<option value='3'>乐队组合</option></select></td>
  <td>&nbsp;<select name=s_lang size=1>
<option value='' class=mbg_tds>语言</option>
<option value='中文'>中文</option>
<option value='粤语'>粤语</option>
<option value='英文'>英文</option>
<option value='日文'>日文</option>
<option value='韩文'>韩文</option>
<option value='其它'>其它</option>
</select></td>
  <td valign=top>&nbsp;<input type=submit value='搜 索'></td>
  </tr>
  </form>
</table>
<%
dim currentpage,classid,nclassid,pagename,maxperpage,totalput,n,sclassid
dim rs2,rs3,sql2,sql3,j,askclassid,asksclassid,mv_page,k,thischar,asknclassid,specialid
dim name,pic,times,yuyan,gongsi,intro,act,gong

select case action
case "disk_main"
  call disk_main()
case "disk_add"
  call disk_add()
case "disk_list"
  call disk_list()
case "disk_good"
  call disk_good()
case "disk_edit"
  call disk_edit()
case "disk_del"
  call disk_del()
case "music_add"
  call music_add()
case else
  call music_main()
end select

sub  music_main()

set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
sql="select * from mv_class order by classid"
rs.open sql,conn_mv,1,1
i=request("id")
if i="" then i=rs("classid")
do while not rs.eof
rs.movenext
loop
rs.close
sql="select * from mv_class where classid="&i
rs.open sql,conn_mv,1,1
if rs.eof then
else
%>
<table class=table cellspacing=1 cellpadding=1>
<tr align=center>
    <td width="12%" height=25>序号</td>
    <td width="53%">分类名称</td>
    <td width="35%">说明</td>
</tr>
<%
sql2="select * from mv_sclass where classid="&rs("classid")&" order by sclassid"
rs2.open sql2,conn_mv,1,1
if rs2.eof then
else
j=0
do while not rs2.eof
j=j+1
%>
<tr>
<td height=22 align=center><%=j%></td>
<td>&nbsp;&nbsp;<a title="进入管理 <%=rs2("sclass")%> 所属歌手 " href=?action=disk_main&classid=<%=rs("classid")%>&sclassid=<%=rs2("sclassid")%>><%=rs2("sclass")%></a></td>
<td class=gray align=center>根据歌手的分类进入添加歌曲</td>
<%
rs2.movenext
loop
end if
rs2.close
end if
rs.close
%>
<tr align=center>
<td align=right><%call admin_read("","系统更新通知","有关您正在使用的这个系统官方站点所发布的更新信息，包括安全补丁，功能升级等；建议在每次登陆管理后台时注意一下。")%>&nbsp;</td>
<td height=25 colspan="2"><script language="javascript" src="http://qiuyue.uumuu.com/update/mvhome_cms.js"></script></td>
</tr>
</table>
<%
end sub

sub disk_main()
classid=Request.QueryString ("classid")
sclassid=Request.QueryString ("sclassid")
if classid="" and sclassid="" then
	askclassid=Request.QueryString ("askclassid")
	asksclassid=Request.QueryString ("asksclassid")
	mv_page=Request.QueryString ("")
end if
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
%>
<table class=table cellspacing=1 cellpadding=1>
<tr>
<td width="10%" height="30" align=center>
<a href="?action=disk_add&classid=1&sclassid=<%=sclassid%>" title="点击这里可以直接添加专辑">快速添加</a>
</td>
   <td height="20" colspan=3 align="center" width="75%">
      <a href="#a"><B>A</B></a>  
      <a href="#b"><B>B</B></a>  <a href="#c"><B>C</B></a> 
      <a href="#d"><B>D</B></a>  <a href="#e"><B>E</B></a> 
      <a href="#f"><B>F</B></a>  <a href="#g"><B>G</B></a> 
      <a href="#h"><B>H</B></a>  <a href="#i"><B>I</B></a> 
      <a href="#j"><B>J</B></a>  <a href="#k"><B>K</B></a> 
      <a href="#l"><B>L</B></a>  <a href="#m"><B>M</B></a> 
      <a href="#n"><B>N</B></a>  <a href="#o"><B>O</B></a> 
      <a href="#p"><B>P</B></a>  <a href="#q"><B>Q</B></a> 
      <a href="#r"><B>R</B></a>  <a href="#s"><B>S</B></a> 
      <a href="#t"><B>T</B></a>  <a href="#u"><B>U</B></a> 
      <a href="#v"><B>V</B></a>  <a href="#w"><B>W</B></a> 
      <a href="#x"><B>X</B></a>  <a href="#y"><B>Y</B></a> 
      <a href="#z"><B>Z</B></a>
   </td>
</tr>
<%
sql="select * from mv_class order by classid"
rs.open sql,conn_mv,1,1
if rs.eof then
else
	do while not rs.eof
	rs.movenext
	loop
end if
rs.close

sql3="select * from mv_nclass where sclassid="&sclassid&" order by abcd"
rs3.open sql3,conn_mv,1,1
maxperpage=10000

sql="select * from mv_class where classid="&classid
rs.open sql,conn_mv,1,1
if not rs.eof then
end if
if rs3.eof then

Response.Write " <tr><td colspan=4 align=center>尚无任何分类</td></tr>"

else
k=0
do while not rs3.eof
k=k+1
if thischar<>rs3("Abcd") then
thischar=rs3("Abcd")
if i=0 then
Response.Write "<tr align=center><td colspan=3><a name="&thischar&"><b><font class=red_3 face=Verdana, Arial, Helvetica, sans-serif size=4>"&thischar&"</font></b></a></td><td><a href='#top'>TOP</a></td></tr>"
else
Response.Write "<tr align=center><td colspan=4><a name="&thischar&"><b><font class=red_3 face=Verdana, Arial, Helvetica, sans-serif size=4>"&thischar&"</font></b></a></td></tr>"
end if
end if
%>
 <tr height=22 align=center>
     <td width="10%" align=left><%=rs3("nclassID")%></td>
     <td width="45%" align=left><a href='?action=disk_add&classid=<%=rs3("classid")%>&sclassid=<%=rs3("sclassid")%>&nclassid=<%=rs3("nclassID")%>'><%=rs3("nclass")%></a></td>
     <td width="20%"><a href='?action=disk_add&classid=<%=rs3("classid")%>&sclassid=<%=rs3("sclassid")%>&nclassid=<%=rs3("nclassID")%>'>添加专辑</a></td>
     <td width="25%"><a href=?action=disk_list&classid=<%=rs3("classid")%>&sclassid=<%=rs3("sclassid")%>&nclassid=<%=rs3("nclassid")%>>浏览该歌手的所有专辑</a></td>
 </tr>
<%
if k>=maxperpage then exit do
rs3.movenext
loop
end if
rs3.close
%>
</table>
<%
end sub

sub disk_add()
classid=cstr(trim(request.QueryString("classid")))
sclassid=cstr(trim(request.QueryString("sclassid")))
nclassid=cstr(trim(request.QueryString("nclassid")))
%>
<script>
function submitonce(theform){
	//if IE 4+ or NS 6+
	if (document.all||document.getElementById){
	//screen thru every element in the form, and hunt down "submit" and "reset"
	for (i=0;i<theform.length;i++){
		var tempobj=theform.elements[i]
		if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
		//disable em
		tempobj.disabled=true
		}
	}
}
</script>
<table class=table cellspacing=1 cellpadding=1>
<tr align=center>
   <td height="25">
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
       <form method="POST" action="admin_music_view.asp" id=form2 name=form2 onsubmit="submitonce(this);">
           <tr align=center>
              <td width="100%">&nbsp;一级栏目：
              <select class=input name="classid" size="1" onchange="window.open('?action=disk_add&classid='+this.options[this.selectedIndex].value,'_self')">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from mv_class"
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>