dir.inc.asp

21世纪人才www.51zy.net 网站源码

<%
'//预定义
dim menu(1,4),j,tmpmenu,menuname,menurl, H_level

H_Level = Session("Sys_Level")

menu(0,0)="新闻系统管理"
menu(0,1)="<a href=NewsList.asp target=mainFrame>新闻管理</a><!-- | <a href=../news/admin/guestbook.asp target=mainFrame>新闻评论</a>//-->"
menu(0,2)="<a href=NewsCataAdd.asp target=mainFrame>期刊管理</a><!-- | <a href=NewsCataFix.asp target=mainFrame>期刊合并</a> -->"
menu(0,3)="<a href=NewsAdd.asp target=mainFrame>发布新闻</a>"
<!-- menu(0,4)="<a href=UploadFile.asp target=mainFrame>文件管理</a>" -->
menu(1,0)="系统管理"
If H_Level = 3 Then
<!-- menu(1,1)="<a href=SysSet.asp target=mainFrame>系统设置</a>" -->
menu(1,1)="<a href=SysUser.asp target=mainFrame>帐号管理</a>"
menu(1,2)="<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 = "<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
%>