📄 menu.asp
字号:
<%
'文件功能:显示菜单
'版权所有:万户网络
'编写人员:房鹏
'编写时间:2003-8-12
'修改人员：房鹏
'修改时间：2003-8-13
'修改目的：设立权限控制
%>
<head>
<style type=text/css>
body { background:#799AE1; margin:0px; font:9pt 宋体; }
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover { color:#428EFF;text-decoration:none; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; cursor:hand; }
.menu_title2 { cursor:hand; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; cursor:hand; }
</style>
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"block\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
function op(k)
{
for (i=0;i<=k;i++){
whichEl = eval("submenu" + i)
if (whichEl.style.display=="none") whichEl.style.display="block"}
}
function cl(k)
{
for (i=0;i<=k;i++){
whichEl = eval("submenu" + i)
if (whichEl.style.display=="block") whichEl.style.display="none"}
}
</SCRIPT>
<%
REM 网站管理设置
dim menu(9,10)
menu(0,0)="员工信息"
menu(1,0)="部门信息"
menu(2,0)="项目信息"
menu(3,0)="工资管理"
menu(4,0)="技术部提成管理"
menu(5,0)="市场部提成管理"
menu(6,0)="个人工资查询"
menu(7,0)="个人提成查询"
menu(8,0)="日志查询"
menu(9,0)="版权所有"
'---------------------------------------------员工信息
if session("enter")=1 then
menu(0,1)="<A HREF=wh_employees/Main.asp target=mainFrame>主界面</A>"
menu(0,2)="<A HREF=wh_employees/Search.asp target=mainFrame>查询</A>"
end if
if session("right")>1 then
menu(0,3)="<A HREF=wh_employees/Update.asp target=mainFrame>新增</A>"
end if
'---------------------------------------------部门信息
if session("enter")=1 then
menu(1,1)="<A HREF=wh_departments/Main.asp target=mainFrame>主界面</A>"
menu(1,2)="<A HREF=wh_departments/Search.asp target=mainFrame>查询</A>"
end if
if session("right")=4 then
menu(1,3)="<A HREF=wh_departments/Update.asp target=mainFrame>新增</A>"
end if
'---------------------------------------------项目管理
if session("enter")=1 then
menu(2,1)="<A HREF=wh_projects/Main.asp target=mainFrame>主界面</A>"
menu(2,2)="<A HREF=wh_projects/Search.asp target=mainFrame>查询</A>"
end if
if session("right")>=3 then
menu(2,3)="<A HREF=wh_projects/Update.asp target=mainFrame>新增</A>"
menu(2,4)="<A HREF=wh_projects/table.asp target=mainFrame>项目一览</A>"
end if
'---------------------------------------------工资管理
if session("right")>=3 then
menu(3,1)="<A HREF=wh_salaryItems1/Main.asp target=mainFrame>维护工资栏目（正项）</A>"
menu(3,2)="<A HREF=wh_salaryItems2/Main.asp target=mainFrame>维护工资栏目（负项）</A>"
menu(3,3)="<A HREF=wh_salaries/Main.asp target=mainFrame>员工工资维护</A>"
menu(3,4)="<A HREF=wh_salaries/count.asp target=mainFrame>月度工资结算</A>"
menu(3,5)="<A HREF=wh_salaries/table1.asp target=mainFrame>近期工资发放一览</A>"
end if
'---------------------------------------------技术部提成
if session("right")>=3 or session("right")=2 and session("dpt")=1 then
menu(4,1)="<A HREF=wh_tech_bonuses/Main2.asp target=mainFrame>主界面</A>"
menu(4,2)="<A HREF=wh_tech_bonuses/Search.asp target=mainFrame>查询</A>"
menu(4,3)="<A HREF=wh_tech_bonuses/Update.asp target=mainFrame>新增</A>"
end if
'---------------------------------------------市场部提成
if session("right")>=3 or session("right")=2 and session("dpt")=2 then
menu(5,1)="<A HREF=wh_market_bonuses/Main.asp target=mainFrame>主界面</A>"
menu(5,2)="<A HREF=wh_market_bonuses/Search.asp target=mainFrame>查询</A>"
menu(5,3)="<A HREF=wh_market_bonuses/Update.asp target=mainFrame>新增</A>"
end if
'---------------------------------------------个人工资查询
if session("enter")=1 then
menu(6,1)="<A HREF=view_salaries/Main.asp target=mainFrame>主界面</A>"
menu(6,2)="<A HREF=view_salaries/Search.asp target=mainFrame>查询</A>"
menu(6,3)="<A HREF=view_salaries/table1.asp target=mainFrame>近期工资一览</A>"
end if
'---------------------------------------------个人提成查询
if session("dpt")=1 then
menu(7,1)="<A HREF=view_tech_bonus/Main.asp target=mainFrame>技术部——主界面</A>"
menu(7,2)="<A HREF=view_tech_bonus/Search.asp target=mainFrame>技术部——查询</A>"
menu(7,3)="<A HREF=view_tech_bonus/table.asp?time=1 target=mainFrame>技术部——近期提成一览(前期分配)</A>"
menu(7,4)="<A HREF=view_tech_bonus/table.asp?time=2 target=mainFrame>技术部——近期提成一览(后期分配)</A>"
elseif session("dpt")=2 then
menu(7,1)="<A HREF=view_market_bonus/Main.asp target=mainFrame>市场部——主界面</A>"
menu(7,2)="<A HREF=view_market_bonus/Search.asp target=mainFrame>市场部——查询</A>"
menu(7,3)="<A HREF=view_market_bonus/table.asp target=mainFrame>市场部——近期提成一览</A>"
end if
'---------------------------------------------日志查询
if session("right")=4 then
menu(8,1)="<A HREF=pub/readlog.asp?logtype=2 target=mainFrame>登陆日志</A>"
menu(8,2)="<A HREF=pub/readlog.asp?logtype=3 target=mainFrame>用户错误操作日志</A>"
menu(8,3)="<A HREF=pub/readlog.asp?logtype=1 target=mainFrame>管理操作功能日志</A>"
menu(8,4)="<A HREF=wh_logs/Search.asp target=mainFrame>条件查询</A>"
end if
'---------------------------------------------帮助
menu(9,1)="<A HREF=http://www.whir.net target=_blank>万户网络</A>"
menu(9,2)="<A HREF=mailto:ahfun@whir.net target=_parent>技术支持</A>"
%>
</head>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<div align="center">
<center>
<table cellspacing="0" cellpadding="0" style="border-collapse: collapse; border-width: 0" height="100%" bordercolor="#111111"><tr>
<td valign="top">
<table width=100% cellpadding=0 cellspacing=0 border=0 style="border-collapse: collapse" bordercolor="#111111" height="100%">
<tr><td valign=top>
<div align="center">
<center>
<table cellpadding=0 cellspacing=0 width=157 style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height=38 background="images/title.gif" width="159" valign="bottom">
<DIV valign="bottom" id=oa_tree ; style="width: 156; height: 22" >
</div></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table cellpadding=0 cellspacing=0 width=157 style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height=30 class=menu_title background=images/title_bg_quit.gif >
<span>
<%
%>
<a href=# onclick="op(<%=ubound(menu,1)%>)"><b>打开全部</b></a>
<a href=# onclick="cl(<%=ubound(menu,1)%>)"><b>关闭全部</b></a></span></td>
</tr>
</table>
</center>
</div>
<%
dim j
dim tmpmenu
dim menuname
dim menurl
for i=0 to ubound(menu,1)
%>
<table cellpadding=0 cellspacing=0 width=157 align=center>
<tr>
<td height=25 class=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:none" id='submenu<%=i%>'>
<div class=sec_menu style="width:157">
<table cellpadding=0 cellspacing=0 align=center width=135>
<%
for j=1 to ubound(menu,2)
if isempty(menu(i,j)) then exit for
%>
<tr><td height=20><%=menu(i,j)%></td></tr>
<%
next
%>
</table>
</div>
<div style="width:157">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
</div>
</td>
</tr>
</table>
<%next%>
<div align="center">
<center>
<table cellpadding=0 cellspacing=0 width=157 style="border-collapse: collapse" bordercolor="#111111">
<!-- <tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/title_bg_quit.gif" id=menuTitle1>
</td>
</tr>
--></table></center>
</div>
</td></tr></table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -