📄 topmenu.asp
字号:
<!-- pingmac www.pingmac.com -->
<!--#include file="../inc/SysLoginCheck.inc.asp" -->
<!--#include file="../dbconnect/conn.asp" -->
<%
set rsa=Server.CreateObject("adodb.recordset")
sqla="select * from system"
rsa.open sqla,conn,1,1
%>
<HTML><HEAD><TITLE><%=rsa("Systemname")%></TITLE>
<META http-equiv=Pragma content=no-cache>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../css/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3020" name=GENERATOR></HEAD>
<BODY class=TopMenu_Bg leftMargin=0 topMargin=3 onload=loginMsg()
marginheight="0" marginwidth="0">
<TABLE class=emboss cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<%
'on error resume next
set rs=Server.CreateObject("adodb.recordset")
sql="select * from menu ORDER BY sid DESC"
rs.open sql,conn,1,1
do while not rs.EOF
%>
<div align="center"> <TD class=gray width=12><IMG height=9
src="../images/Ico_SmallPane.gif" width=9></TD>
<TD noWrap><A class=gray
href="Left.asp?sID=<%=rs("sid")%>&name=<%=rs("sysMenuname")%>"
target=leftFrame><%=rs("sysMenuname")%></A></TD></div>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
<%rsa.close
set rsa=nothing
%>
</TR></TBODY></TABLE><SPAN id=msgSpan
style="DISPLAY: none" name="msgSpan">null</SPAN>
<META http-equiv=Pragma content=no-cache>
<META http-equiv=Expires content=-1></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -