📄 admin_index_left.asp
字号:
<!--#include file="conn.asp"-->
<%
' 这个页面中的权限分配，要配合添加用户哪个页面使用。栏目表中要加一字段，就是这个栏目链接到哪里去。
'--------------------- 以下是求出这个用户哪有什么权限
set rs=server.createobject("adodb.recordset")
sql="select Username,Purview,LastloginIP,AdminSh_Purview_ClassID,AdminSc_Purview_ClassID from admin where Username='"&session("AdminName")&"'"
rs.open sql,conn,1,1
session("sh")=rs(3)
session("sc")=rs(4)
Session("AdminPurview")=rs(1)
rs.close
'--------------------- 结束
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="css/index1.css" type=text/css rel=stylesheet>
<title>导航栏</title>
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
</head>
<body topmargin="0" background="images/kabg.gif" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="158" style="border: 1 solid #C0C0C0" height="1">
<tr>
<td height="43">
<p align="center">后台管理
</td>
</tr>
<tr>
<td height="25" style="border-bottom: 1 solid #C0C0C0"><span><b> </b><a href="Admin_Index_Main.asp" target="main"><b>管理首页</b></a> | <b>
<a target="_top" href="Admin_logout.asp">退出</a></b></span>
</td>
</tr>
<tr>
<td bgcolor="#F7F7F7" height="50">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20>用户名：<font color="#FF0000"><%=session("AdminName")%></font></td></tr>
<tr><td height=20>权 限：<font color="#FF0000"><%
select case Session("AdminPurview")
case 1
response.write "超级管理员"
case 2
response.write "普通管理员"
end select
%></font></td></tr>
</table>
</td>
</tr>
<tr>
<td height="1"></td>
</tr>
</table>
</center>
</div>
<%
a=split(session("sc"),",") '将权限存放在一个数组中，以便下面调用
'response.write session("sc")&"<br>"
'----------求出所有的一级栏目
sql="select XcClassid,ClassName from ArticleClass where ScClassid=0 and delbz=0 order by Class_sx asc"
rs.open sql,conn,1,1
'----------求一级栏目结束
for i=1 to rs.recordcount '做循环求出一级目录
' response.write rs(0)
'----------用一个变量来判断这个用户是否对该一级栏目有操作权
'----------如果有就让他等于1，没有就等于0，管理员默认等于1，有所有的权限
if Trim(session("sc"))<>"all" then
d=0
for e=0 to ubound(a)
if int(trim(rs(0)))=int(trim(a(e))) then
d=1
end if
next
else
d=1
end if
'---------结束
'---------------------求该一级栏目的二级栏目
set rsX=Server.CreateObject("Adodb.Recordset")
sqlX="Select ClassName,Classlink,Class_ID,XcClassid from ArticleClass where Scclassid="&rs(0)&" and Delbz=0 order by Class_sx asc"
rsX.open sqlX,conn,1,1
if d<>0 then '如果该用户有这个栏目的操作权就让他显示
%>
<table cellpadding=0 cellspacing=0 width=159 align=center style="border: 1 solid #C0C0C0" bgcolor="#F7F7F7">
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; id=menuTitle2 onclick="showsubmenu(<%=i%>)" style="cursor: hand; border-bottom: 1 solid #C0C0C0" background="images/admin_top_bg.jpg">
<span> <img src=images/mark.gif> </span><span><font color="#800000"><b><%=rs(1)%></b></font></span> </td>
</tr>
<tr>
<%if i=1 then%>
<td id='submenu<%=i%>'>
<%else%>
<td style="display:none" id='submenu<%=i%>'>
<%end if%>
<div class=sec_menu style="width:158">
<div align="center">
<table cellpadding=0 cellspacing=0 width=150>
<tr><td height=10></td></tr>
<%
do while not rsx.eof '做循环求出该一级目录下面的所有二级栏目
'----------用一个变量来判断这个用户是否对该一级栏目下面的某二级栏目是否有操作权
'----------如果有就让他等于1，没有就等于0，管理员默认等于1，有所有的权限
if not rsX.bof and not rsX.eof then
if Trim(session("sc"))<>"all" then
c=0
for j=0 to ubound(a)
if int(trim(rsx(3)))=int(trim(a(j))) then
c=1
end if
next
else
c=1
end if
end if
'----------------------结束
if c<>0 then '如果有就让他显示出来。
%>
<tr><td height=20><img src=images/doc.gif> <a href=<%=rsX(1)%> target=main><%=rsX(0)%></a></td></tr>
<%
end if
rsX.movenext '二级栏目的循环
loop
%>
</table>
</div>
</div>
<div style="width: 158; height: 19">
</div>
</td>
</tr>
</table>
<%
end if
rs.movenext ' 向下求一级目录，配合第一个for使用
next
rs.close
%>
<table cellpadding=0 cellspacing=0 width=158 align=center style="border: 1 solid #C0C0C0" bgcolor="#F7F7F7">
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; id=menuTitle5 style="cursor: hand; border-bottom: 1 solid #C0C0C0" background="images/admin_top_bg.jpg">
<span> </span><span><font color="#800000"><b>助网基本信息</b></font></span> </td>
</tr>
<tr>
<td id='submenu50'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=10> <br>
版权所有： <a href="http://www.35581.com">助网</a> <br>
设计制作： <a href="http://www.35581.com/">Seajian.Cn</a><BR>
技术支持： <a href="http://www.35581.com">助网</a>网络</td></tr>
</table>
</div>
<div style="width: 158; height: 19">
</div>
</td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -