文/waterswea
一、程序功能:为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代码窗口,在
<%#***aBinder.Eval(Container,"Da***tem.employeeid")%>
<%#***aBinder.Eval(Container,"Da***tem.lastname")%>
三、代码设计:
Imports Sy***m.Data.SqlClient
Public Class WebForm1
Inherits Sy***m.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 Sy***m.Object, ByVal e As Sy***m.EventArgs) Handles My***e.Load
If Not Pa***IsPostBack Then
sDA = New SqlDataAdapter("select employeeid, lastname from employees order by employeeid", scon)
ds = New DataSet
Try
sDA.Fill(ds, "employees")
'获取总共有多少行
rowSum = ds***bles(0).R***.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()
La***2.Text = maxPage
'首页和上一页按钮不可见
Bu***n1.Visible = False
Bu***n2.Visible = False
End If
End Sub
'创建一个绑定数据的过程
Sub BindData()
Re***ter1.DataSource = ds
Re***ter1.DataBind()
La***1.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 Sy***m.Object, ByVal e As Sy***m.EventArgs) Handles Bu***n1.Click
currentPage = 1
'调用填充数据集过程
readpage(currentPage)
'绑定数据
BindData()
'设置首页、第一页按钮不可见,显示下一页尾页按钮
Bu***n1.Visible = False
Bu***n2.Visible = False
Bu***n3.Visible = True
Bu***n4.Visible = True
End Sub
'上一页按钮
Private Sub Button2_Click(ByVal sender As Sy***m.Object, ByVal e As Sy***m.EventArgs) Handles Bu***n2.Click
'如果现在页是第二页,设置首页和上一页按钮不可见
If La***1.Text > 2 Then
Bu***n3.Visible = True
Bu***n4.Visible = True
Else
Bu***n1.Visible = False
Bu***n2.Visible = False
Bu***n3.Visible = True
Bu***n4.Visible = True
End If
currentPage = La***1.Text - 1
readpage(currentPage)
BindData()
End Sub
'下一页按钮
Private Sub Button3_Click(ByVal sender As Sy***m.Object, ByVal e As Sy***m.EventArgs) Handles Bu***n3.Click
'如果现在页倒数第二页,设置最后页和下一页按钮不可见
If La***1.Text < La***2.Text - 1 Then
Bu***n1.Visible = True
Bu***n2.Visible = True
Else
Bu***n1.Visible = True
Bu***n2.Visible = True
Bu***n3.Visible = False
Bu***n4.Visible = False
End If
currentPage = La***1.Text + 1
readpage(currentPage)
BindData()
End Sub
'尾页按钮
Private Sub Button4_Click(ByVal sender As Sy***m.Object, ByVal e As Sy***m.EventArgs) Handles Bu***n4.Click
'设置当前页为最大页数
currentPage = La***2.Text
readpage(currentPage)
BindData()
Bu***n1.Visible = True
Bu***n2.Visible = True
Bu***n3.Visible = False
Bu***n4.Visible = False
End Sub
End Class
窗体界面如下所示:
上一篇: ASP.NET中如何防范SQL注入式攻击
下一篇: 用ASP/ASP.NET实现网络空间管理