Asp.net| network One, program function: Paging for repeater implementation
Second, form design:
1. New asp.net Web application, named Repeater2, save path for Http://192.168.0.1/Repeater2 (note: The IP of the website on my machine is 192.168.0.1 's main directory is d:\ Web folder) and click OK.
2. Add a 3-row table to the form, add a repeater control to the first row of the table, add two label controls to the second row of the table, and add four button buttons to the third row of the table.
3. Switch to the HTML code window and add the following code between <asp:repeater id= "Repeater1" runat= "Server" and "</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>
Third, code design:
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 ' records which page is currently on
Dim Maxpage as Integer ' total number of pages
Const RowCount as Integer = 3 ' page How many rows
Dim rowsum as Integer ' total number of rows
' Form code omitted
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")
' Get a total of how many rows
Rowsum = ds. Tables (0). Rows.Count
Catch ex as Exception
Rowsum = 0
End Try
' If there is no data, exit the process
If rowsum = 0 Then Exit Sub
' Calculates the total number of pages to browse the data
If rowsum Mod RowCount > 0 Then
' More than 1 of the surplus
Maxpage = rowsum \ RowCount + 1
Else
' Just to do
Maxpage = rowsum \ RowCount
End If
CurrentPage = 1
' Call the bound data procedure
Readpage (CurrentPage)
Binddata ()
Label2.Text = Maxpage
' Home page and Previous button are not visible
Button1.visible = False
Button2.visible = False
End If
End Sub
' Create a process that binds data
Sub Binddata ()
Repeater1.datasource = ds
Repeater1.databind ()
Label1.Text = CurrentPage
End Sub
' Create a process to populate a dataset
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
' Home button
Private Sub button1_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button1.Click
CurrentPage = 1
' Call the Fill dataset procedure
Readpage (CurrentPage)
' Bind data
Binddata ()
' Set homepage, first page button not visible, show next Page last button
Button1.visible = False
Button2.visible = False
Button3.visible = True
Button4.visible = True
End Sub
' Previous page ' button
Private Sub button2_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button2.click
' If the page is now the second page, setting the home page and the previous button are not visible
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
' Next page ' button
Private Sub button3_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button3.click
' If the page is now the penultimate page, set the last page and the next page button invisible
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
' Last button
Private Sub button4_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button4.click
' Set the current page to the maximum number of pages
CurrentPage = Label2.Text
Readpage (CurrentPage)
Binddata ()
Button1.visible = True
Button2.visible = True
Button3.visible = False
Button4.visible = False
End Sub
End Class
The form interface is shown below
