admin_dj.asp
来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 1,016 行 · 第 1/3 页
ASP
1,016 行
sql="select * from djcat where djcat_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=nothing
response.redirect "admin_dj.asp?action=djcat"
end if
end if%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%if request.querystring("action")="djerror" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr class=lanyuss>
<td colspan="3">
错误连接管理</td>
</tr>
<tr class=lanyuqs>
<td width="60%">歌曲名称</td>
<td width="20%" align="center">报错人次</td>
<td width="20%" align="center">操作</td>
</tr>
<%
sql="select * from dj where error > 0 order by dj_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><tr class=lanyuds><td><a href="#"><%=rs("dj_name")%></td>
<td align="center"><%=rs("error")%></td>
<td align="center"><a href="admin_dj.asp?id=<%=rs("dj_id")%>&action=editerror">修改</a> <a href="admin_dj.asp?id=<%=rs("dj_id")%>&action=deldj">删除</a></td>
</tr>
<%rs.movenext
loop
if rs.eof and rs.bof then
Response.Write("<tr class=lanyuds><td align=""center"" colspan=""3"">当前还没有错误歌曲</td></tr>")
end if%>
</table>
<%end if%>
<%if request.querystring("action")="djcat" then
sql="select * from djcat where sid=0 order by djcat_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr class=lanyuss>
<td colspan="3">
歌曲分类管理</td>
</tr>
<tr align="center" class=lanyuqs>
<td width="10%">编号</td>
<td width="70%">分类名称</td>
<td width="20%">操作</td>
</tr>
<%do while not rs.eof%>
<tr class=lanyuds>
<td align="center"><%=rs("djcat_id")%> </td>
<td><font color=#008000><%=rs("djcat_name")%></font> [<a href="admin_dj.asp?id=<%=rs("djcat_id")%>&action=newdjcat">添加子分类</a>]</td>
<td align="center"><a href="admin_dj.asp?id=<%=rs("djcat_id")%>&action=editdjcat">编辑</a>
<a href="admin_dj.asp?id=<%=rs("djcat_id")%>&action=deldjcat">删除</a> </td>
</tr>
<%sql="select * from djcat where sid="&rs("djcat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<tr class=lanyuds><td align="right"></td><td>├ <%=rs2("djcat_name")%></td><td align="center"><a href="admin_dj.asp?id=<%=rs2("djcat_id")%>&action=editdjcat">编辑</a>
<a href="admin_dj.asp?id=<%=rs2("djcat_id")%>&action=deldjcat">删除</a></td></tr>
<%
rs2.movenext
loop
response.write "<tr class=lanyuqs><td colspan=3 align=center>"
if rs2.bof and rs2.eof then
response.write "此大类没有子分类！"
end if
rs2.close
set rs2=nothing
%>
<%rs.movenext
loop
if rs.bof and rs.eof then%>
<tr align="center" class=lanyuds>
<td colspan="3">当前没有歌曲分类！</td>
</tr>
<%rs.close
set rs=nothing
end if%>
</table>
<%end if
if request.querystring("action")="newdjcat" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<%sql="select * from djcat where djcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<form name="form1" method="post" action=""><tr class=lanyuss><td>新增歌曲分类</td></tr>
<tr class=lanyuds>
<td>分类名称-
<input type="text" name="djcat_name" size="40" class="textarea">
</td>
</tr>
<tr class=lanyuqs>
<td align="center">
<input type="submit" name="Submit" value="确定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs("djcat_id")%>">
<input type="hidden" name="action" value="newdjcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="editdjcat" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的歌曲分类ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from djcat where djcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=lanyuss>
<td>
修改歌曲分类</td>
</tr>
<tr class=lanyuds>
<td>分类名称-
<input name="djcat_name" type="text" class="textarea" id="djcat_name" size="40" value="<%=rs("djcat_name")%>">
</td>
</tr>
<tr class=lanyuqs>
<td align="center"> <input name="Submit" type="submit" class="button" id="Submit" value="确定修改">
<input name="Reset" type="reset" class="button" id="Reset" value="清空重填"> </td>
</tr>
<input type="hidden" name="id" value="<%=rs("djcat_id")%>">
<input type="hidden" name="action" value="editdjcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="deldjcat" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的歌曲分类ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from djcat where djcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=lanyuss>
<td>
删除歌曲分类</td>
</tr>
<tr class=lanyuds>
<td>分类名称- <%=rs("djcat_name")%>
</td>
</tr>
<tr class=lanyuqs>
<td align="center">
<input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs("djcat_id")%>">
<input type="hidden" name="action" value="deldjcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.form("operation")="DEL" then
num=request.form("dj_id").Count
for i=1 to num
conn.execute("delete from dj where dj_id="&request.form("dj_id")(i))
next
end if
if request.querystring("action")="dj" then
sql="select * from dj order by istop desc, dj_id desc"
if request.querystring("djcat_id")<>"" then
sql="select * from dj where djcat_id="&cint(request.querystring("djcat_id"))&" order by dj_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totaldj=rs.recordcount
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form3" method="post" action=""><tr class=lanyuss>
<td colspan="8">歌曲管理</td>
<td align="right" style="padding-top:2px;">
<select style="margin:-3px" name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'>
<option value="">选择显示方式</option>
<option value="admin_dj.asp?action=dj">显示所有歌曲</option>
<%sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("djcat_name")&"'>"
sql="select * from djcat where sid="&rs1("djcat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option value="admin_dj.asp?action=dj&djcat_id=<%=rs2("djcat_id")%>">├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select>
</td>
</tr></form>
<form name=form method=post action="admin_dj.asp?action=dj">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<tr class=lanyuqs align="center">
<td width="5%">选中</td>
<td width="5%">审核</td>
<td width="25%">歌曲名称</td>
<td width="10%">歌曲分类</td>
<td width="10%">提交人</td>
<td width="15%">歌手名称</td>
<td width="10%">加入时间</td>
<td width="5%">评论</td>
<td width="15%">操作</td>
</tr>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=djperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totaldj=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*djperpage<totaldj then
rs.move(currentpage-1)*djperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totaldj mod djperpage)=0 then
totalpages=totaldj\djperpage
else
totalpages=totaldj\djperpage+1
end if
i=0
do while not rs.eof and i<djperpage
%>
<%
sql="select djcat_id,djcat_name from djcat where djcat_id="&rs("djcat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
%>
<%
if rs("istop")="1" then
folder="「顶置」"
else
folder=""
end if
if rs("istop")="0" then
if rs("isbest")=1 then
folder="「推荐」"
else
folder=""
end if
end if
%>
<tr class=lanyuds>
<td align="center"><input type=checkbox Name=dj_id Value=<%=rs("dj_id")%>></td>
<td align="center"><%If Rs("passed")=1 Then%><a href="checktj.asp?id=<%=rs("dj_id")%>&action=pass&hx66=checkdj"><font color=red>pass</font></a><%else%>√<%End If%> </td>
<td><a href="showdj.asp?dj_id=<%=rs("dj_id")%>" target="_blank"><%=rs("dj_name")%></a> <font color="red"><%=folder%></font></td>
<td width="10%"><%=rscat("djcat_name")%></td>
<td width="10%"><%=rs("tjuser")%></td>
<td align="center"><%=rs("dj_user")%></td>
<td align="center"><%=year(rs("dj_date"))%>-<%=month(rs("dj_date"))%>-<%=day(rs("dj_date"))%></td>
<td align="center"><font color=red><%=rs("reviewcount")%></font></td>
<td align="center"> <a href="admin_view.asp?action=dj&dj_id=<%=rs("dj_id")%>">评论</a> <a href="admin_dj.asp?id=<%=rs("dj_id")%>&action=editdj">编辑</a> <a href="checktj.asp?id=<%=rs("dj_id")%>&action=del&hx66=checkdj">删除</a></td>
</tr>
<%
rscat.close
set rscat=nothing%>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<tr class=lanyuds>
<td colspan="9" height="22" align="center">当前没有歌曲！</td>
</tr>
<%end if
end if%>
<form name="form1" method="post" action="admin_dj.asp?action=dj&djcat_id=<%=request.querystring("djcat_id")%>">
<tr class=lanyuqs> <td class=lanyuqs colspan="9"><table width="100%" align="center">
<td align="seft">
<input type=hidden value=DEL name=operation>
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中本页所有 <input type=submit value=批量删除 onclick="return Del()"> </td>
<td align="right"><%=currentpage%> /<%=totalpages%>页,<%=totaldj%>条记录/<%=djperpage%>篇每页.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="admin_dj.asp?action=dj&page=<%=i%>&djcat_id=<%=request.querystring("djcat_id")%>"><%=i%></a>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?