📄 admin_classman.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=2
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp"-->
<!--#include file="admin_Function.asp" -->
<%
dim rsbig,rssma,errmsg
set rsbig=server.createobject("ADODB.Recordset")
rsbig.open"select * from bigclass",conn,1,1
if rsbig.eof or rsbig.bof then
rsbig.close
set rsbig=nothing
call closeconn()
errmsg=errmsg + "<br><br><li>暂时还没有大类栏目可管理！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_ClassBigAdd.asp'>添加大类栏目</a>］</li>"
errmsg=errmsg + "<br><br>"
call ShowErrMsg()
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>栏目管理面板</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function checkdel()
{
if (confirm("你确实要删除文章吗？一旦删除，将不能恢复！"))
return true;
else
return false;
}
</script>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="txt1">欢迎来到栏目管理面板</td>
</tr>
<tr>
<td align="center" class="txt03">［<a href="admin_ClassBigAdd.asp">添加大类栏目</a>］</td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="26%" class="txt1">栏目名称</td>
<td width="26%" class="txt1">管理员</td>
<td width="48%" class="txt1">操作</td>
</tr><%do while not rsbig.eof %>
<tr align="center">
<td align="left" class="tbbgtitle"> <img src="imgs/+.gif" width="15" height="9"> <%=rsbig("bigclass")%> </td>
<td align="center" class="tbbgtitle"><%=rsbig("bmanager")%> </td>
<td align="center" class="tbbgtitle"><a href="admin_ClassSmaAdd.asp">添加小类栏目</a> | <a href="admin_ClassBigMon.asp?bigclassid=<%=rsbig("bigclassid")%>">修改</a><%if session("adminpurview")<=2 then%> | <a href="admin_ClassBigDel.asp?bigclassid=<%=rsbig("bigclassid")%>&bigclass=<%=rsbig("bigclass")%>&bigdel=del" onclick="return checkdel();">删除</a>
<input name="bigdel" type="hidden" id="bigdel" value="del"><%end if%>
<input name="bigclass" type="hidden" id="bigclass" value="<%=rsbig("bigclass")%>"></td>
</tr>
<%
set rssma=server.createobject("ADODB.Recordset")
rssma.open"select * from smallclass where bigclass='"&rsbig("bigclass")&"'",conn,1,1
%>
<%do while not rssma.eof%>
<tr>
<td class="txt05"> <img src="imgs/1-.GIF" width="20" height="12"> <%=rssma("smallclass")%></td>
<td align="center" class="txt05"><%=rssma("smanager")%></td>
<td align="center"><span class="txt05"> <a href="admin_ClassSmaMon.asp?smallclassid=<%=rssma("smallclassid")%>">修改</a><%if session("adminpurview")<=2 then%> | <a href="admin_ClassSmaDel.asp?smallclassid=<%=rssma("smallclassid")%>&smalldel=smadel" onclick="return checkdel();">删除</a><%end if%>
<input name="smalldel" type="hidden" id="smalldel" value="smadel">
</span></td>
</tr>
<%
rssma.movenext
loop
rssma.close
set rssma=nothing
%>
<%
rsbig.movenext
loop
%>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%
end if
rsbig.close
set rsbig=nothing
call closeconn()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -