?? left.asp
字號(hào):
<%
'/////輸入接口：1、Session變量:
'///// <1>:Session("id"):當(dāng)前用戶名稱
'///// <2>:Session("conn"):系統(tǒng)數(shù)據(jù)庫連接
'///// <3>:Session("qx"):權(quán)限標(biāo)志
'///// 2、Include File:
'///// <1>:/css.asp 樣式表
'///// <2>:/js/menu.js 動(dòng)態(tài)菜單產(chǎn)生程序
'////////////////////////////////////////////////////////////////
'Option Explicit
%>
<html>
<head>
<title>立人管理信息系統(tǒng)</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
'產(chǎn)生功能列表
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from funs order by vnumber",Session("conn"),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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -