如何将搜索到的记录分页显示,就是搜索到20条记录,我想每页显示5条,该如何写asp程序,我是新手,请各位高手指点!最好能有详细的源代码.谢谢!

分页的关键代码就是这些了，至于用“上一页”“下一页”的分页显示，如果你看懂了上面的代码，就可以很简单地通过判断来实现了。（自己也要多想想哦！）

谢谢你啦!我正在学习的!

朋友,我试了好多代码,都不能解决分页的问题,你能否告诉我详细的代码,谢谢你啦!帮帮兄弟吧!我的邮箱是:liwanhe_2008@

顶一下,我也遇到类似的问题,点击分页结果后,后面的数据无法显示,谁能帮忙解决一下,万分感谢

在你做上一页,下一页的链接时,要把查询所用的参数带在一起去做,这样在点下一页时,所进行的查询和原来是相同的,这时你的分页才会正确,
如:
<a href=artclist.asp?id=<%=rsbbsname("id")%>&pagenum=<%=(pagenum+1)%> >下一页</a>
这里id=<%=rsbbsname("id")%>是表示进行查询所用的参数,pagenum=<%=(pagenum+1)%>表示换页

我写的一个常用的分页函数
调用<%=FerPage(0,0,"tbName="&tbName&"&",Rs.RecordCount,Rs.PageCount,Rs.PageSize,Ipage)%>
其它部分代码简单示例:
      Rs.Pagesize = 20
      Ipage = Request("page")
      If Cint(Request("page")) <= 0 Then Ipage = 1
      If Cint(Request("page")) > Rs.PageCount Then Ipage = Rs.PageCount
      Rs.AbsolutePage = Ipage
      For i = 1 To Rs.PageSize
      If Rs.Eof Then Exit For



'********************************************************************
'*************************分页函数参数说明***************************
'--------pageinfo        是否显示分页信息，0为显示，1为不显示---------
'--------pageform        是否显示转到页面，0为显示，1为不显示---------
'--------parame            提交页面详细url，需带参数--------------------
'--------TotalCount        总记录数-------------------------------------
'--------PaperCount        页数-----------------------------------------
'--------PaperSize        每页显示数量---------------------------------
'--------CurrPaper        当前页数-------------------------------------
'********************************************************************
Function FerPage(pageinfo,pageform,parame,TotalCount,PaperCount,PaperSize,CurrPaper)
    Dim myPath
    myPath = Request.ServerVariables("PATH_INFO") & "?"
    If pageinfo = "" Then pageinfo = 0
    If pageform = "" Then pageform = 0
    If IsNull(parame) Then parame = ""
    FerPage = "<table width=""90%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" id=FerPage>" & vbCrlf
    FerPage = FerPage & "<form name=""page"" method=""post"" action="""&myPath&parame&""">" & vbCrlf
    FerPage = FerPage & "<tr><td align=""center"">" & vbCrlf
    If pageinfo = 0 Then FerPage = FerPage & "共"&TotalCount&"条记录，分"&PaperCount&"页显示，每页显示"&PaperSize&"条，当前是第"&CurrPaper&"页" & vbCrlf
    FerPage = FerPage & "<a href="""&myPath&parame&"page=1"">首&nbsp;页</a>" & vbCrlf
    If Cint(CurrPaper) <= 1 Then
        FerPage = FerPage & "上一页&nbsp;"&vbCrlf
    Else
        FerPage = FerPage & "<a href="""&myPath&parame&"page="&CurrPaper-1&""">上一页</a>&nbsp;"&vbCrlf
    End If
    If Cint(CurrPaper) >= Cint(PaperCount) Then
        FerPage = FerPage & "下一页&nbsp;" & vbCrlf
    Else
        FerPage = FerPage & "<a href="""&myPath&parame&"page="&CurrPaper+1&""">下一页</a>&nbsp;"&vbCrlf
    End If
        FerPage = FerPage & "<a href="""&myPath&parame&"page="&PaperCount&""">尾&nbsp;页</a>"&vbCrlf
    If pageform = 0 Then FerPage = FerPage & "跳转到：<input name=""page"" type=""text"" id=""page"" style=""border:inherit; border-style:solid; border-width:1px; border-color:#333333;"" size=""2"">页" & vbCrlf
    FerPage = FerPage & "</td></tr></form></table>" & vbCrlf
End Function