ASP.net分页实现代码(自己写)

最新推荐文章于 2024-04-23 09:57:17 发布
最新推荐文章于 2024-04-23 09:57:17 发布
阅读量463 收藏
点赞数
分类专栏： .Net 文章标签： ASP.net .net ASP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/renliang969/article/details/83530106
版权
首先在定义4个LinkButton

分别为btnFirst, btnNext , btnPre , btnLast，对了一个datagrid 名字是MyDataGrid,还有三个lable表示状态的，名字是：lblPageCount（页数），lblRegisterCount（记录条数），lblCurrentIndex（当前第几页）

Page.aspx 页面代码如下（主要部分的）：

<body MS_POSITIONING="GridLayout">

<form id="Form1" method="post" runat="server">

<FONT face="宋体">

<TABLE width="666" border="1" align="center" cellPadding="1" cellSpacing="1" style="WIDTH: 666px; HEIGHT: 296px">

<tr>

<td align="center" colSpan="2"><STRONG><FONT size="4">个性化的分页实例</FONT></STRONG>

</td>

</tr>

<TR>

<TD align="right" colSpan="2">

<asp:LinkButton id="btnAdd" runat="server">增加</asp:LinkButton>|

<asp:LinkButton id="btnUpdate" runat="server">修改</asp:LinkButton>|

<asp:linkbutton id="lkbDel" runat="server">删除</asp:linkbutton></TD>

</TR>

<TR>

<TD colSpan="2"><asp:datagrid id="MyDataGrid" runat="server" DataKeyField="id" Width="100%" AllowSorting="True"

AutoGenerateColumns="true" PageSize="10" BorderColor="#CC9966" BorderStyle="None" BorderWidth="1px" BackColor="White"

CellPadding="4">

<FooterStyle ForeColor="#330099" BackColor="#FFFFCC"></FooterStyle>

<SelectedItemStyle Font-Bold="True" ForeColor="#663399" BackColor="#FFCC66"></SelectedItemStyle>

<ItemStyle ForeColor="#330099" BackColor="White"></ItemStyle>

<HeaderStyle Font-Bold="True" ForeColor="#FFFFCC" BackColor="#990000"></HeaderStyle>

<Columns>

<asp:TemplateColumn>

<HeaderStyle Width="10px"></HeaderStyle>

<HeaderTemplate>

<INPUT id="chkselectall" type="checkbox" onClick="checkallorno(this)"></asp:CheckBox>

</HeaderTemplate>

<ItemTemplate>

<asp:CheckBox id="chkselect" runat="server"></asp:CheckBox>

</ItemTemplate>

</asp:TemplateColumn>

</Columns>

<PagerStyle HorizontalAlign="Center" ForeColor="#330099" BackColor="#FFFFCC"></PagerStyle>

</asp:datagrid></TD>

</TR>

<tr>

<TD align="right" colSpan="2">

<div align="center">

<TABLE id="Table1" cellSpacing="1" cellPadding="1" border="0">

<TR>

<TD noWrap><asp:label id="lblCurrentIndex" runat="server">CI</asp:label></TD>

<TD>|</TD>

<TD noWrap><asp:label id="lblRegisterCount" runat="server">RC</asp:label></TD>

<TD>|</TD>

<TD noWrap><asp:label id="lblPageCount" runat="server">PC</asp:label></TD>

<TD>|</TD>

<TD noWrap><asp:linkbutton id="btnFirst" οnclick="PagerButtonClick" runat="server" CommandArgument="first">首页</asp:linkbutton></TD>

<TD>|</TD>

<TD noWrap><asp:linkbutton id="btnPrev" οnclick="PagerButtonClick" runat="server" CommandArgument="prev">上一页</asp:linkbutton></TD>

<TD>|</TD>

<TD noWrap><asp:linkbutton id="btnNext" οnclick="PagerButtonClick" runat="server" CommandArgument="next">下一页</asp:linkbutton></TD>

<TD>|</TD>

<TD noWrap><asp:linkbutton id="btnLast" οnclick="PagerButtonClick" runat="server" CommandArgument="last">尾页</asp:linkbutton></TD>

</TR>

</TABLE>

</div>

</TD>

</tr>

</TABLE>

</FONT>

</form>

</body>





后台 代码：

'定义全局静态变量，记录选中页面之前的总记录数（当然你要导数据连接命名空间，不会，^_^！）

Dim conn As New SqlConnection("server=.;user=sa;password=sa;database=dbaccess")

Dim adp As SqlDataAdapter

Dim cmd As SqlCommand

Dim ds As New System.Data.DataSet



Dim RecordCount, PageCount, CurrentPage, i As Integer

Dim codemessage As String

Dim pagesize As Integer



Page_load 代码：



Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'在此处放置初始化页的用户代码



Me.pagesize = 3

conn.Open()



If Not Me.IsPostBack Then



'分页设置

Me.ViewState("state") = "all"

CurrentPage = 0

viewstate("pageindex") = 0



Dim intcount As Integer

cmd = New SqlCommand("select count(*) as rs from users", conn)

Dim dr As SqlDataReader = cmd.ExecuteReader()

If (dr.Read()) Then

intcount = dr("rs")

Else

intcount = 0

End If



dr.Close()



'计算共有多少条记录()

Me.RecordCount = intcount



'计算共有多少页()

If (Me.RecordCount Mod pagesize = 0) Then

PageCount = Me.RecordCount \ pagesize

Else

PageCount = RecordCount \ pagesize + 1

End If



viewstate("pagecount") = PageCount



Me.ViewState("pagecount") = PageCount



DbListBind()

ShowStats()



'让首页btnFirst变的不可以用哦

Me.btnFirst.Enabled = False



End If









End Sub

Public Sub DbListBind()

'显示数据清单+++++++++++++++++++++++++++++++++++

Dim startindex As Integer

'导入数据起始地址()

startindex = CurrentPage * pagesize

Dim strSel As String = "select * from users order by id asc"

'程序修改对象()

Dim MyAdapter As New SqlDataAdapter(strSel, conn)

MyAdapter.Fill(ds, startindex, pagesize, "guest")



Me.MyDataGrid.DataSource = ds

Me.MyDataGrid.DataBind()



Me.btnNext.Enabled = True

Me.btnPrev.Enabled = True



If CurrentPage >= PageCount - 1 Then

btnNext.Enabled = False



End If

If CurrentPage = 0 Then

btnPrev.Enabled = False



End If



lblCurrentIndex.Text = "第 " + (Me.CurrentPage + 1).ToString() + " 页"

End Sub



Public Sub PagerButtonClick(ByVal sender As Object, ByVal e As System.EventArgs)



'获得LinkButton的参数值

Dim args As String = sender.CommandArgument



CurrentPage = viewstate("pageindex")

PageCount = viewstate("pagecount")



Select Case args

Case "next"

If CurrentPage < PageCount - 1 Then

CurrentPage = CurrentPage + 1

End If

Me.btnLast.Enabled = True

Me.btnFirst.Enabled = True



If (Me.CurrentPage = Me.PageCount - 1) Then

Me.btnLast.Enabled = False

End If



Case "prev"

If CurrentPage > 0 Then

CurrentPage = CurrentPage - 1

End If

Me.btnFirst.Enabled = True

Me.btnLast.Enabled = True



If (Me.CurrentPage = 0) Then

Me.btnFirst.Enabled = False

End If



Case "last"

CurrentPage = Me.PageCount - 1

Me.btnLast.Enabled = False

Me.btnFirst.Enabled = True

Case "first"

CurrentPage = 0

Me.btnFirst.Enabled = False

Me.btnLast.Enabled = True

End Select



viewstate("pageindex") = CurrentPage



If viewstate("state") = "all" Then

DbListBind()



End If





End Sub



Public Sub DbListBind()

'显示数据清单+++++++++++++++++++++++++++++++++++

Dim startindex As Integer

'导入数据起始地址()

startindex = CurrentPage * pagesize

Dim strSel As String = "select * from users order by id asc"

'程序修改对象()

Dim MyAdapter As New SqlDataAdapter(strSel, conn)

MyAdapter.Fill(ds, startindex, pagesize, "guest")



Me.MyDataGrid.DataSource = ds

Me.MyDataGrid.DataBind()



Me.btnNext.Enabled = True

Me.btnPrev.Enabled = True



If CurrentPage >= PageCount - 1 Then

btnNext.Enabled = False



End If

If CurrentPage = 0 Then

btnPrev.Enabled = False



End If



lblCurrentIndex.Text = "第 " + (Me.CurrentPage + 1).ToString() + " 页"

End Sub





Public Sub PagerButtonClick(ByVal sender As Object, ByVal e As System.EventArgs)

'获得LinkButton的参数值

Dim args As String = sender.CommandArgument



CurrentPage = viewstate("pageindex")

PageCount = viewstate("pagecount")



Select Case args

Case "next"

If CurrentPage < PageCount - 1 Then

CurrentPage = CurrentPage + 1

End If



Case "prev"

If CurrentPage > 0 Then

CurrentPage = CurrentPage - 1

End If

Case "last"

CurrentPage = Me.PageCount - 1

Case "first"

CurrentPage = 0

End Select



viewstate("pageindex") = CurrentPage



If viewstate("state") = "all" Then

DbListBind()



End If





End Sub







Public Sub ShowStats()



lblPageCount.Text = "总共 " + Me.PageCount.ToString() + " 页"

lblRegisterCount.Text = "共 " + Me.RecordCount.ToString() + " 条"



End Sub
renliang969
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ASP自动分页代码
lihongdian的专栏
05-11 2209
%@LANGUAGE="VBSCRIPT"%>If Session("MM_Username")="" Thenresponse.redirect "index.asp"end if%>恒盛代练系统.unnamed1 { border: thin groove #666666;}body,td,th { font-size: 12px;}.STYLE1 {color: #FF0000}-->   
asp.net 文章分页显示实现代码
01-02
代码如下: protected void Page_Load(object sender, EventArgs e) { string str = “事情发生在5月14日晚上23：30分，廊坊师范学院1号楼宿舍发生了恶性打架杀人事件，因1号楼较为复杂，有体育生、英语学院、教育...
asp.net分页代码
weixin_30587025的博客
07-08 95
效果图： helper: /// <summary> /// 高效分页 /// </summary> /// <param name="pageIndex">当前页码</param> /// <param name="pageSize">分页容量</param>...
asp.net分页代码示例
03-31 106
常用asp.net分页代码如下: 喜欢的朋友不妨带走,经测试有效 废话不说了,直接上代码 /// /// 分页内容 /// /// 页面大小 /// 页面数量 /// 当前页 /// url模式：demo....
ASP.NET MVC程序实现真分页(案例详细,值得收藏)
最新发布
code_xu的博客
04-23 1086
MVC中使用LINQ的查询语法结合BootStarp框架实现MVC分页功能的实现
asp.net 手动分页代码
yxy353245805的专栏
07-11 505
aspx:         font-size: 15px; color: Gray;">         共                 条   共                 页                           
.net 分页代码，实现真分页。很不错的资源
11-10
.net 分页代码，实现真分页。很不错的资源。不再使用传统的假分页，使用真分页提高系统性能
ASP.NET 一个非常简单实用的分页方法
热门推荐
落花流水
06-01 1万+
数据展示用Repeater，分页的话用js切换当前的页码，后台根据当前页码获取数据绑定到Repeater
asp.net repeater手写分页实例代码
10-29
想用repeater实现手写分页的代码，想自己控制各种样式的朋友，可以用用。
asp.net MVC分页代码分享
01-20
本文将深入探讨ASP.NET MVC中的分页实现，并通过提供的代码示例进行解释。 在ASP.NET MVC中，分页通常通过辅助方法（Helper Methods）来实现，这些方法可以在视图（View）中使用，以生成分页的HTML元素。在提供的...
asp.net实现简单分页实例
01-20
在ASP.NET中，分页是实现大型数据集展示时常用的一种技术，它可以提高网页加载速度，提升用户体验。本文将深入探讨如何使用ASP.NET实现简单的分页功能，通过一个实例来阐述具体的实现步骤。 首先，我们需要定义一个...
asp.net分页案例
05-23
利用jq写的分页然后将数据绑定上去，此案例是完整的案例，但要自己创建数据库
asp 分页显示代码第一种
05-15
我已经在网站上使用。其中的数据库代码，你得重新改一下，还有路径也得修改。
.NET简单分页
01-12
利用开窗函数进行简单分页操作，通过上一页、下一页按钮控制。
C#net各种分页大全
03-18
C#net各种分页大全----------C#.Net实例代码
ASP.NET高效分页代码
01-13
ASP.NET 高效分页 代码 源码 里面还有说明和本人的联系方式。望能帮助新手们。大家一起进步啊。
Asp.net中使用PageDataSource分页实现代码
10-27
在ASP.NET中，分页是实现大型数据集高效展示的关键技术。PageDataSource是.NET Framework提供的一种数据源控件，它可以方便地与数据绑定控件（如DataGrid、GridView、DetailsView和FormView）配合，实现分页功能。...
ASP.NET代码分页
夏天的风
11-28 304
此函数只接收前端传过来的参数返回多少页的多少条数据，上一页下一页等前端算法在前端完成，后端只对查出的所有数据进行分页 一般情况sql分页就够了，此方法是为了应对二次处理后的数据分页        比如sql查出的数据，又进行分组及其他手段处理，前端还要分页显示，用此方法最是合适！         ///         /// 为列表分页         ///  
.net分页功能实现
Tenderness104的博客
04-29 658
html代码 <div id="policy"> <asp:Repeater ID="Repeater1" runat="server"> <ItemTemplate> <ul id="tt" class="...
asp.net Repeater之非常好的数据分页
01-20
"asp.net Repeater的数据分页实现与详解" 在ASP.NET开发中，Repeater控件是一个非常灵活的数据绑定控件，它允许开发者自定义数据的呈现方式。本资源主要探讨了如何在Repeater中实现高效且用户友好的数据分页功能。...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值