📄 rem 管理栏目.vb
字号:
<%
//预定义
Dim menu(20, 14), j, tmpmenu, menuname, menurl, H_level '//层与下层设置 dim menu(1,4) %>
H_Level = Session("Sys_Level")
menu(0,0)="新闻系统管理"
menu(0,1)="<a href="&RootUrl&"/News/Admin/NewsList.asp target=mainFrame>新闻管理</a><!-- | <a href="&RootUrl&"/News/Admin/Guestbook.asp target=mainFrame>新闻评论</a>//-->"
menu(0,2)="<a href="&RootUrl&"/News/Admin/NewsCataAdd.asp target=mainFrame>栏目管理</a> | <a href="&RootUrl&"/News/Admin/NewsCataFix.asp target=mainFrame>栏目合并</a>"
menu(0,3)="<a href="&RootUrl&"/News/Admin/NewsAdd.asp target=mainFrame>发布新闻</a>"
menu(0,4)="<a href="&RootUrl&"/News/Admin/UploadFile.asp target=mainFrame>文件管理</a>"
menu(1,0)="新闻系统管理"
menu(1,1)="<a href="&RootUrl&"/News/Admin/NewsList.asp target=mainFrame>新闻管理</a><!-- | <a href="&RootUrl&"/News/Admin/Guestbook.asp target=mainFrame>新闻评论</a>//-->"
menu(1,2)="<a href="&RootUrl&"/News/Admin/NewsCataAdd.asp target=mainFrame>栏目管理</a> | <a href="&RootUrl&"/News/Admin/NewsCataFix.asp target=mainFrame>栏目合并</a>"
menu(1,3)="<a href="&RootUrl&"/News/Admin/NewsAdd.asp target=mainFrame>发布新闻</a>"
menu(1,4)="<a href="&RootUrl&"/News/Admin/UploadFile.asp target=mainFrame>文件管理</a>"
menu(2,0)="新闻系统管理"
menu(2,1)="<a href="&RootUrl&"/News/Admin/NewsList.asp target=mainFrame>新闻管理</a><!-- | <a href="&RootUrl&"/News/Admin/Guestbook.asp target=mainFrame>新闻评论</a>//-->"
menu(2,2)="<a href="&RootUrl&"/News/Admin/NewsCataAdd.asp target=mainFrame>栏目管理</a> | <a href="&RootUrl&"/News/Admin/NewsCataFix.asp target=mainFrame>栏目合并</a>"
menu(2,3)="<a href="&RootUrl&"/News/Admin/NewsAdd.asp target=mainFrame>发布新闻</a>"
menu(2,4)="<a href="&RootUrl&"/News/Admin/UploadFile.asp target=mainFrame>文件管理</a>"
menu(20,0)="系统管理"
If H_Level = 3 Then
menu(20,1)="<a href=SysSet.asp target=mainFrame>系统设置</a> | <a href=Data.asp target=mainFrame>数据处理</a>"
menu(20,2)="<a href=SysUser.asp target=mainFrame>帐号管理</a>"
menu(20,3)="<a href=ModifyPasswd.asp target=mainFrame>修改密码</a>"
Else
menu(1,1)="<a href=ModifyPasswd.asp target=mainFrame>修改密码</a>"
End If
Sub ShowMenu()
Dim menuStr
For i = 0 To ubound(menu, 1)
menuStr = "<br><table cellpadding=0 cellspacing=0 width=158>"&_
"<tr>"&_
<td height=25 class=menu_title onmouseover='this.className=""menu_title2""' onmouseout='this.className=""menu_title"";' background=images/admin_left_"&(i+1)&".gif id=menuTitle1 onclick=showsubmenu("&i&")>"&_
<span>"&menu(i,0)&"</span>"&_
</td>"&_
</tr>"&_
<tr>"&_
<td style='display:' id='submenu"&i&"'>"&_
<div class=sec_menu style='width:158'>"&_
<table cellpadding=0 cellspacing=0 align=center width=135 ID=Table1>"
For j = 1 To ubound(menu, 2)
If isempty(menu(i, j)) Then Exit For
menuStr = menuStr&"<tr><td height=20>"&menu(i,j)&"</td></tr>"
Next
menuStr = menuStr&"</table>"&_
</div>"&_
</td>"&_
</tr>"&_
</table>"
Response.Write(menuStr)
Next
End Sub
%>
<html>
<title>新闻管理目录</title>
<link rel="stylesheet" href="../css/style.css" type="text/css">
<head>
<SCRIPT language="javascript1.2">
Function showsubmenu(ByVal 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 bgcolor="#799AE1" leftmargin="0" topmargin="0">
<div align=center>
<table width="158" cellpadding="0" cellspacing="0" border="0" >
<tr>
<td valign="top">
<table cellpadding="0" cellspacing="0" width="158">
<tr>
<td height="42" valign="bottom">
<img src="images/title.gif" width="158" height="38">
</td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr>
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="images/title_bg_quit.gif">
<div align="left"> <a href="Admin.asp" target="_top"><b>管理首页</b></a>
| <a href="Logout.asp" target="_top"> <b>退出</b></a> </div>
</td>
</tr>
</table>
<%
//管理菜单
Call showMenu()
%>
</td>
</tr>
</table>
<p> </p></div>
</BODY>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -