ASP.NET程序中用Repeater實現分頁
一、程序功能：為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＞之間添加以下代碼：
三、代碼設計：
窗體界面如下所示：
二、窗體設計：
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 |
窗體界面如下所示：
 |