dir.inc.asp

一个综合类整站

<%
'//预定义
dim menu(3,6),j,tmpmenu,menuname,menurl

menu(0,0)="新闻管理"
menu(0,1)="<a href=addad_news.asp target=mainFrame>发布新闻</a> | <a href=list_news.asp target=mainFrame>管理新闻</a>"

menu(1,0)="信息管理"
menu(1,1)="<a href=addad.asp target=mainFrame>发布信息</a> | <a href=nopass.asp target=mainFrame>未审信息</a>"
menu(1,2)="<a href=list.asp target=mainFrame>全部信息</a> | <a href=shouye.asp target=mainFrame>首页显示</a>"
menu(1,3)="<a href=fufeiad.asp target=mainFrame>付费信息</a> | <a href=gudingad.asp target=mainFrame>固顶信息</a>"
menu(1,4)="<a href=hot.asp target=mainFrame>热点信息</a> | <a href=shixiaoad.asp target=mainFrame>过期信息</a>"

menu(2,0)="系统管理"
menu(2,1)="<a href=pass.asp target=mainFrame>超级用户</a>"

menu(3,0)="版权信息"
menu(3,1)="<font face=Arial, Helvetica, sans-serif><b>当前版本：</font></b>V4.4 Access"
menu(3,2)="<font face=Arial, Helvetica, sans-serif><b>copy：</font></b>青年创业分类信息网"
menu(3,3)="<a href=http://www.youthcy.com target=_blank><font face=Arial, Helvetica, sans-serif><b>青年创业网</b></font></a>"

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