<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<%
'//预定义
dim menu(2,9),j,tmpmenu,menuname,menurl


menu(0,0)="信息管理"
menu(0,1)="<a href=ArticleAddSelClass.asp target=mainFrame>发布信息</a> | <a href=ArticleModSelClass.asp target=mainFrame>修改信息</a>"
menu(0,2)="<a href=SearchArticle.asp target=mainFrame>查找信息</a> | <a href=TjArticle.asp target=mainFrame>推荐信息</a>"
menu(0,3)="<a href=newhdpic.asp target=mainFrame>幻灯图片</a> | <a href=newhfpic.asp target=mainFrame>新闻图片</a>"

menu(1,0)="综合管理"
menu(1,1)="<a href=ClassManage.asp target=mainFrame>类别管理</a> | <a href=SuperUser.asp target=mainFrame>用户管理</a>"
menu(1,2)="<a href=SpaceSize.asp target=mainFrame>空间占用</a> | <a href=SysSet.asp target=mainFrame>系统设置</a>"
menu(1,3)="<a href=DataManage.asp target=mainFrame>数据库维护</a>"



menu(2,0)="版权信息"
menu(2,1)="<font face=Arial, Helvetica, sans-serif><b>当前版本：</font></b>V3.0"
menu(2,2)="<a href=http://www.strongfire.cn target=_blank><font face=Arial, Helvetica, sans-serif><b>烈火工作室</b></font></a>"
menu(2,3)="<font face=Arial, Helvetica, sans-serif>网站定制、静态化处理"
menu(2,4)="<font face=Arial, Helvetica, sans-serif>QQ:839225572(火烈鸟)"
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
%>
