📄 menufrm.asp
字号:
<!--#include file="inc/Secure.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Const.asp"-->
<%
userRights=getRights()'取用户权限
%>
<html>
<head>
<title>menu</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/menu.css" type="text/css">
<SCRIPT src="js/menu.js" type="text/javascript"></SCRIPT>
<base target="FrmMain">
</head>
<body topmargin="0" leftmargin="0">
<table border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top"><img border="0" src="images/menu_top.gif" width="156" height="19"></td>
</tr>
<tr>
<td width="100%" valign="top" height="100%" background="images/menu_back.gif">
<!----------------------------------MENU STAR---------------------------------->
<table width="140" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<SPAN style="FONT-SIZE:12px;COLOR:#ff6600">
<IMG src="./images/t_home.gif" align="absMiddle"> <strong>我的控制面板</strong>
</SPAN><br>
<%
set oRsRightType=server.createobject("ADODB.RecordSet")
sql="select * from tbioaRoleRightsType where mod<>'X'"
oRsRightType.open sql,oConn,1,1
while not oRsRightType.eof
set oRsRight=server.createobject("ADODB.RecordSet")
sql="select * from tbioaRoleRights where TypeNumber='"&oRsRightType("Number")&"' and FileName<>'' and mod<>'X' and number in ("&userRights&"0)"
oRsRight.open sql,oConn,1,1
if not oRsRight.eof then
%>
<!--<%=htmlout(oRsRightType("Title"))%>-->
<SPAN class="menu" id="zhugan_<%=cint(oRsRightType("Number"))%>" onClick="showdiv(<%=cint(oRsRightType("Number"))%>)"> <IMG src="./images/t_plus.gif" name="image<%=cint(oRsRightType("Number"))%>" width="16" height="18" align="absMiddle"><IMG src="./images/close.gif" align="absMiddle" border="0" name="img<%=cint(oRsRightType("Number"))%>"> <%=htmlout(oRsRightType("Title"))%></SPAN><BR>
<DIV id="subtree<%=cint(oRsRightType("Number"))%>" style="DISPLAY: none" nowrap>
<%while not oRsRight.eof%>
<IMG src="./images/line_05.gif" align="absMiddle"><A href="<%=oRsRight("FileName")%>"><%=htmlout(oRsRight("Title"))%></A><BR>
<%oRsRight.movenext
wend
oRsRight.close
%>
</DIV>
<!---->
<%
end if
oRsRightType.movenext
wend
oRsRightType.close
%>
<!----------------- 退出---------------------->
<SPAN id="zhugan100" class="menu">
<IMG src="./images/t_subl.gif" align="absMiddle"><IMG src="./images/t_exit.gif" align="absMiddle" border="0">
<A href="Default.asp?quit=1" target="_parent">退出</A></SPAN>
</td>
</tr>
</table>
<!----------------------------------MENU END---------------------------------->
</td>
</tr>
<tr>
<td width="100%" valign="top"><img border="0" src="images/menu_bottom.gif" width="156" height="20"></td>
</tr>
</table>
</body>
</html>
<!--#include file="inc/conn_close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -