这个asp仿百度分页怎么用，谁有完整的应用代码吗？——同城生活贴吧——123发布网|123同城网|123同城信息网|免费发布信息|123招聘|123交友|123房产

登录123 | 账号: 密码: 商铺贴吧

今天是：


供应求购	免费商铺	商业资讯	库存二手	黄页大全		生活贴吧	房屋租售	招聘求职	婚恋交友	自助广告

这个asp仿百度分页怎么用，谁有完整的应用代码吗？

发布时间：2010/10/17 15:20:07 发布人：网络游民点击：673

这个asp仿百度分页怎么用，谁有完整的应用代码吗？
<%
'变量解释：
'pUrl 需要分页的网页url
'pPage 页码
'pSize 每页显示数目
'pCount 总页数
'pMax 分页栏显示的页码数目
'pNum1 限制显示页码数目的参数1
'pNum2 限制显示页码数目的参数2
'pNum3 限制显示页码数目的参数3
'pAbsolute 记录集的absolutepage属性
'使用方法：在需要分页的页面头部加入如下代码：
' dim p,Current
' rs.pagesize = 10
' if Current>rs.pagecount then Current=rs.pagecount
' if request.QueryString("p")<>"" then
' Current=request.querystring("p")
' else
' Current=1
' end if
' rs.absolutepage=Current
' count=0
' 然后在显示分页的位置用该语句调用：
' call showPage("2.asp",request.QueryString("p"),rs.pagesize,rs.pagecount,"10",rs.absolutepage,"9","20","19")
'注：该例完全仿照百度搜索的分页编写，分页情况根据记录集的数目而定。
'=====================================================================================
Sub showPage(pUrl,pPage,pSize,pCount,pMax,pAbsolute,pNum1,pNum2,pNum3)
Dim max,begin,truepage,truenum,p
'----------------------------------------------------------------------------------
max = pMax
begin = 1
If pPage <> "" Then
truepage = pPage '当前页码
max = truepage+pNum1
End If
'------------------------若总数大于或等于总页数则总数等于总页数----------------------
If max >= pCount Then
max = pCount
End If
'-------------------------保证显示的页码数目为自定意的范围内--------------------------
If max >= pNum2 Then
begin = max - pNum3
End If
'--------------------------当不是第一页时显示上一页链接----------------------------
If pPage <> "" And pPage <> 1 Then
Response.Write("<a href="""&pUrl&"?p="&Cint(pPage) - 1&"""><</a> ")
End If
'----------------------------生成页码,只有一页时不显示分页页码---------------------------
for truenum = begin to max
If truenum = 1 And pPage = "" And pCount > 1 Then
Response.Write(truenum&" ")
ElseIf truenum = Cint(pPage) And pCount > 1 Then
Response.Write(truenum&" ")
ElseIf rs.pagecount > 1 Then
Response.Write("<a href="""&pUrl&"?p="&truenum&""">["&truenum&"]</a> ")
End If
next
'-----------------------------------当不是最后一页时显示下一页链接------------------------------------
If pPage <> "" And pAbsolute <> pCount And pAbsolute >= 0 Then
Response.Write("<a href="""&pUrl&"?p="&Cint(pPage) + 1&""">></a>") '不为空时传值为当前页加1
End If
If pPage = "" And pCount > 1 Then
Response.Write("<a href="""&pUrl&"?p=2"">></a>") '为空时是第一页所以直接传2
End If
'------------------------------------------------------------------------------------------------------
End Sub

%>

回复此帖

※

发布回复

↓请遵循123发布网同城生活贴吧/论坛发帖规则；↓寻一夜情、包养、招嫖类信息的一律全部删除，并报公安备案↓

回复标题：
回复内容：
上传图片：
验证码：