admin_music_mtv.asp

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

    </td>
</tr>
<tr align=center>
    <td height="25" align=center class=td>
        <input type="hidden" value="add" name="act"> 
<%if classid="" then%>
        <input type="button" class=input value=" 确 定 " name="cmdok" onclick="window.alert('请先选择栏目！')">&nbsp; 
<%elseif nclassid="" then%>
        <input type="button" class=input value=" 确 定 " name="cmdok" onclick="window.alert('请先选择子栏目！')">&nbsp; 
<%else%>
        <input type="submit" class=input value=" 确 定 " name="cmdok">&nbsp; 
<%end if%>
        <input type="reset" class=input value=" 取 消 " name="cmdcancel"></td>
</tr>
</form>
</table>
<%
end sub

sub disk_list()
if not isempty(request.QueryString("page")) and request.QueryString("page")<>"" then
	currentpage=cint(request.QueryString("page"))
else
	currentpage=1
end if
if request.QueryString("classid")<>"" then
	classid=request.QueryString("classid")
else
	classid=""
end if
if request.QueryString("nclassid")<>"" then
	nclassid=request.QueryString("nclassid")
else
	nclassid=""
end if

set rs=conn_mv.execute("SELECT * FROM mv_class order by classid") 
if not Rs.eof then
	if Left(pagename,5)="admin" and pagename<>"index" then
			do while not rs.eof
			rs.movenext
			loop
		elseif pagename="AddFilelist" or pagename="AddFileModify" or pagename="AddFilelist" then
			do while not rs.eof
			rs.movenext
			loop
		else
			do while not rs.eof
			rs.movenext
			loop
		end if
	else
		do while not rs.eof
		rs.movenext
		loop
	end if
rs.close
%>
<table border="0" width="98%" cellspacing="1" cellpadding="1">
  <tr>
    <td align=center width="100%" valign=top>
<%
if request.QueryString("nclassid")<>"" then
	sql="select * from mv_MtvList where nclassid="+cstr(nclassid)+" order by id desc" 
elseif request.QueryString("classid")<>"" then
	sql="select * from mv_MtvList where classid="+cstr(classid)+" order by id desc" 
else
	sql="select * from mv_MtvList order by id desc" 
end if
rs.open sql,conn_mv,1,1
if rs.eof and rs.bof then 
	response.write "<p align='center'>暂时没有任何mtv</p>" 
else 
	maxperpage=60
	pageUrl="?action=disk_list"
	totalput=rs.recordcount 
	if currentpage<1 then currentpage=1
	if (currentpage-1)*maxperpage>totalput then 
		if (totalput mod maxperpage)=0 then 
			currentpage= totalput \ maxperpage 
		else 
			currentpage= totalput \ maxperpage + 1 
		end if 
	end if 
	if currentpage=1 then 
		showContent 
		showpage totalput,maxperpage,pageUrl
	else 
		if (currentpage-1)*maxperpage<totalput then 
			rs.move  (currentpage-1)*maxperpage 
			dim bookmark 
			bookmark=rs.bookmark 
			showContent 
			showpage totalput,maxperpage,pageUrl
		else 
			currentpage=1 
			showContent 
			showpage totalput,maxperpage,pageUrl
		end if 
	end if 
end if 
rs.close
end sub

sub showContent 
i=0 %>
           <table class=table cellspacing=1 cellpadding=1>
            <tr align=center height=30 align=center>
                <td width="45%"><b>mtv名称</b></td>
                <td width="25%"><b>所属歌手</b></td>
                <td width="10%"><b>首页推荐</b></td>
                <td width="5%"><b>修改</b></td>
                <td width="5%"><b>删除</b></td>
              </tr>
<%
do while not rs.eof
	i=i+1
%>
              <tr align=center height=25>
                <td align=left>&nbsp;<%=i%>.<a href="?action=disk_edit&id=<%=rs("id")%>&askclassid=<%=rs("classid")%>&asksclassid=<%=rs("sclassid")%>&asknclassid=<%=rs("nclassid")%>&page=<%=Currentpage%>"><font color=black><%=rs("name")%></font></a></td>
                <td><%=rs("nclass")%></td>
                <td><a href="?action=disk_good&act=Setisgood&id=<%=rs("id")%>&askclassid=<%=classid%>&asksclassid=<%=sclassid%>&asknclassid=<%=nclassid%>&page=<%=Currentpage%>"><%if rs("Isgood")=true then%><font color=red>撤销</font> <%else%> 推荐 <%end if%></a></td>
                <td><a href="?action=disk_edit&id=<%=rs("id")%>&askclassid=<%=rs("classid")%>&asksclassid=<%=rs("sclassid")%>&asknclassid=<%=rs("nclassid")%>&page=<%=Currentpage%>">修改</a></td>
                <td><a title="不到万一请不要用此功能" href="?action=disk_del&id=<%=rs("id")%>&classid=<%=rs("classid")%>&asksclassid=<%=rs("sclassid")%>&nclassid=<%=rs("nclassid")%>&page=<%=Currentpage%>"><font color=red>删除</font></a></td> 
              </tr>
<%
	if i>=maxperpage then exit do
rs.movenext
loop
%>
            </table>
<%
end sub 

function showpage(totalnumber,maxperpage,filename)
if totalnumber mod maxperpage=0 then
	n= totalnumber \ maxperpage
else
	n= totalnumber \ maxperpage+1
end if
%>
<form method=Post action="<%=filename%>?classid=<%=classid%>&nclassid=<%=nclassid%>">
  <center>共有<b><%=totalnumber%></b>张mtv
<%if Currentpage<2 then%>
  &nbsp;首页 上一页&nbsp;
<%else%>
  &nbsp<a href="<%=filename%>?page=1&classid=<%=classid%>&nclassid=<%=nclassid%>">首页</a>&nbsp;
  <a href="<%=filename%>?page=<%=Currentpage-1%>&classid=<%=classid%>&nclassid=<%=nclassid%>">上一页</a>&nbsp;
<%
end if
if n-currentpage<1 then
%>
  下一页 末页
<%else%>
  <a href="<%=filename%>?page=<%=Currentpage+1%>&classid=<%=classid%>&nclassid=<%=nclassid%>">下一页</a>
  <a href="<%=filename%>?page=<%=n%>&classid=<%=classid%>&nclassid=<%=nclassid%>">末页</a>
<%end if%>
  &nbsp;页次:<strong><%=Currentpage%>/<%=n%></strong>页
  转到:<select name="page" size="1" onchange="javascript:submit()">
<%for i = 1 to n%>           
  <option value="<%=i%>" <%if cint(Currentpage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>   
<%next%>   
  </select>        
</form>        
<%end function%>
    </td>
  </tr>
</table>
<%


sub disk_good()
act=request("act")
page=request.QueryString("page")
askclassid=request.QueryString("askclassid")
asksclassid=request.QueryString("asksclassid")
asknclassid=request.QueryString("asknclassid")
id=request.QueryString("id")
if act<>"Setisgood" then
	act=request("act")
end if
set rs=server.createobject("adodb.recordset")

if act="Setisgood" then
		
		sql="select Isgood from mv_MtvList where id="&id
		rs.open sql,conn_mv,1,3
		if not rs.EOF then
			if rs("Isgood")=true then
				rs("Isgood")=false
			else
				rs("Isgood")=true
			end if
			rs.update

end if	
	rs.close
	else
		conn_mv.close
		set conn_mv=nothing
		call error()
		Response.End
	end if
	set rs=nothing
conn_mv.close
set conn_mv=nothing
Response.Redirect "?action=disk_list&classid="+askclassid+"&sclassid="+asksclassid+"&nclassid="+asknclassid+"&page="+page
end sub

sub error()
response.write vbcrlf&"<scRIPT language=Javascript>alert('操作错误！\n\n请到 秋月家园(http://www.mvhome.net/) 查阅相关贴子！\n\n点击返回... ');javascript:history.go(-1);</scRIPT>"
end sub

sub disk_edit()
classid=cstr(trim(request.QueryString("classid")))
sclassid=cstr(trim(request.QueryString("sclassid")))
nclassid=cstr(trim(request.QueryString("nclassid")))
id=request.QueryString("id")
askclassid=request.QueryString("askclassid")
asksclassid=request.QueryString("asksclassid")
asknclassid=request.QueryString("asknclassid")
set rs=server.createobject("adodb.recordset")
sql="select * from mv_MtvList where id="&id
rs.open sql,conn_mv,1,1
if rs.eof then
	call error()
	Response.End 
else
	name=rs("name")
	classid=rs("classid")
	SClassid=rs("SClassid")
	Nclassid=rs("Nclassid")
	name=rs("name")
	pic=rs("pic")
	Times=rs("Times")
	Yuyan=rs("Yuyan")
	mtvurl=rs("mtvurl")
	singer=rs("singer")
	hot=rs("hot")
rs.close
end if
%>
<table class=table cellspacing=1 cellpadding=1>
<tr height="25" align=center><td>修 改 mtv</td></tr>
<tr align=center><td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<form method="POST" action="admin_music_mtvview.asp?id=<%=id%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>" id=form2 name=form2>
<tr><td width="100%" height="22">&nbsp;一级栏目：
<select class=input  name="classid" size="1" onchange="window.open('?action=disk_edit&id=<%=id%>&askclassid=<%=askclassid%>&asksclassid=<%=asksclassid%>&asknclassid=<%=asknclassid%>&page=<%=request("page")%>&classid='+this.options[this.selectedIndex].value,'_self')">
<%
sql="select * from mv_class"
rs.open sql,conn_mv,1,1
Do until rs.eof
%>
<option<%if (cstr(request("classid"))=cstr(rs("classid")) and request("classid")<>"") or (cstr(classid)=cstr(rs("classid")) and request("classid")="") then%> Selected<%end if%> value="<%=Cstr(rs("classid"))%>"><%=rs("class")%></option>
<%rs.MoveNext
Loop
rs.close
%>
</select>&nbsp;二级栏目：
<%if request("classid")<>"" or request("sclassid")<>"" then
if request("classid")<>"" then%>
<select class=input  name="sclassid" size="1" onchange="window.open('?action=disk_edit&id=<%=request("id")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=request("classid")%>&sclassid='+this.options[this.selectedIndex].value,'_self')">
<%else%>
<select class=input  name="sclassid" size="1" onchange="window.open('?action=diskl_edit&id=<%=request("id")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=classid%>&sclassid='+this.options[this.selectedIndex].value,'_self')">
<%end if%>
<option value="" <%if request("sclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
if request("classid")<>"" then
sql="select * from mv_sclass where classid="&request("classid")
else
sql="select * from mv_sclass where classid="&classid
end if
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>
<option<%if (cstr(request("sclassid"))=cstr(rs("sclassid")) and request("sclassid")<>"") then%> selected<%end if%> value="<%=CStr(rs("sclassid"))%>" name=sclassid><%=rs("sclass")%></option>
<%
rs.MoveNext
Loop
rs.close
else
%>
<select  class=input name="sclassid" size="1" onchange="window.open('?action=disk_edit&id=<%=request("id")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=request("classid")%>&sclassid='+this.options[this.selectedIndex].value,'_self')">
<option value="">选择栏目</option>
<%
sql="select * from mv_sclass where classid="&classid
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>
<option<%if cstr(sclassid)=cstr(rs("sclassid")) then%> selected<%end if%> value="<%=CStr(rs("sclassid"))%>" name=sclassid><%=rs("sclass")%></option>
<%
rs.MoveNext
Loop
rs.close
end if
%>
</select>&nbsp;三级栏目：
<%if request("sclassid")<>"" or request("nclassid")<>"" then
if request("sclassid")<>"" then%>
<select class=input  name="nclassid" size="1" onchange="window.open('?action=disk_edit&id=<%=request("id")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=request("classid")%>&sclassid=<%=request("sclassid")%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
<%else%>
<select  class=input name="nclassid" size="1" onchange="window.open('?action=disk_edit&id=<%=request("id")%>&askclassid=<%=request("askclassid")%>&asksclassid=<%=request("asksclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=classid%>&sclassid=<%=request("sclassid")%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
<%end if%>
<option value="" <%if request("nclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
if request("sclassid")<>"" then
sql="select * from mv_nclass where sclassid="&request("sclassid")
else
sql="select * from mv_nclass where sclassid="&sclassid
end if
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>
<option<%if (cstr(request("nclassid"))=cstr(rs("nclassid")) and request("nclassid")<>"") then%> selected<%end if%> value="<%=CStr(rs("nclassid"))%>" name=nclassid><%=rs("nclass")%>ff</option>
<%
rs.MoveNext
Loop
rs.close
else
%>
<select  class=input name="nclassid" size="1" onchange="window.open('?action=disk_edit&id=<%=request("id")%>&askclassid=<%=request("askclassid")%>&asknclassid=<%=request("asknclassid")%>&page=<%=request("page")%>&classid=<%=request("classid")%>&sclassid=<%=request("sclassid")%>&nclassid='+this.options[this.selectedIndex].value,'_self')">
<option value="">选择栏目</option>
<%
sql="select * from mv_nclass where sclassid="&sclassid
rs.open sql,conn_mv,1,1
Do while not rs.eof
%>
<option<%if cstr(nclassid)=cstr(rs("nclassid")) then%> selected<%end if%> value="<%=CStr(rs("nclassid"))%>" name=nclassid><%=rs("nclass")%></option>
<%
rs.MoveNext
Loop
rs.close
end if
%>
</select></td>
</tr></table></td></tr>
<tr><td width="100%" align=center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td align=center width="12%">mtv名称：</td><td width="82%"><input class=input type="text" name="name" value="<%=name%>" size="20">&nbsp;&nbsp;&nbsp;&nbsp;所属语言：<input class=input  type="text" name="yuyan" value="<%=yuyan%>" size="20"></td></tr>
<tr><td align=center>发行日期：</td><td><input  class=input type="text" name="times" value="<%=times%>" size="20"></td></tr>
<tr><td align="center">专辑图片：</td><td><input class=input  type="text" name="pic" value="<%=pic%>" size="20"><font color=red>*</font>&nbsp;&nbsp;主唱歌手：<input  class=input type="text" name="singer" value="<%=singer%>" size="20"></td></tr>
<tr><td align="center">重传图片：</td><td><iframe frameborder=0 width='100%' height=23 scrolling=no src='music_upload.asp'></iframe></td></tr>
<tr><td align=center>mtv地址：</td><td><input type="text" name="mtvurl" size="65" value="<%=mtvurl%>"></td></tr>
</table></td></tr>
<tr><td height="25" align=center class=td><input type="hidden" class=input  value="edit" name="act"> <input type="submit" class=input  value=" 修 改 " name="cmdok2">&nbsp; <input type="reset" class=input  value=" 清 除 " name="cmdcance2l"></td></tr>
</form></table>
<%
end sub

sub disk_del()
id=request.QueryString("id")
set rs=conn_mv.execute("delete from mv_MtvList where id="&id)

conn_mv.close
set conn_mv=nothing
response.write vbcrlf&"<scRIPT language=Javascript>alert('成功删除一张专辑！');javascript:history.go(-2);</scRIPT>"
end sub
%>