个人网站设计之上网导航设计

id,queue
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

个人网站设计之上网导航设计(八)