📄 browsemodule.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资源管理系统</title>
</head>
<script language="JavaScript">
function delSubMenu(menuID)
{
if(confirm("真的要删除吗?"))
window.location="delSubMenu.asp?menuID="+menuID;
}
</script>
<body>
<p><font color="#FF9900"><strong>>> 模块管理</strong></font></p>
<table width="100%" border="1" cellspacing="0" bordercolor="#FFAC75">
<tr bgcolor="#99CCFF">
<td width="20%" height="32">
<div align="center"><strong><font color="#006600">父菜单</font></strong></div></td>
<td width="20%"><div align="center"><strong><font color="#006600">子菜单</font></strong></div></td>
<td width="20%"><div align="center"><strong><font color="#006600">添加菜单</font></strong></div></td>
<td width="20%"><div align="center"><strong><font color="#006600">编辑</font></strong></div></td>
<td width="20%"><div align="center"><strong><font color="#006600">删除</font></strong></div></td>
</tr>
<%
dim menuID,menuName,menuPath,menuDesc,sql
set conn = server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""
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")
%>
<tr bgcolor="#C8E3FF">
<td>
<div align="center"><font color="#006600"><%=menuName%></font></div></td>
<td>
<div align="center"><font color="#006600"> </font></div></td>
<td>
<div align="center"><font color="#006600"><a href="addSubMenu0.asp?menuID=<%=menuID%>"><img src="image/forword.gif" width="32" height="22" border="0"></a></font></div></td>
<td>
<div align="center"><font color="#006600"><a href="editMenu0.asp?menuID=<%=menuID%>"><img src="image/edit.gif" width="15" height="15" border="0"></a></font></div></td>
<td>
<div align="center"><font color="#006600"><img src="image/delete.gif" width="20" height="20"></font></div></td>
</tr>
<%
sql="select menu_id,menu_name,menu_path from TMenu where parent_id='"&menuID&"'"
set rs1=conn.execute(sql)
do until rs1.eof
menuID=rs1("menu_id")
menuName=rs1("menu_name")
menuPath=rs1("menu_path")
%>
<tr bgcolor="#DDEEFF">
<td>
<div align="center"><font color="#006600"> </font></div></td>
<td>
<div align="center"><font color="#006600"><%=menuName%></font></div></td>
<td>
<div align="center"><font color="#006600"> </font></div></td>
<td>
<div align="center"><font color="#006600"><a href="editMenu0.asp?menuID=<%=menuID%>"><img src="image/edit.gif" width="15" height="15" border="0"></a></font></div></td>
<td>
<div align="center"><font color="#006600"><img src="image/delete.gif" width="20" height="20"onClick="delSubMenu(<%=menuID%>)" style="cursor:hand"></font></div></td>
</tr>
<%
rs1.movenext
loop
%>
<%
rs.movenext
loop
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -