top.asp

来自「这是我自己设计的一个资源管理系统」· ASP 代码 · 共 33 行

ASP
33
字号
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资源管理系统</title>
</head>

<body bgcolor="#84ACFF" >
<div align="center"> 
  <p><font color="#FF9900" size="7"><strong>资源管理系统</strong></font></p>
  <p>&nbsp;</p>
  <p> 
    <%
set conn=server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""
dim menuID,menuName,menuPath,sql
sql="select menu_id,menu_name,menu_path from TMenu where parent_id=0"
set rs=conn.execute(sql)
do until rs.eof 
	menuID=rs("menu_id")
	menuName=rs("menu_name")
	menuPath=rs("menu_path")
%>
    <a href="subMenu.asp?menuID=<%=menuID%>" target="left"><%=menuName%></a>&nbsp;&nbsp;&nbsp;&nbsp; 
    <%
rs.movenext
loop
%>
</p>

</div>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?