📄 sysadmin_menu.asp
字号:
<%@ Language=VBScript %>
<%
Response.Buffer = true
Response.Expires = 0
%>
<!-- #include file="../dsn.asp" -->
<%
set cn = Server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs = Server.CreateObject("ADODB.Recordset")
'用户等级和权限字符串
userqx = Session("userqx")
qxflag = Session("qxflag")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
body,table,tr
{
font-size:12px;
font-family:宋体;
line-height:16px;
}
A.parent:link {font:13px;text-decoration:none;color: #000000}
A.parent:visited {font-size:13px;text-decoration:none;color: #000000}
A.parent:hover {font-size:13px;text-decoration:underline;color: #ff6600}
A:link {color: #000066}
A:visited {color: #000066}
A:hover {color: #ff3300}
</style>
<script language="javascript">
var imgOpen = new Image();
var imgClose = new Image();
imgOpen.src = "images/open.gif"
imgClose.src = "images/close.gif"
function expand(el)
{
childObj = document.getElementById("child" + el);
imgObj = document.getElementById("img" + el);
if (childObj.style.display == 'none')
{
childObj.style.display = 'block';
imgObj.src = imgOpen.src;
}
else
{
childObj.style.display = 'none';
imgObj.src = imgClose.src;
}
}
</script>
</head>
<body topmargin="0" leftmargin="0" style="background:url('images/admin_back.jpg') left bottom no-repeat;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="5">
<td colspan="2"></td>
</tr>
<tr>
<td width="10"></td>
<td valign="top">
<%
if userqx = "9" or mid(qxflag, 5, 1) = "1" then
i = i + 1
%>
<div id="parent<%=i%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="20">
<td width="15"><a href="#" onclick="expand(<%=i%>)"><img id="img<%=i%>" src="images/close.gif" border="0"></a></td>
<td><a href="#" class="parent" onclick="expand(<%=i%>)">论坛管理</a></td>
</tr>
</table>
</div>
<div id="child<%=i%>" style="display:none;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width=20> </td>
<td><a href="../forum/user_admin.asp" target=main>用户管理</a></td>
</tr>
<tr>
<td width=20> </td>
<td><a href="../forum/forum_class.asp" target=main>论坛版块设置</a></td>
</tr>
<tr>
<td width=20> </td>
<td><a href="../forum/forum_basclass.asp" target=main>论坛基本版块设置</a></td>
</tr>
</table>
</div>
<%
end if
%>
</td>
</tr>
<tr>
<td width="10"></td>
<td valign="top">
<%
if userqx = "9" or mid(qxflag, 1, 1) = "1" then
i = i + 1
%>
<div id="parent<%=i%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="20">
<td width="15"><a href="#" onclick="expand(<%=i%>)"><img id="img<%=i%>" src="images/close.gif" border="0"></a></td>
<td><a href="#" class="parent" onclick="expand(<%=i%>)">网站管理</a></td>
</tr>
</table>
</div>
<div id="child<%=i%>" style="display:none;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
sql = "select classcode,classname from miscell_class where baseclass='101' order by sortnum"
rs.open sql, cn, 0, 1, 1
do while not rs.EOF
%>
<tr>
<td width="20"></td>
<td><a href="miscell_admin.asp?classcode=<%=rs("classcode")%>" target="main"><%=rs("classname")%></td>
</tr>
<%
rs.MoveNext
loop
rs.close
%>
</table>
</div>
<%
end if
%>
</td>
</tr>
<tr>
<td width="10"></td>
<td valign="top">
<%
if userqx = "9" or mid(qxflag, 2, 1) = "1" then
i = i + 1
%>
<div id="parent<%=i%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="20">
<td width="15"><a href="#" onclick="expand(<%=i%>)"><img id="img<%=i%>" src="images/close.gif" border="0"></a></td>
<td><a href="#" class="parent" onclick="expand(<%=i%>)">新闻动态</a></td>
</tr>
</table>
</div>
<div id="child<%=i%>" style="display:none;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
sql = "select classcode,classname from miscell_class where baseclass='200' and flag='0' order by sortnum"
rs.open sql, cn, 0, 1, 1
do while not rs.EOF
%>
<tr>
<td width="20"></td>
<td><a href="miscell_admin.asp?classcode=<%=rs("classcode")%>" target="main"><%=rs("classname")%></td>
</tr>
<%
rs.MoveNext
loop
rs.close
%>
<tr>
<td width="20"></td>
<td><a href="miscell_class2.asp?baseclass=200" target="main">新闻动态类别</td>
</tr>
</table>
</div>
<%
end if
%>
</td>
</tr>
<tr>
<td width="10"></td>
<td valign="top">
<%
if userqx = "9" or mid(qxflag, 3, 1) = "1" then
i = i + 1
%>
<div id="parent<%=i%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="20">
<td width="15"><a href="#" onclick="expand(<%=i%>)"><img id="img<%=i%>" src="images/close.gif" border="0"></a></td>
<td><a href="#" class="parent" onclick="expand(<%=i%>)">政策法规</a></td>
</tr>
</table>
</div>
<div id="child<%=i%>" style="display:none;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
sql = "select classcode,classname from miscell_class where baseclass='300' and flag='0' order by sortnum"
rs.open sql, cn, 0, 1, 1
do while not rs.EOF
%>
<tr>
<td width="20"></td>
<td><a href="miscell_admin.asp?classcode=<%=rs("classcode")%>" target="main"><%=rs("classname")%></td>
</tr>
<%
rs.MoveNext
loop
rs.close
%>
<tr>
<td width="20"></td>
<td><a href="miscell_class2.asp?baseclass=300" target="main">政策法规类别</td>
</tr>
</table>
</div>
<%
end if
%>
</td>
</tr>
<tr>
<td width="10"></td>
<td valign="top">
<%
if userqx = "9" or mid(qxflag, 4, 1) = "1" then
i = i + 1
%>
<div id="parent<%=i%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="20">
<td width="15"><a href="#" onclick="expand(<%=i%>)"><img id="img<%=i%>" src="images/close.gif" border="0"></a></td>
<td><a href="#" class="parent" onclick="expand(<%=i%>)">企业展示</a></td>
</tr>
</table>
</div>
<div id="child<%=i%>" style="display:none;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
sql = "select classcode,classname from miscell_class where baseclass='400' and flag='0' order by sortnum"
rs.open sql, cn, 0, 1, 1
do while not rs.EOF
%>
<tr>
<td width="20"></td>
<td><a href="miscell_admin.asp?classcode=<%=rs("classcode")%>" target="main"><%=rs("classname")%></td>
</tr>
<%
rs.MoveNext
loop
rs.close
%>
<tr>
<td width="20"></td>
<td><a href="miscell_class2.asp?baseclass=400" target="main">企业展示类别</td>
</tr>
</table>
</div>
<%
end if
%>
</td>
</tr>
<tr>
<td width="10"></td>
<td valign="top">
<%
if userqx = "9" then
i = i + 1
%>
<div id="parent<%=i%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="20">
<td width="15"><a href="#" onclick="expand(<%=i%>)"><img id="img<%=i%>" src="images/close.gif" border="0"></a></td>
<td><a href="#" class="parent" onclick="expand(<%=i%>)">系统管理员</a></td>
</tr>
</table>
</div>
<div id="child<%=i%>" style="display:none;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="20"></td>
<td><a href="count_list.asp" target="main">网站访问情况</a></td>
</tr>
<tr>
<td width="20"></td>
<td><a href="sys_dept.asp" target="main">单位联系部门</a></td>
</tr>
<tr>
<td width="20"></td>
<td><a href="contact_admin.asp" target="main">用户留言管理</a></td>
</tr>
<tr>
<td width="20"></td>
<td><a href="adminuser_admin.asp" target="main">操作人员管理</a></td>
</tr>
</table>
</div>
<%
end if
%>
</td>
</tr>
<tr>
<td width="10"></td>
<td valign="top">
<%
if userqx = "9" and Session("username") = "xu256" then
i = i + 1
%>
<div id="parent<%=i%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="20">
<td width="15"><a href="#" onclick="expand(<%=i%>)"><img id="img<%=i%>" src="images/close.gif" border="0"></a></td>
<td><a href="#" class="parent" onclick="expand(<%=i%>)">系统设置</a></td>
</tr>
</table>
</div>
<div id="child<%=i%>" style="display:none;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="20"></td>
<td><a href="miscell_class.asp" target="main">栏目模块设置</a></td>
</tr>
</table>
</div>
<%
end if
%>
</td>
</tr>
<tr>
<td width="10"></td>
<td valign="top">
<%i = i + 1%>
<div id="parent<%=i%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr height="20">
<td width="15"><a href="#" onclick="expand(<%=i%>)"><img id="img<%=i%>" src="images/close.gif" border="0"></a></td>
<td><a href="#" class="parent" onclick="expand(<%=i%>)">个人管理</a></td>
</tr>
</table>
</div>
<div id="child<%=i%>" style="display:none;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="20"></td>
<td><a href="../default.asp" target="_blank">回到首页</a></td>
</tr>
<tr>
<td width="20"></td>
<td><a href="adminuser_myedit.asp" target="main">修改口令</a></td>
</tr>
<tr>
<td width="20"></td>
<td><a href="login.asp" target="_top">换名登陆</a></td>
</tr>
<tr>
<td width="20"></td>
<td><a href="javascript:top.logout();">退出系统</a></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -