📄 left.asp
字号:
<%
'/////输入接口：1、Session变量:
'///// <1>:Session("id"):当前用户名称
'///// <2>:oconn:系统数据库连接
'///// <3>:Session("qx"):权限标志
'///// 2、Include File:
'///// <1>:/css.asp 样式表
'///// <2>:/js/menu.js 动态菜单产生程序
'////////////////////////////////////////////////////////////////
'Option Explicit
%>
<html>
<head>
<title>立人管理信息系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../inc/css.asp" -->
<script language=JScript src="../js/menu.js"> </script>
<style>
BODY {
margin : 0;
padding : 0;
color : ButtonText;
font : 9pt ;
border : none;
}
td { font-size: 9pt; font-family: Verdana }
</style>
</head>
<body onLoad="constructmenu();" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" scroll=no class=vtext background= >
<ul id="mytree" style="display:none;" color1="<%=Session("vsubmenubackcolor")%>" colorborder="<%=Session("vsubmenubordercolor")%>" color2="#ffffff" img1="../images/<%=Session("vsubmenuimage")%>" haveico="no">
<%
dim t1,t2,iwrite,t
'产生功能列表
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from funs order by vnumber",oconn,1,1
t1=""
t2=""
t=Session("qx")
while not rs.eof
if (rs("vnumber") mod 16)=0 then
if iwrite=1 then
response.write( t1 & t2 & "</li>" )
end if
t1="<li value='" & rs("vstyle") & "'>"
t2=""
iwrite=0
end if
if rs("vshow")="t" and mid(t,rs("vnumber")+1,1)="1" and rs("vname")<>"" then
t2=t2+"<ul imgsrc='" & rs("vimage") & "' value='" & rs("vname") & "' alt='" & rs("vtitle") & "' href='" & rs("vurl") & "'></ul>"
iwrite=1
end if
rs.movenext
wend
if iwrite=1 then
response.write(t1 & t2 & "</li>")
end if
RS.CLOSE
SET RS=NOTHING
%>
</ul>
<div id="menu">
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -