Question

求助asp将搜索结果分页显示

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

首先正常读取数据，然后设置分页，代码如下：

set rrs = server.createobject("adodb.recordset")
rsql="select * from demo"
rrs.open rsql,conn,1,1
      If not rrs.eof Then
          rrs.pagesize=8
          page=request.querystring("page")
          If Not Isnumeric(page) or page="" Then
            page=1
          else
            page=cint(page)
          End if
          if page<1 then page=1
          if page>rrs.pagecount then page=rrs.pagecount
          rrs.AbsolutePage = page
          for i=1 to rrs.pagesize
          
          这里显示内容
          
          rrs.movenext
                    if rrs.eof then
            Exit For
          End if
          next
      end if
      		<%
        if page>3 then StartPage=page-3 else StartPage=1		
        if page<rrs.pagecount-3 then EndPage=page+3 else EndPage=rrs.pagecount
        if StartPage>=3 then response.write "<a href=?id="&showid&"&page="&page-1&">上一页</a>"
        for j=StartPage to EndPage 
            if j=page then
             response.write "<a href='#' class='current'>"&j&"</a>"
            else
             response.write "<a href=?id="&showid&"&page="&j&">"&j&"</a>"
            end if
        next
        if EndPage<rrs.pagecount then response.write "<a><span> ... </span></a><a href=?id="&showid&"&page="&page+1&">下一页</a>"
        rrs.close
        set rrs=nothing
        %>

通过以上就实现了

Answer 2

搜索结果分页显示-->在例表显示的基础上稍加修改就可以了