ad_index_left.asp

该软件是帮助大学生更好的生活

				if (menuItems[i].level==0)
					ShowMenuItem(i);
				else
					HideMenuItem(i);
			}
	
		}else if (NS4){
			for (i=0;i<menuItems.length;i++){
				str = "<DIV ID=\"menu"+i+"\" CLASS=\"MenuItemNS\">";
				if (menuItems[i].isLeaf){
					str += "<A HREF=\""+menuItems[i].aURL+"\"  OnMouseOver=\"HighlightMenuItem("+i+");\" OnMouseOut=\"NormalMenuItem("+i+");\">";
					for (j=0;j<menuItems[i].level;j++)
						str += strIndent;
					str += "<FONT COLOR=BLACK>&nbsp;&nbsp;&nbsp;&nbsp;"+menuItems[i].dispText+"</FONT></A>\n";
				}
				else{
					str += " <A HREF=\"#\" OnMouseOver=\"HighlightMenuItem("+i+");\" OnMouseOut=\"NormalMenuItem("+i+");\" OnClick=\"return Toggle("+i+");\">";
					for (j=0;j<menuItems[i].level;j++)					
						str += strIndent;
					str += "<IMG BORDER=0 NAME=\"MenuItemImg"+i+"\" SRC=\"../image/menu_close.gif\">";
					str += "<FONT COLOR=BLACK>"+menuItems[i].dispText+"</FONT></A>\n";
				}
				str += "</DIV>";
				document.write(str);
			}
			for (i=0;i<menuItems.length;i++){
				if (menuItems[i].level==0)
					ShowMenuItem(i);
			}
			arrange();
		}
	}
	</SCRIPT>
	

<SCRIPT language=javascript>
var i=0;
var j=0;
menuItems = new Array();

<%
'--网站常规设置...
PurviewPassed=False
arrPurview(0)=CheckPurview(AdminPurview_Others,"Channel")
arrPurview(1)=CheckPurview(AdminPurview_Others,"AD")
arrPurview(2)=CheckPurview(AdminPurview_Others,"FriendSite")
arrPurview(3)=CheckPurview(AdminPurview_Others,"Announce")
arrPurview(4)=CheckPurview(AdminPurview_Others,"Vote")
arrPurview(5)=CheckPurview(AdminPurview_Others,"Counter")
'----------------添加产品、影视权限代码-----贫龙修改开始-----------------------
arrPurview(6)=CheckPurview(AdminPurview_Others,"shop1")
arrPurview(7)=CheckPurview(AdminPurview_Others,"shop2")
arrPurview(8)=CheckPurview(AdminPurview_Others,"shop3")
arrPurview(9)=CheckPurview(AdminPurview_Others,"movie1")
arrPurview(10)=CheckPurview(AdminPurview_Others,"movie2")
'----------------添加产品、影视权限代码-----贫龙修改开始-----------------------

for PurviewIndex=0 to 10
	if arrPurview(PurviewIndex)=True then
		PurviewPassed=True
		exit for
	end if
next
if AdminPurview=1 or PurviewPassed=True then
%>
menuItems[i] = new MItem("","网站常规设置","",-1,0,false,false);j=i;i=i+1;
<%if AdminPurview=1 then%>
menuItems[i] = new MItem("Ad_SiteConfig.asp","网站信息配置","",j,1,true,false);i=i+1;
<%
end if
if AdminPurview=1 or arrPurview(0)=True then
%>	
menuItems[i] = new MItem("Ad_Channel.asp","网站频道管理","",j,1,true,false);i=i+1;
<%
end if
if AdminPurview=1 or arrPurview(1)=True then
%>
menuItems[i] = new MItem("Ad_Advertisement.asp","广告管理","",j,1,true,false);i=i+1;
<%
end if
if AdminPurview=1 or arrPurview(2)=True then
%>
menuItems[i] = new MItem("Ad_FriendSite.asp","友情链接管理","",j,1,true,false);i=i+1;  
<%
end if
if AdminPurview=1 or arrPurview(3)=True then
%>			  
menuItems[i] = new MItem("Ad_Announce.asp","公告管理","",j,1,true,false);i=i+1; 
<%
end if
if AdminPurview=1 or arrPurview(4)=True then
%>			  
menuItems[i] = new MItem("Ad_Vote.asp","调查管理","",j,1,true,false);i=i+1; 
<%
end if
if AdminPurview=1 or arrPurview(5)=True then
%>
menuItems[i] = new MItem("Count/index.asp","统计系统管理","",j,1,true,false);i=i+1;
<%
end if
end if

'--文章管理...
if AdminPurview=1 or AdminPurview_Article<=3 then
%>
menuItems[i] = new MItem("","信息文章管理","",-1,0,false,false);j=i;i=i+1;
menuItems[i] = new MItem("Ad_infoAdd1.asp","添加文章(简单)","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_infoAdd2.asp","添加文章(高级)","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_infoManage.asp?ManageType=MyArticle","我发表的文章","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_infoManage.asp","文章管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_infoCheck.asp","文章审核","",j,1,true,false);i=i+1;
<%if AdminPurview=1 or AdminPurview_Article=1 then%>
menuItems[i] = new MItem("Ad_Class_info.asp","栏目管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_Special.asp","专题栏目管理","",j,1,true,false);i=i+1;

<%if AdminPurview=1 or AdminPurview_Article<=2 then%>
menuItems[i] = new MItem("Ad_infoManageSpecial.asp","专题文章管理","",j,1,true,false);i=i+1;
<%end if%>

menuItems[i] = new MItem("Ad_infoComment.asp","评论管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_infoRecyclebin.asp","回收站管理","",j,1,true,false);i=i+1;
<%
end if
end if

'--产品管理...
if AdminPurview=1 or arrPurview(6)=True or arrPurview(7)=True or arrPurview(8)=True then %>
menuItems[i] = new MItem("","产品管理","",-1,0,false,false);j=i;i=i+1;
<% end if
if AdminPurview=1 or arrPurview(6)=True then %>
menuItems[i] = new MItem("admin_product.asp?action=add","添加产品","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("admin_product.asp","产品管理","",j,1,true,false);i=i+1;
<% end if
if AdminPurview=1 or arrPurview(7)=True then %>
menuItems[i] = new MItem("admin_nsort.asp?nsort=pro","产品分类管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("admin_upload_list.asp","产品图片管理","",j,1,true,false);i=i+1;
<% end if
if AdminPurview=1 or arrPurview(8)=True then %>
menuItems[i] = new MItem("admin_order.asp","产品订单管理","",j,1,true,false);i=i+1;
<% end if

'--在线影视管理...
if AdminPurview=1 or arrPurview(9)=True or arrPurview(10)=True then %>
menuItems[i] = new MItem("","在线影视管理","",-1,0,false,false);j=i;i=i+1;
<% end if
if AdminPurview=1 or arrPurview(9)=True then %>
menuItems[i] = new MItem("admin_movie.asp?action=add","添加影视","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("admin_movie.asp","影视管理","",j,1,true,false);i=i+1;
<% end if
if AdminPurview=1 or arrPurview(10)=True then %>
menuItems[i] = new MItem("admin_nsort.asp?nsort=movie","影视分类管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("admin_upload_list.asp","影视图片管理","",j,1,true,false);i=i+1;
<%
end if

'--下载管理...
if AdminPurview=1 or AdminPurview_Soft<=3 then %>
menuItems[i] = new MItem("","软件下载管理","",-1,0,false,false);j=i;i=i+1;
menuItems[i] = new MItem("Ad_SoftAdd.asp","添加软件","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_SoftManage.asp?ManageType=MySoft","我添加的软件","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_SoftManage.asp","软件管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_SoftCheck.asp","软件审核","",j,1,true,false);i=i+1;

<%if AdminPurview=1 or AdminPurview_Soft=1 then%>
menuItems[i] = new MItem("Ad_Class_Soft.asp","栏目管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_SoftComment.asp","评论管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_SoftRecyclebin.asp","回收站管理","",j,1,true,false);i=i+1;
<% end if
end if

'--图片管理...
if AdminPurview=1 or AdminPurview_Photo<=3 then %>
menuItems[i] = new MItem("","图片管理","",-1,0,false,false);j=i;i=i+1;
menuItems[i] = new MItem("Ad_PhotoAdd.asp","添加图片","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Admin_PhotoAddAll.asp?ReName=1","批量添加改名","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Admin_PhotoAddAll.asp?ReName=0","批量添加不改名","",j,1,true,false);i=i+1;

menuItems[i] = new MItem("Ad_PhotoManage.asp?ManageType=MyPhoto","我添加的图片","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_PhotoManage.asp","图片管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_PhotoCheck.asp","图片审核","",j,1,true,false);i=i+1;

<%if AdminPurview=1 or AdminPurview_Photo=1 then%>
menuItems[i] = new MItem("Ad_Class_Photo.asp","栏目管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_PhotoComment.asp","评论管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("Ad_PhotoRecyclebin.asp","回收站管理","",j,1,true,false);i=i+1;
<%
end if
end if

'--留言管理...
PurviewPassed=False
arrPurview(0)=CheckPurview(AdminPurview_Guest,"Reply")
arrPurview(1)=CheckPurview(AdminPurview_Guest,"Modify")
arrPurview(2)=CheckPurview(AdminPurview_Guest,"Del")
arrPurview(3)=CheckPurview(AdminPurview_Guest,"Check")
for PurviewIndex=0 to 3
	if arrPurview(PurviewIndex)=True then
		PurviewPassed=True
		exit for
	end if
next
if AdminPurview=1 or PurviewPassed=True then
%>
menuItems[i] = new MItem("","留言板管理","",-1,0,false,false);j=i;i=i+1;
menuItems[i] = new MItem("Ad_Guest.asp","网站留言管理","",j,1,true,false);i=i+1;
<%
end if

'--用户管理...
PurviewPassed=False
arrPurview(0)=CheckPurview(AdminPurview_Others,"User")
arrPurview(1)=CheckPurview(AdminPurview_Others,"MailList")
for PurviewIndex=0 to 1
	if arrPurview(PurviewIndex)=True then
		PurviewPassed=True
		exit for
	end if
next
if AdminPurview=1 or PurviewPassed=True then
%>
menuItems[i] = new MItem("","用户管理","",-1,0,false,false);j=i;i=i+1;
<%if AdminPurview=1 or arrPurview(0)=True then%>
menuItems[i] = new MItem("ad_User.asp","注册用户管理","",j,1,true,false);i=i+1;
menuItems[i] = new MItem("ad_User.asp?Action=Update","更新用户数据","",j,1,true,false);i=i+1;
<%
end if
if AdminPurview=1 or arrPurview(2)=True then
%>
menuItems[i] = new MItem("ad_Maillist.asp","邮件列表","",j,1,true,false);i=i+1;
<%
end if
if AdminPurview=1 then
%>
menuItems[i] = new MItem("Ad_Admin.asp","管理员管理","",j,1,true,false);i=i+1;
<%
end if
end if

'--网站模板管理...
PurviewPassed=False
arrPurview(0)=CheckPurview(AdminPurview_Others,"Skin")
arrPurview(1)=CheckPurview(AdminPurview_Others,"Layout")
for PurviewIndex=0 to 1
	if arrPurview(PurviewIndex)=True then
		PurviewPassed=True
		exit for
	end if
next
if AdminPurview=1 or PurviewPassed=True then
%>
menuItems[i] = new MItem("","网站模板管理","",-1,0,false,false);j=i;i=i+1;
//<% if AdminPurview=1 or arrPurview(0)=True then %>
//menuItems[i] = new MItem("Ad_Skin.asp?","配色模板管理","",j,1,true,false);i=i+1;
//menuItems[i] = new MItem("Ad_Skin.asp?Action=Add","配色模板添加","",j,1,true,false);i=i+1;
//menuItems[i] = new MItem("Ad_Skin.asp?Action=Export","配色模板导出","",j,1,true,false);i=i+1;
//menuItems[i] = new MItem("Ad_Skin.asp?Action=Import","配色模板导入","",j,1,true,false);i=i+1;
<%
end if
'if AdminPurview=1 or arrPurview(1)=True then
%>
menuItems[i] = new MItem("Ad_Layout.asp?Action=Import","版面设计管理","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_Layout.asp?Action=Add","版面设计添加","",j,1,true,false);i=i+1
<%
'end if
end if

'--JS代码管理...
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"JS")=True then
%>
menuItems[i] = new MItem("","JS代码管理","",-1,0,false,false);j=i;i=i+1;
menuItems[i] = new MItem("Ad_MakeJS.asp?Action=JS_Common","普通文章JS代码","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_MakeJS.asp?Action=JS_Pic","首页图文JS代码","",j,1,true,false);i=i+1
<%
end if

'--数据库管理...
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"Database")=True then
%>
menuItems[i] = new MItem("","数据库管理","",-1,0,false,false);j=i;i=i+1;
menuItems[i] = new MItem("Ad_Database.asp?Action=Compact","压缩数据库","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_Database.asp?Action=Backup","备份数据库","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_Database.asp?Action=Restore","恢复数据库","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_Database.asp?Action=Init","系统初始化","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_Database.asp?Action=SpaceSize","系统空间占用","",j,1,true,false);i=i+1
<%
end if

'--上传文件管理...
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"UpFile")=True then
%>
menuItems[i] = new MItem("","上传文件管理","",-1,0,false,false);j=i;i=i+1;
menuItems[i] = new MItem("Ad_UploadFile.asp?UploadDir=UploadFiles","文章频道上传文件","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_UploadFile.asp?UploadDir=UploadThumbs","图片频道缩略图","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_UploadFile.asp?UploadDir=UploadPhotos","图片频道上传图片","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_UploadFile.asp?UploadDir=UploadSoftPic","下载频道软件图片","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_UploadFile.asp?UploadDir=UploadSoft","下载频道上传软件","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_UploadFile.asp?UploadDir=UploadAdPic","网站广告上传图片","",j,1,true,false);i=i+1
menuItems[i] = new MItem("Ad_UploadFile.asp?Action=Clear","清除无用文件","",j,1,true,false);i=i+1
<%end if%>

</SCRIPT>
 	
<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align=center bgcolor=#ccddff  style="border:solid #333355;border-width:1px 1px 1px 1px">
<tr><td height=20 colspan=2>&nbsp;用户名：<%=AdminName%></td></tr>
<tr><td height=20 colspan=2>&nbsp;权&nbsp;&nbsp;限：<%
		  select case AdminPurview
		  	case 1
				response.write "超级管理员"
			case 2
				response.write "<a href=Admin_ShowPurview.asp target=main>普通管理员</a>"
		  end select
		  %></td></tr>
<tr><td colspan=2 height=23 align=middle background=images/ad_qqmenu_top.jpg style="border:solid #666688;border-width:1px 0px 1px 0px">网站管理菜单</td></tr>
<tr>
<td width=1 height="99%" valign=top align=middles background=images/ad_qqmenu_leftbg.jpg style="border:solid #666688;border-width:0px 1px 0px 0px"><img src=images/ad_qqmenu_left.jpg></td>
<td width=99% height="99%" valign=top>
<Script language=javascript>
  InitMenuItems();
  document.onselectstart = CancelSelect;
	function CancelSelect()
	{
		event.cancelBubble = true;
		return false;
	}

</Script>
<script language="vbscript">
	document.getElementById("proc").style.display = "none"

</script>
</td>
</tr></table>

</HTML>
<%
call CloseConn()
%>