栏目导航

<% if h1title<>"" then %><%=h1title%><%else%>新闻资讯<%end if%>

    <% dim search_sql,search_class,filego search_class=request("nclass") filego="news.asp?nclass="&search_class search_sql="select * from [news] where 1=1" if search_class<>"" and search_class<>"不限" then search_sql=search_sql & " and nclass="&search_class end if search_sql=search_sql & " order by pubdate desc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open search_sql,conn,1,1 if not rs.eof then rs.PageSize = 15 '每页显示记录数 If Request("page")<>"" and IsNumeric(Request("page")) Then page=cint(Request("page")) End If if page<=0 then page=1 end if if page>Rs.PageCount then page=Rs.PageCount end if Rs.AbsolutePage=page currentpage=page for i=1 to 15 %>
  • <%=rs("pubdate")%>" target="_blank"><%=rs("title")%>
  • <% rs.movenext() if rs.eof then exit for end if next %>
共有<%=Rs.RecordCount%>条信息 | 每页显示<%=Rs.PageSize%>条信息 | 共有<%=Rs.PageCount%>页 | 当前第<%=page%>页 | 首页 | &page=<%=page-1%>>上页 | &page=<%=page+1%>>下页 | &page=<%=Rs.PageCount%>>尾页
<%rs.close() set rs=nothing %> <%else%>
  • 没有找到相关记录
  • <% end if%>