<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">单页内容管理</td>
  </tr>
</table><br>
<%
sql="select * from  webmenu where m_type='单页图文' 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 height="20" align="center" bgcolor="#E9F1F8">管理</td>
  </tr>
  <%while not rs.eof %>
  <tr>
    <td width="36%" bgcolor="#E9F1F8" align="center"><%=rs("m_name")%></td>
    <td width="21%" align="center" bgcolor="#E9F1F8"><%=rs("m_type")%></td>
    <td height="20" align="center" bgcolor="#E9F1F8"><a href="mod_web.asp?id=<%=rs("m_name")%>">编辑内容</a></td>
  </tr>
    <%rs.movenext
  wend%>
  <tr>
    <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%>