求助asp将搜索结果分页显示 - 编程论坛

#2

qhscqb2007-04-01 09:59

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

）

只有本站会员才能查看附件，请登录

#3

yunxiang20052007-04-01 21:25

回复：（yunxiang2005）求助asp将搜索结果分页显示

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

#4

yunxiang20052007-04-03 21:35

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

#5

城市贫民2008-04-22 22:55

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

#6

icecool2008-04-22 23:30

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

#7

feelingxj2008-04-23 00:56

我写的一个常用的分页函数
调用<%=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"">首 页</a>" & vbCrlf
    If Cint(CurrPaper) <= 1 Then
        FerPage = FerPage & "上一页 "&vbCrlf
    Else
        FerPage = FerPage & "<a href="""&myPath&parame&"page="&CurrPaper-1&""">上一页</a> "&vbCrlf
    End If
    If Cint(CurrPaper) >= Cint(PaperCount) Then
        FerPage = FerPage & "下一页 " & vbCrlf
    Else
        FerPage = FerPage & "<a href="""&myPath&parame&"page="&CurrPaper+1&""">下一页</a> "&vbCrlf
    End If
        FerPage = FerPage & "<a href="""&myPath&parame&"page="&PaperCount&""">尾 页</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