submenu.asp
来自「这是我自己设计的一个资源管理系统」· ASP 代码 · 共 29 行
ASP
29 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资源管理系统</title>
</head>
<body bgcolor="#AAC6FF">
<%
dim parentID,menuID,menuName,menuPath
parentID=request("menuID")
set conn = server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""
sql="select menu_id,menu_name,menu_path from TMenu where parent_id='"&parentID&"'"
set rs=conn.execute(sql)
do until rs.eof
menuID=rs("menu_id")
menuName=rs("menu_name")
menuPath=rs("menu_path")
%>
<div align="center"><a href="<%=menuPath%>?menuID=<%=menuID%>" target="right"><%=menuName%></a></div>
<br>
<%
rs.movenext
loop
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?