<link href="web_jspok.css" rel="stylesheet" type="text/css" />
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td width="23%" height="20" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
    <td height="20" bgcolor="#E9F1F8"><a href="addmenu.asp">增加菜单</a>&nbsp; <a href="main.asp?adminjob=webmenu">管理菜单</a></td>
  </tr>
</table><br>
<%
sql="select * from  webmenu where m_top='root' order by m_id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then 
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td align="center" bgcolor="#E9F1F8">序号</td>
    <td align="center" bgcolor="#E9F1F8">菜单名称</td>
    <td align="center" bgcolor="#E9F1F8">类型</td>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8">管理</td>
  </tr>
  <%while not rs.eof %>
  <tr>
    <td width="8%" align="center" bgcolor="#E9F1F8"></td>
    <td width="36%" bgcolor="#E9F1F8"><li>--<%=rs("m_name")%></td>
    <td width="21%" align="center" bgcolor="#E9F1F8"><%=rs("m_type")%></td>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8"><a href="menu_del.asp?id=<%=rs("m_name")%>" onClick="return confirm('是否确定删除本记录？');">删除</a></td>
  </tr>
  <%
sql="select * from  webmenu where m_top='"& rs("m_name") &"' order by m_id desc"
Set wrs = Server.CreateObject("ADODB.Recordset")
wrs.open sql,conn,1,3
if not wrs.bof and not wrs.eof then 
%>
<%while not wrs.eof %>
<form action="set_order.asp?id=<%=wrs("m_id")%>" method="post">
  <tr>
    <td align="center" bgcolor="#E9F1F8"><input name="txt_order" type="text" class="input" id="txt_order" value="<%=wrs("m_order")%>" size="6" maxlength="5" /></td>
    <td bgcolor="#E9F1F8">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;◆<%=wrs("m_name")%></td>
    <td bgcolor="#E9F1F8"><%=wrs("m_type")%></td>
    <td width="16%" height="20" align="center" bgcolor="#E9F1F8"><label>
      <input name="Submit" type="submit" class="input" value="提交" />
    </label></td>
    <td width="19%" align="center" bgcolor="#E9F1F8"><a href="menu_del.asp?id=<%=wrs("m_name")%>" onclick="return confirm('是否确定删除本记录？');">删除</a></td>
  </tr></form>
  <%wrs.movenext
  wend%>
  <%end if%>
  <%wrs.close
  set wrs=nothing%>
    <%rs.movenext
  wend%>
  <tr>
    <td align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td align="center" bgcolor="#E9F1F8">&nbsp;</td>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
</table>
<%end if%>