dir.inc.asp

简单明晰的asp后台代码 新闻 产品

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

h_level = session("sys_level")

menu(0,0)="新闻系统管理"
if h_level = 3 then
menu(0,1)="<a href=admin_newslist.asp target=mainframe>新闻管理</a><!-- | <a href=admin_guestbook.asp target=mainframe>新闻评论</a>//-->"
menu(0,2)="<a href=admin_newscataadd.asp target=mainframe>栏目管理</a> | <a href=admin_newscatafix.asp target=mainframe>栏目合并</a>"
menu(0,3)="<a href=admin_newsadd.asp target=mainframe>发布新闻</a>"
menu(0,4)="<a href=admin_uploadfile.asp target=mainframe>文件管理</a>"
else
menu(0,1)="<a href=admin_newslist.asp target=mainframe>新闻管理</a><!-- | <a href=admin_guestbook.asp target=mainframe>新闻评论</a>//-->"
menu(0,2)="<a href=admin_newsadd.asp target=mainframe>发布新闻</a>"
menu(0,3)="<a href=admin_uploadfile.asp target=mainframe>文件管理</a>"
end if

menu(1,0)="系统管理"
if h_level = 3 then
menu(1,1)="<a href=sysset.asp target=mainframe>系统设置</a> | <a href=data.asp target=mainframe>数据处理</a>"
menu(1,2)="<a href=sysuser.asp target=mainframe>帐号管理</a>"
menu(1,3)="<a href=modifypasswd.asp target=mainframe>修改密码</a>"
else
menu(1,1)="<a href=modifypasswd.asp target=mainframe>修改密码</a>"
end if

menu(2,0)="系统信息"
menu(2,1)="设计制作:四人行"
menu(2,2)="技术支持:四人行"
menu(2,3)="设计版本:ver2.0 beta1"

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
%>