数据分页显示

最新推荐文章于 2023-10-22 15:04:09 发布

jujuchen

最新推荐文章于 2023-10-22 15:04:09 发布

阅读量409

点赞数

CC 4.0 BY-SA版权

分类专栏： asp脚本文章标签： class function

本文链接：https://blog.youkuaiyun.com/jujuchen/article/details/1628493

asp脚本专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一种在ASP.NET中实现数据分页的方法。通过使用RecordSet对象及其属性来控制每页显示的数据数量，并提供了导航到不同页面的链接。此外，还展示了如何通过请求参数确定当前页数并相应地调整RecordSet。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'数据分页显示 strUrl 设置成自己本页
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function PageSplit(objRs,strUrl,cssClass,listSize,cssSep)
Dim pgnum,page
page=Request("page")
objRs.PageSize = listSize
pgnum=objRs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then objRs.AbsolutePage=page
If page=1 Then
 Response.Write " 首页 | 上一页 | "
Else
 Response.Write " <a class="& cssClass &" href="&strUrl&"page=1>首页</a> | "
 Response.Write "<a class="& cssClass &" href="&strUrl&"page="&page-1&"> 上一页</a> | "
End if
If objRs.pagecount-page<1 Then
 Response.Write "下一页 | 尾页"
Else
 Response.Write "<a class="& cssClass &" href="&strUrl&"page="&page+1&">下一页</a> | "
 Response.Write "<a class="& cssClass &" href="&strUrl&"page="&objRs.pagecount&">尾页</a>"
End if
Response.Write "　　　　　　　　　　　　　　第 "&page&" 页/共 "&pgnum&" 页"
End Function