<BODY>
<TABLE width="760" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<TD height="32" colspan="6" align="center" class="caption_style">菜单管理(系统只用最新10个)</TD>
</tr>
<tr align="left">
<TD width="60" height="32" align="center">序号</TD>
<TD width="180" align="left">一级菜单名称</TD>
<TD width="180" height="32" align="left">二级菜单名称</TD>
<TD width="180" align="left">链接页面</TD>
<TD width="100" align="center">移位</TD>
<TD width="60" height="32" align="center"> </TD>
</tr>
<%
dim i,sql
i=1
set rs1=server.CreateObject("adodb.recordset")
sq="select top 20 max(ord),mm from menu group by mm order by max(ord) desc"
rs1.open sq,conn,1,1
if not rs1.eof then
while not rs1.eof
mm=rs1("mm")
%>
<tr align="left" class="ev">
<TD height="32" align="center"><%=right("0"&i,2)%></TD>
<TD align="left"><%=mm%></TD>
<TD colspan="4" height="32" align="left"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from menu where mm='"&mm&"' order by ord desc"
rs.open sql,conn,1,1
while not rs.eof
mm=rs("mm")
sm=rs("sm")
id=rs("id")
hlink=rs("hlink")
ord=rs("ord")
%>
<tr align="left" id="<%=id%>|<%=ord%>">
<TD width="180" height="32" align="left"><%=sm%></TD>
<TD width="180" height="32" align="left"><%=hlink%></TD>
<TD width="50" height="32" align="center"><img class="order" style="border:0px;" title="上移" src="picture/arrow_top.png"></TD>
<TD width="50" height="32" align="center"><img class="order" style="border:0px;" title="下移" src="picture/arrow_down.png"></TD>
<TD width="60" height="32" align="center"><img src="picture/bin24.png" width="24" height="24" border="0px" class="delelte" title="删除"></TD>
</tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</table></TD></tr>
<%
rs1.movenext
i=i+1
wend
end if
rs1.close
set rs1=nothing
conn.close
set conn=nothing
%>
千巷猫影
相关分类