leftnav.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="Nav">
  <%
   set Rs = server.createobject("adodb.recordset") 
   Rs.source = "select * from Nweb_SNov where Putout=true order by SNumber "
   Rs.open Rs.source,conn,1,1
   if Rs.BOF then
      response.write "<tr><td colspan='7' width='100%' height='50'' align='center'>暂无栏目链接信息!</td></tr>"
   end if
   for i=1 to Rs.PageSize
       if Rs.EOF or Rs.BOF then exit for
  %>
  <tr>
    <td width="13" height="22" background="Images/Arrow-LeftNav.jpg" bgcolor="#FFFFFF">&nbsp;</td>
    <td bgcolor="#2263BB">&nbsp;&nbsp;&nbsp;&nbsp;<a href="<%=Rs("NovUrl")%>"><%=Rs("NovName")%></a></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" height="3"></td>
    <td bgcolor="#FFFFFF"></td>
  </tr>
  <%
   Rs.movenext
   next
   Rs.close
   set Rs=nothing
  %>
</table>