 <div id="nav4">栏目导航</div>
  <div id="nav_content">
	<ul class="cannel2">
      <%
Dim rsd
Set rsd = server.CreateObject("adodb.recordset")
rsd.Open "select * from download_category order by order_id asc", conn, 1, 1
While Not rsd.EOF
    response.Write("<li><a href=""down.asp?id=" & rsd("id") & """>" & rsd("title") & "</a></li>")
    rsd.movenext
Wend
rsd.Close
Set rsf = Nothing
%>
</ul>
</div>
<div id="nav4">点击排行</div>
<div id="nav_content">
<ul>
<%
 Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select top 6 * from news order by hit desc",conn,1,1
if rs.eof and rs.bof then
response.Write("")
else
do while not rs.eof
%>
<li>·<a href="list.asp?yiid=<%=rs("yiid")%>"><%=rs("title")%></a></li>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
 %>
</ul>
</div>
<div id="nav4">投票调查</div>
<div id="nav_content">
<script language="javascript" src="vote/votescript.asp?vid=7"></script>
</div>