dir.inc.asp

一个综合类整站

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<%
'//预定义
dim menu(7,9),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(0,2)="<a href=message_news.asp target=mainFrame>新闻留言管理</a>"
menu(0,3)="<a href=shengchen.asp?type=news onClick=""return confirm('确定要批量生成新闻信息吗？\n\n该操作不可恢复！')"" 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(1,5)="<a href=delshixiaoad.asp onClick=""return confirm('确定要删除过期信息吗？\n\n该操作不可恢复！')"" target=mainFrame>[一键删除过期信息]</a>"
menu(1,6)="<a href=shengchen.asp?type=show onClick=""return confirm('确定要批量生成HTML信息吗？\n\n该操作不可恢复！')"" target=mainFrame>[批量生成HTML信息]</a>"

menu(2,0)="会员管理"
menu(2,1)="<a href=listuser.asp target=mainFrame>会员管理</a> | <a href=message.asp target=mainFrame>留言管理</a>"
menu(2,2)="<a href=zn_message.asp target=mainFrame>站内消息</a> | <a href=send_zn_message.asp target=mainFrame>发送消息</a>"

menu(3,0)="分类管理"
menu(3,1)="<a href=typeedit.asp target=mainFrame>分类管理</a> | <a href=cityedit.asp target=mainFrame>地区分类</a>"

menu(4,0)="综合管理"
menu(4,1)="<a href=ad.asp target=mainFrame>广告管理</a> | <a href=../gbook.asp target=mainFrame>反馈管理</a>"
menu(4,2)="<a href=link.asp target=mainFrame>文字链接</a> | <a href=link_img.asp target=mainFrame>图片链接</a>"
menu(4,3)="<a href=bm.asp target=mainFrame>便民服务</a>"

menu(5,0)="系统管理"
menu(5,1)="<a href=pass.asp target=mainFrame>超级用户</a> | <a href=sysset.asp target=mainFrame>系统设置</a>"
menu(5,2)="<a href=../SpaceSize.asp target=mainFrame>空间占用</a> | <a href=UploadFileManage.asp target=mainFrame>文件管理</a>"
menu(5,3)="<a href=check.asp target=mainFrame>ASP 探针 | </a>"
menu(5,4)="<a href=delpic.asp target=mainFrame>一键删除无用上传图片</a>"
menu(5,5)="<a href=data.asp target=mainFrame>备份/恢复/压缩数据库</a>"

menu(6,0)="版权信息"
menu(6,1)="<font face=Arial, Helvetica, sans-serif><b>当前版本：</font></b>V4.4"
menu(6,2)="<font face=Arial, Helvetica, sans-serif><b>copy：</font></b>中国分类信息网"
menu(6,3)="<a href=http://www.396idc.cn target=mainFrame><font face=Arial, Helvetica, sans-serif><b>中原数据</b></font></a>"

menu(7,0)="分站管理"
menu(7,1)="<a href=../cityadmin/login.asp target=_blank>地区分站登陆管理</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
%>