ASP.NET程序中用Repeater实现分页
更新时间:2006年10月11日 00:00:00 作者:
一、程序功能:
为Repeater实现分页
二、窗体设计:
1、新建ASP.NET Web应用程序,命名为Repeater2,保存路径为http://192.168.0.1/Repeater2(注:我机子上的网站的IP是192.168.0.1的主目录是D:\web文件夹)然后点击确定。
2、向窗体添加一个3行一列的表,向表的第一行中添加一个Repeater控件,向表的第二行中添加两个Label控件向表的第三行中添加四个Button按钮。
3、切换到HTML代码窗口,在<asp:Repeater id="Repeater1" runat="server">和</asp:Repeater>之间添加以下代码:
<ItemTemplate>
<table id="Table2" style="FONT-SIZE: x-small" width="498">
<tr>
<td><%#DataBinder.Eval(Container,"DataItem.employeeid")%></td>
<td><%#DataBinder.Eval(Container,"DataItem.lastname")%></td>
</tr>
</table>
</ItemTemplate>
三、代码设计:
Imports System.Data.SqlClient
Public Class WebForm1
Inherits System.Web.UI.Page
Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")
Dim sDA As SqlDataAdapter
Dim ds As DataSet
Dim currentPage As Integer '记录着目前在哪一页上
Dim maxPage As Integer '总共有多少页
Const rowCount As Integer = 3 '一页有多少行
Dim rowSum As Integer '总共有多少行
'窗体代码省略
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
sDA = New SqlDataAdapter("select employeeid, lastname from employees order by employeeid", scon)
ds = New DataSet
Try
sDA.Fill(ds, "employees")
'获取总共有多少行
rowSum = ds.Tables(0).Rows.Count
Catch ex As Exception
rowSum = 0
End Try
'如果没有数据,退出过程
If rowSum = 0 Then Exit Sub
'计算出浏览数据的总页数
If rowSum Mod rowCount > 0 Then
'有余数要加1
maxPage = rowSum \ rowCount + 1
Else
'正好除尽
maxPage = rowSum \ rowCount
End If
currentPage = 1
'调用绑定数据过程
readpage(currentPage)
BindData()
Label2.Text = maxPage
'首页和上一页按钮不可见
Button1.Visible = False
Button2.Visible = False
End If
End Sub
'创建一个绑定数据的过程
Sub BindData()
Repeater1.DataSource = ds
Repeater1.DataBind()
Label1.Text = currentPage
End Sub
'创建一个填充数据集的过程
Sub readpage(ByVal n As Integer)
sDA = New SqlDataAdapter("select employeeid, lastname from employees order by employeeid", scon)
ds = New DataSet
ds.Clear()
sDA.Fill(ds, (n - 1) * rowCount, rowCount, "employees")
End Sub
'首页按钮
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
currentPage = 1
'调用填充数据集过程
readpage(currentPage)
'绑定数据
BindData()
'设置首页、第一页按钮不可见,显示下一页尾页按钮
Button1.Visible = False
Button2.Visible = False
Button3.Visible = True
Button4.Visible = True
End Sub
'上一页按钮
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'如果现在页是第二页,设置首页和上一页按钮不可见
If Label1.Text > 2 Then
Button3.Visible = True
Button4.Visible = True
Else
Button1.Visible = False
Button2.Visible = False
Button3.Visible = True
Button4.Visible = True
End If
currentPage = Label1.Text - 1
readpage(currentPage)
BindData()
End Sub
'下一页按钮
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'如果现在页倒数第二页,设置最后页和下一页按钮不可见
If Label1.Text < Label2.Text - 1 Then
Button1.Visible = True
Button2.Visible = True
Else
Button1.Visible = True
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
End If
currentPage = Label1.Text + 1
readpage(currentPage)
BindData()
End Sub
'尾页按钮
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'设置当前页为最大页数
currentPage = Label2.Text
readpage(currentPage)
BindData()
Button1.Visible = True
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
End Sub
End Class
窗体界面如下所示:
为Repeater实现分页
二、窗体设计:
1、新建ASP.NET Web应用程序,命名为Repeater2,保存路径为http://192.168.0.1/Repeater2(注:我机子上的网站的IP是192.168.0.1的主目录是D:\web文件夹)然后点击确定。
2、向窗体添加一个3行一列的表,向表的第一行中添加一个Repeater控件,向表的第二行中添加两个Label控件向表的第三行中添加四个Button按钮。
3、切换到HTML代码窗口,在<asp:Repeater id="Repeater1" runat="server">和</asp:Repeater>之间添加以下代码:
<ItemTemplate>
<table id="Table2" style="FONT-SIZE: x-small" width="498">
<tr>
<td><%#DataBinder.Eval(Container,"DataItem.employeeid")%></td>
<td><%#DataBinder.Eval(Container,"DataItem.lastname")%></td>
</tr>
</table>
</ItemTemplate>
三、代码设计:
Imports System.Data.SqlClient
Public Class WebForm1
Inherits System.Web.UI.Page
Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")
Dim sDA As SqlDataAdapter
Dim ds As DataSet
Dim currentPage As Integer '记录着目前在哪一页上
Dim maxPage As Integer '总共有多少页
Const rowCount As Integer = 3 '一页有多少行
Dim rowSum As Integer '总共有多少行
'窗体代码省略
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
sDA = New SqlDataAdapter("select employeeid, lastname from employees order by employeeid", scon)
ds = New DataSet
Try
sDA.Fill(ds, "employees")
'获取总共有多少行
rowSum = ds.Tables(0).Rows.Count
Catch ex As Exception
rowSum = 0
End Try
'如果没有数据,退出过程
If rowSum = 0 Then Exit Sub
'计算出浏览数据的总页数
If rowSum Mod rowCount > 0 Then
'有余数要加1
maxPage = rowSum \ rowCount + 1
Else
'正好除尽
maxPage = rowSum \ rowCount
End If
currentPage = 1
'调用绑定数据过程
readpage(currentPage)
BindData()
Label2.Text = maxPage
'首页和上一页按钮不可见
Button1.Visible = False
Button2.Visible = False
End If
End Sub
'创建一个绑定数据的过程
Sub BindData()
Repeater1.DataSource = ds
Repeater1.DataBind()
Label1.Text = currentPage
End Sub
'创建一个填充数据集的过程
Sub readpage(ByVal n As Integer)
sDA = New SqlDataAdapter("select employeeid, lastname from employees order by employeeid", scon)
ds = New DataSet
ds.Clear()
sDA.Fill(ds, (n - 1) * rowCount, rowCount, "employees")
End Sub
'首页按钮
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
currentPage = 1
'调用填充数据集过程
readpage(currentPage)
'绑定数据
BindData()
'设置首页、第一页按钮不可见,显示下一页尾页按钮
Button1.Visible = False
Button2.Visible = False
Button3.Visible = True
Button4.Visible = True
End Sub
'上一页按钮
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'如果现在页是第二页,设置首页和上一页按钮不可见
If Label1.Text > 2 Then
Button3.Visible = True
Button4.Visible = True
Else
Button1.Visible = False
Button2.Visible = False
Button3.Visible = True
Button4.Visible = True
End If
currentPage = Label1.Text - 1
readpage(currentPage)
BindData()
End Sub
'下一页按钮
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'如果现在页倒数第二页,设置最后页和下一页按钮不可见
If Label1.Text < Label2.Text - 1 Then
Button1.Visible = True
Button2.Visible = True
Else
Button1.Visible = True
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
End If
currentPage = Label1.Text + 1
readpage(currentPage)
BindData()
End Sub
'尾页按钮
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'设置当前页为最大页数
currentPage = Label2.Text
readpage(currentPage)
BindData()
Button1.Visible = True
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
End Sub
End Class
窗体界面如下所示:
您可能感兴趣的文章:
相关文章
在ASP.NET 2.0中操作数据之七十:配置数据库连接和命令等级设置
TableAdapters将数据访问等细节进行的封装,但是默认情况下这些属性要么标记为internal要么为private,我们可以使用部分类,在部分类里使用标记为public的方法或属性。2016-05-05ASP.NET MVC4入门教程(九):查询详细信息和删除记录
本文主要是MVC实战,介绍如何查询和删除信息,进行到这一步,您已经有一个完整的MVC案例了,创建、 读取、 更新、 删除和搜索等功能也都做了演示。2016-04-04在ASP.NET 2.0中操作数据之四十五:DataList和Repeater里的自定义Button
本文主要介绍在DataList和Repeater添加诸如Button,LinkButton和ImageButton等控件的方法,并根据相关控件CommandName属性触发相应的事件,执行相应的操作。2016-05-05在ASP.NET 2.0中操作数据之五十二:使用FileUpload上传文件
本文主要介绍ASP.NET中为了演示上传文件,我们在数据库上建了两个字段,分别存储二进制图片和PDF路径,然后介绍了如何使用FileUpload 完成上传文件。2016-05-05在ASP.NET 2.0中操作数据之二十四:分页和排序报表数据
本文主要介绍ASP.NET 2.0中使用GirdView控件呈现数据时如何实现分页和排序功能的,希望对大家有所帮助。2016-05-05在ASP.NET 2.0中操作数据之五十九:使用SQL缓存依赖项SqlCacheDependency
当缓存数据库数据时,最理想的状态是数据一直驻留在内存,直到数据库发生了改动。在ASP.NET 2.0,可以通过编程或声明代码的方式使用SQL cache dependencies,配合SQL Server 2005来实现此功能。2016-05-05解读ASP.NET 5 & MVC6系列教程(12):基于Lamda表达式的强类型Routing实现
这篇文章主要介绍了基于ASP.NET 5 Lamda表达式的强类型Routing实现,需要的朋友可以参考下2016-06-06
最新评论