Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.eof then
Response.Write("<tr bgcolor=""#B0CBE6"">")
Response.Write("<td colspan=""6"" height=""50"">目前还没有分类，请<a href=""admin_class_edit.asp?a=add"">添加一个分类</a></td></tr>")
end if
do while not rs.eof %>
<tr bgcolor="#EBF2F9">
<td height="22" ><span class="style1">
<%if rs("sortstep")>0 then
for i=1 to rs("sortstep")%>
→
<%next
end if%>
<%=rs("sort")%> </span><span class="style2">
<%if rs("sortstep")=0 then %>
[目录名：<%=rs("sml")%>/index.htm]
<%else%>
[文件名：<%=rs("sml")%>.htm]
<%end if%> </span></td>
<td height="22" bgcolor="#73A2D6" align="center" ><b><%=rs("demoid")%></b>
</td>
<td ALIGN="RIGHT" width="45"><input class="s" name="queue<%=rs("sortid")%>" value="<%=rs("queue")%>" type="text" size="2" maxlength="3" /></td>
<td ALIGN="RIGHT" width="232"><%if rs("sortstep")>5 then
response.write"添加下级分类"
else%>
<a href="admin_class_edit.asp?action=add&editid=<%=rs("sortid")%>">添加下级</a>
<%end if%>
|<a href="admin_class_edit.asp?action=edit&editsort=<%=rs("sort")%>&editdemoid=<%=rs("demoid")%>&editid=<%=rs("sortid")%>&editsml=<%=rs("sml")%>">修改</a>
|<a href="admin_class_edit.asp?action=unite&unitesort=<%=rs("sort")%>&editid=<%=rs("sortid")%>">转移</a>
|<a href="admin_class_edit.asp?action=del&delsort=<%=rs("sort")%>&editid=<%=rs("sortid")%>">删除</a>
|<a href="admin_class_edit.asp?action=updat&sort=<%=rs("sort")%>&sortid=<%=rs("sortid")%>" title="重新统计该分类的网址数据总数">更新</a></td></tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
3．3．3 城市与行业管理
a.界面
b.功能说明：生活资讯/民众心声采用mxl技术调用新华网最新新闻。
c.部分代码如下
<table cellspacing="1" cellpadding="4" align="center" width="100%" bgcolor="#ACC1FF">
<tr bgcolor="#73A2D6" class="br_b_1">
<td colspan="4" height="25" ><B>修改分类名（目录名/文件名）</B></td></tr>
<form name="modisort" method="post" action="City_class_edit.asp?action=editsave">
<tr> <td width="14%" class="font_title_3" bgcolor="#73A2D6">分类名：</td>
<td ><INPUT TYPE="text" NAME="editsort" VALUE="<%=request("editsort")%>"></td>
<td class="font_title_3" bgcolor="#73A2D6" WIDTH="17
首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/15/15
个人网站设计之上网导航设计(八)由毕业论文网（www.huoyuandh.com）会员上传。
