📄 admin_popmenu.asp
字号:
<%
dim arrPurview(10),PurviewIndex,strThisFile
strThisFile=lcase(request.ServerVariables("SCRIPT_NAME"))
strThisFile=mid(strThisFile,instrrev(strThisFile,"/")+1,30)
if ShowPopMenu="Yes" and strThisFile<>"admin_index_left.asp" and strThisFile<>"admin_articlecontent.asp" then
%>
<head><STYLE>
.menutable {
BORDER-RIGHT: #39867B 1px solid; BORDER-TOP: #39867B 1px solid; FONT-SIZE: 12px; Z-INDEX: 100; BORDER-LEFT: #39867B 6px solid; BORDER-BOTTOM: #39867B 1px solid; POSITION: absolute; BACKGROUND-COLOR: #ffffff
}
.menutrin {
CURSOR: hand; COLOR: #0000ff; BACKGROUND-COLOR: #E1F4EE
}
.menutrout {
CURSOR: hand; COLOR: #000000
}
.menutd0 {
WIDTH: 28px; HEIGHT: 22px; TEXT-ALIGN: center; 改变这个修改菜单高度---:
}
.menutd1 {
WIDTH: 22px; FONT-FAMILY: Webdings; TEXT-ALIGN: right
}
.linktd1 {
WIDTH: 22px
}
.menutd2 {
WIDTH: 4px
}
.menuhr {
BORDER-RIGHT: #39867B 1px inset; BORDER-TOP: #39867B 1px inset; BORDER-LEFT: #39867B 1px inset; BORDER-BOTTOM: #39867B 1px inset
}
</STYLE>
<!--<BGSOUND id=theBS src="" loop=0></head>-->
<body><script>
<!----
/*-----------------------------------------------------------
鼠标右键菜单 1.0 Designed By Stroll e-mail: csy-163@163.com
--------------------------------------------------------------*/
//--------------- 有关数据 -----------------//
var IconList = new Array(); // icon图片 集合， 下标从 1 开始
IconList[1] = new Image();
IconList[1].src = "images/popmenu/001.gif";
IconList[2] = new Image();
IconList[2].src = "images/popmenu/002.gif";
IconList[3] = new Image();
IconList[3].src = "images/popmenu/003.gif";
IconList[4] = new Image();
IconList[4].src = "images/popmenu/004.gif";
IconList[5] = new Image();
IconList[5].src = "images/popmenu/005.gif";
IconList[6] = new Image();
IconList[6].src = "images/popmenu/0061.gif";
IconList[7] = new Image();
IconList[7].src = "images/popmenu/0062.gif";
IconList[8] = new Image();
IconList[8].src = "images/popmenu/0063.gif";
IconList[9] = new Image();
IconList[9].src = "images/popmenu/007.gif";
IconList[10] = new Image();
IconList[10].src = "images/popmenu/008.gif";
IconList[11] = new Image();
IconList[11].src = "images/popmenu/009.gif";
IconList[12] = new Image();
IconList[12].src = "images/popmenu/010.gif";
IconList[13] = new Image();
IconList[13].src = "images/popmenu/011.gif";
IconList[14] = new Image();
IconList[14].src = "images/popmenu/012.gif";
IconList[15] = new Image();
IconList[15].src = "images/popmenu/013.gif";
IconList[16] = new Image();
IconList[16].src = "images/popmenu/014.gif";
//---------------- 检测变量 菜单的显示隐藏就靠它了！！！ ------------------//
var JustMenuID = "";
var SubMenuList = new Array();
var NowSubMenu = "";
var mouseCanSound = false; //--------------------------- 声音开关 ------ 声音开关 ------------------//
var menuSpeed = 50; //---------- 菜单显示速度 ------------//
var alphaStep = 50; //---------- Alpaha 变化 度 -----------//
var index = -1;
//--------------- 菜单内容 -----------------//
var one = new MouseMenu("one");
<%if AdminPurview=1 or AdminPurview_Article<=3 then%>
one.addMenu("文章管理",6);
index+=1
one[index].addLink("添加文章（简洁模式）","","Admin_ArticleAdd1.asp")
one[index].addLink("添加文章（高级模式）","","Admin_ArticleAdd2.asp")
one[index].addLink("我发表的文章","","Admin_ArticleManage.asp?ManageType=MyArticle")
one[index].addLink("文章管理","","Admin_ArticleManage.asp")
one[index].addLink("文章审核","","Admin_ArticleCheck.asp")
<%if AdminPurview=1 or AdminPurview_Article=1 then%>
one[index].addLink("专题文章管理","","Admin_ArticleManageSpecial.asp")
one[index].addLink("文章回收站管理","","Admin_ArticleRecyclebin.asp")
one[index].addLink("文章评论管理","","Admin_ArticleComment.asp")
one[index].addLink("文章栏目添加","","Admin_Class_Article.asp?Action=Add")
one[index].addLink("文章栏目管理","","Admin_Class_Article.asp")
one[index].addLink("文章专题添加","","Admin_Special.asp?Action=Add")
one[index].addLink("文章专题管理","","Admin_Special.asp")
<%
end if
end if
if AdminPurview=1 or AdminPurview_Soft<=3 then
%>
one.addMenu("软件管理",7);
index+=1
one[index].addLink("添加软件","","Admin_SoftAdd.asp")
one[index].addLink("我添加的软件","","Admin_SoftManage.asp?ManageType=MySoft")
one[index].addLink("软件管理","","Admin_SoftManage.asp")
one[index].addLink("软件审核","","Admin_SoftCheck.asp")
<%if AdminPurview=1 or AdminPurview_Soft=1 then%>
one[index].addLink("软件回收站管理","","Admin_SoftRecyclebin.asp")
one[index].addLink("软件评论管理","","Admin_SoftComment.asp")
one[index].addLink("下载栏目添加","","Admin_Class_Soft.asp?Action=Add")
one[index].addLink("下载栏目管理","","Admin_Class_Soft.asp")
<%
end if
end if
if AdminPurview=1 or AdminPurview_Photo<=3 then
%>
one.addMenu("图片管理",8);
index+=1
one[index].addLink("添加图片","","Admin_PhotoAdd.asp")
one[index].addLink("我添加的图片","","Admin_PhotoManage.asp?ManageType=MyPhoto")
one[index].addLink("图片管理","","Admin_PhotoManage.asp")
one[index].addLink("图片审核","","Admin_PhotoCheck.asp")
<%if AdminPurview=1 or AdminPurview_Photo=1 then%>
one[index].addLink("图片回收站管理","","Admin_PhotoRecyclebin.asp")
one[index].addLink("图片评论管理","","Admin_PhotoComment.asp")
one[index].addLink("图片栏目添加","","Admin_Class_Photo.asp?Action=Add")
one[index].addLink("图片栏目管理","","Admin_Class_Photo.asp")
<%
end if
end if
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,"Count")
for PurviewIndex=0 to 5
if arrPurview(PurviewIndex)=True then
PurviewPassed=True
exit for
end if
next
if AdminPurview=1 or PurviewPassed=True then
%>
one.addMenu("常规设置",9);
index+=1
<%if AdminPurview=1 then%>
one[index].addLink("网站信息配置","","Admin_SiteConfig.asp")
<%
end if
if AdminPurview=1 or arrPurview(0)=True then
%>
one[index].addLink("网站频道添加","","Admin_Channel.asp?Action=Add")
one[index].addLink("网站频道管理","","Admin_Channel.asp")
<%
end if
if AdminPurview=1 or arrPurview(1)=True then
%>
one[index].addLink("网站广告添加","","Admin_Advertisement.asp?Action=Add")
one[index].addLink("网站广告管理","","Admin_Advertisement.asp")
<%
end if
if AdminPurview=1 or arrPurview(2)=True then
%>
one[index].addLink("友情链接添加","","Admin_FriendSite.asp?Action=Add")
one[index].addLink("友情链接管理","","Admin_FriendSite.asp")
<%
end if
if AdminPurview=1 or arrPurview(3)=True then
%>
one[index].addLink("发布网站公告","","Admin_Announce.asp?Action=Add")
one[index].addLink("网站公告管理","","Admin_Announce.asp")
<%
end if
if AdminPurview=1 or arrPurview(4)=True then
%>
one[index].addLink("发布网站调查","","Admin_Vote.asp?Action=Add")
one[index].addLink("网站调查管理","","Admin_Vote.asp")
<%
end if
if AdminPurview=1 or arrPurview(5)=True then
%>
one[index].addLink("网站统计系统","","Count/main.asp")
one[index].addLink("网站统计管理","","Count/index.asp")
<%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
%>
one.addMenu("留言板管理",10)
index+=1
<%if AdminPurview=1 or arrPurview(3)=True then%>
one[index].addLink("网站留言审核","","Admin_Guest.asp")
<%end if%>
one[index].addLink("网站留言管理","","Admin_Guest.asp")
<%
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
%>
one.addMenu("用户管理",11)
index+=1
<%if AdminPurview=1 or arrPurview(0)=True then%>
one[index].addLink("注册用户管理","","Admin_User.asp")
one[index].addLink("更新用户数据","","Admin_User.asp?Action=Update")
<%
end if
if AdminPurview=1 or arrPurview(2)=True then
%>
one[index].addLink("邮件列表","","Admin_Maillist.asp")
one[index].addLink("列表导出","","Admin_Maillist.asp?Action=Export")
<%
end if
if AdminPurview=1 then
%>
one[index].addLink("管理员添加","","Admin_Admin.asp?Action=Add")
one[index].addLink("管理员管理","","Admin_Admin.asp")
<%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
%>
one.addMenu("模板管理",12)
index+=1
<%if AdminPurview=1 or arrPurview(0)=True then%>
one[index].addLink("配色模板添加","","Admin_Skin.asp?Action=Add")
one[index].addLink("配色模板管理 ","","Admin_Skin.asp")
one[index].addLink("配色模板导出","","Admin_Skin.asp?Action=Export")
one[index].addLink("配色模板导入","","Admin_Skin.asp?Action=Import")
<%
end if
if AdminPurview=1 or arrPurview(1)=True then
%>
one[index].addLink("版面设计添加","","Admin_Layout.asp?Action=Add")
one[index].addLink("版面设计管理","","Admin_Layout.asp")
one[index].addLink("版面设计导出","","Admin_Temp.asp")
one[index].addLink("版面设计导入 ","","Admin_Temp.asp")
<%end if%>
<%
end if
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"JS")=True then
%>
one.addMenu("JS代码管理",13)
index+=1
one[index].addLink("普通文章的JS代码","","Admin_MakeJS.asp?Action=JS_Common")
one[index].addLink("首页图文的JS代码","","Admin_MakeJS.asp?Action=JS_Pic")
<%
end if
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"Database")=True then
%>
one.addMenu("数据库管理",14)
index+=1
one[index].addLink("压缩数据库","","Admin_Database.asp?Action=Compact")
one[index].addLink("备份数据库","","Admin_Database.asp?Action=Backup")
one[index].addLink("恢复数据库","","Admin_Database.asp?Action=Restore")
one[index].addLink("系统初始化","","Admin_Database.asp?Action=Init")
one[index].addLink("系统空间占用","","Admin_Database.asp?Action=SpaceSize")
<%end if
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"UpFile")=True then
%>
one.addMenu("上传文件管理",15)
index+=1
one[index].addLink("文章频道的上传文件","","Admin_UploadFile.asp?UploadDir=UploadFiles")
one[index].addLink("图片频道的缩略图","","Admin_UploadFile.asp?UploadDir=UploadThumbs")
one[index].addLink("图片频道的上传图片","","Admin_UploadFile.asp?UploadDir=UploadPhotos")
one[index].addLink("下载频道的软件图片","","Admin_UploadFile.asp?UploadDir=UploadSoftPic")
one[index].addLink("下载频道的上传软件","","Admin_UploadFile.asp?UploadDir=UploadSoft")
one[index].addLink("清除无用文件","","Admin_UploadFile.asp?Action=Clear")
<%end if%>
one.addHR();
one.addLink("刷新",5,"javascript:location.reload()","main")
one.addLink("前进",4,"javascript:history.go(1)","main")
one.addLink("后退",3,"javascript:history.back(1)","main")
one.addHR();
one.addLink("修改密码",2,"Admin_AdminModifyPwd.asp","main")
one.addLink("管理首页",1,"Admin_Index_Main.asp","main")
//------------- 构建 主菜单 对象 -------------//
function MouseMenu(objName)
{
this.id = "Menu_"+objName;
this.obj = objName;
this.length = 0;
this.addMenu = addMenu;
this.addLink = addLink;
this.addHR = addHR;
JustMenuID = this.id;
document.body.insertAdjacentHTML('beforeEnd','<table id="'+this.id+'" border="0" cellspacing="0" cellpadding="0" style="top: 0; left: 0; visibility: hidden; filter:Alpha(Opacity=0);" class="menutable" onmousedown=event.cancelBubble=true; onmouseup=event.cancelBubble=true></table>');
}
//----------- 构建 子菜单 对象 -------------//
function SubMenu(objName,objID)
{
this.obj = objName;
this.id = objID;
this.addMenu = addMenu;
this.addLink = addLink;
this.addHR = addHR;
this.length = 0;
}
//-------------- 生成 菜单 makeMenu 方法 -----------//
function makeMenu(subID,oldID,word,icon,url,target,thetitle)
{
var thelink = '';
if(icon&&icon!="")
{
icon = '<img border="0" src="'+IconList[icon].src+'">';
}
else
{
icon = '';
}
if(!thetitle||thetitle=="")
{
thetitle = '';
}
if(url&&url!="")
{
thelink += '<a href="'+url+'" ';
if(target&&target!="")
{
thelink += ' ';
thelink += 'target="'+target+'" '
}
thelink += '></a>';
}
var Oobj = document.getElementById(oldID);
/*--------------------------------------------- 菜单html样式
<tr class="menutrout" id="trMenu_one_0" title="I am title">
<td class="menutd0"><img src="icon/sub.gif" border="0" width="16" height="16"></td>
<td><a href="javascript:alert('I am menu');" target="_self"></a><nobr>菜单一</nobr></td>
<td class="menutd1">4</td>
<td class="menutd2"> </td>
</tr>
--------------------------------------------------*/
Oobj.insertRow();
with(Oobj.rows(Oobj.rows.length-1))
{
id = "tr"+subID;
className = "menutrout";
title = thetitle;
}
eventObj = "tr"+subID;
eval(eventObj+'.attachEvent("onmouseover",MtrOver('+eventObj+'))');
eval(eventObj+'.attachEvent("onclick",MtrClick('+eventObj+'))');
var trObj = eval(eventObj);
for(i=0;i<4;i++)
{
trObj.insertCell();
}
with(Oobj.rows(Oobj.rows.length-1))
{
cells(0).className = "menutd0";
cells(0).innerHTML = icon;
cells(1).innerHTML = thelink+'<nobr class=indentWord>'+word+'</nobr>';
cells(1).calssName = "indentWord"
cells(2).className = "menutd1";
cells(2).innerHTML = "4";
cells(3).className = "menutd2";
cells(3).innerText = " ";
}
document.body.insertAdjacentHTML('beforeEnd','<table id="'+subID+'" border="0" cellspacing="0" cellpadding="0" style="top: 0; left: 0; visibility: hidden; filter:Alpha(Opacity=0);" class="menutable" onmousedown=event.cancelBubble=true; onmouseup=event.cancelBubble=true></table>');
}
//---------------- 生成连接 makeLink 方法 ------------//
function makeLink(subID,oldID,word,icon,url,target,thetitle)
{
var thelink = '';
if(icon&&icon!="")
{
icon = '<img border="0" src="'+IconList[icon].src+'">';
}
else
{
icon = '';
}
if(!thetitle||thetitle=="")
{
thetitle = '';
}
if(url&&url!="")
{
thelink += '<a href="'+url+'" ';
if(target&&target!="")
{
thelink += ' ';
thelink += 'target="'+target+'" '
}
thelink += '></a>';
}
var Oobj = document.getElementById(oldID);
/*--------------------------------------------- 连接html样式
<tr class="menutrout" id="trMenu_one_0" title="I am title">
<td class="menutd0"><img src="icon/sub.gif" border="0" width="16" height="16"></td>
<td><a href="javascript:alert('I am link');" target="_self"></a><nobr>连接一</nobr></td>
<td class="linktd1"></td>
<td class="menutd2"> </td>
</tr>
--------------------------------------------------*/
Oobj.insertRow();
with(Oobj.rows(Oobj.rows.length-1))
{
id = "tr"+subID;
className = "menutrout";
title = thetitle;
}
eventObj = "tr"+subID;
eval(eventObj+'.attachEvent("onmouseover",LtrOver('+eventObj+'))');
eval(eventObj+'.attachEvent("onmouseout",LtrOut('+eventObj+'))');
eval(eventObj+'.attachEvent("onclick",MtrClick('+eventObj+'))');
var trObj = eval(eventObj);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -