使用PagedDataSource给Repeater、DataList增加分页

Repeater和DataList是数据库中常用的数据显示控件，它们和DataGrid相比较因为没有分页等复杂的功能，因此性能高，同时Repeater自定义模板又给我们带来了很大的灵活性。但是Repeater和DataList没有分页功能，有时很不方便。目前有很多增加分页的方法，包括使用存储过程来控制每页的数据读取，这些分页制作起来都很麻烦，下面介绍一种使用PagedDataSource给Repeater、DataList增加分页的方法。

PagedDataSource类封装了DataGrid控件的属性，从而使DataGrid控件可以执行分页，它就是一个数据的容器，我们先把数据从数据库中读取出来放在这个容器中，然后设置容器的属性取出当前要显示的页上的部分数据，然后将此部分数据再绑定到页面上的显示控件上。我们同样可以将它用在Repeater和DataList中，下面给出一个实例帮助大家理解如何使用PagedDataSource类。
页面显示元素如下：
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2 '建立数据库连接，获取数据
3 Dim sqlconn As New SqlConnection(ConfigurationSettings.AppSettings.Get("sqlserver"))
4 sqlconn.Open()
5 Dim sqlda As New SqlDataAdapter("select * from vote_items", sqlconn)
6 Dim dt As New DataTable
7 sqlda.Fill(dt)
8 sqlda.Dispose()
9
10 '将数据设置为PagedDataSource的数据源，并设置相关参数
11 Dim pds As New PagedDataSource
12 '注意和其它控件DataSource不同的是，这里不能直接写dt，因为PagedDataSource.DataSource实现了IEnumerable
13 '接口，而DataTable没有实现此接口，只有DataView实现了此接口
14 pds.DataSource = dt.DefaultView
15 '==================================================
16 pds.AllowPaging = True
17 pds.PageSize = 3 '每页显示的项目数
18
19 '从URL参数中获取page页码参数
20 Dim currentpage As Integer
21 If Request.QueryString.Get("page") <> Nothing Then
22 currentpage = Convert.ToInt32(Request.QueryString("Page"))
23 Else
24 currentpage = 1
25 End If
26 '设置当前要显示的数据页
27 pds.CurrentPageIndex = currentpage - 1
28
29 Label1.Text = "共有记录" & pds.DataSourceCount & "条，分" & pds.PageCount & "页显示，每页显示" & _
30 pds.PageSize & "条，当前为第" & currentpage & "页："
31
32 '根据首页和尾页控制链接的显示
33 If Not pds.IsFirstPage Then
34 lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToInt32(currentpage - 1)
35 lnkFirst.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=1"
36 End If
37
38 If Not pds.IsLastPage Then
39 lnkNext.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToInt32(currentpage + 1)
40 lnkLast.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & pds.PageCount
41 End If
42
43 '将PagedDataSource绑定到Repeater
44 rp.DataSource = pds
45 rp.DataBind()
46 End Sub
事实上，功能还有很多可以改进的地方，例如将使用链接控制页数换成使用按钮来控制，这里就不多说了，大家可以自己研究一下。