真分页

Imports System.Data.SqlClient

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected pagenow As Integer = 1
    Private pagesize As Integer = 3
    Protected rowcount As Integer = Me.getRowCount()
    Protected pagecount As Integer = Math.Ceiling(rowcount / pagesize)

    Private Function getRowCount() As Integer
        Using con As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1")
            con.Open()
            Using cmd As SqlCommand = New SqlCommand("select count(*) from t_user", con)
                Return cmd.ExecuteScalar()
            End Using
        End Using
    End Function

    Private Sub BindData()
        Using con As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1")
            Using cmd As SqlCommand = New SqlCommand("select * from (select row_number() over(order by username desc) as rid,* from t_user) as t where rid between @s and @e", con)
                con.Open()
                cmd.Parameters.AddWithValue("s", (pagenow - 1) * pagesize + 1)
                cmd.Parameters.AddWithValue("e", pagenow * pagesize)
                Using sdr As SqlDataReader = cmd.ExecuteReader()
                    Me.Repeater1.DataSource = sdr
                    Me.Repeater1.DataBind()
                End Using
            End Using
        End Using
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Me.BindData()
        End If
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        pagenow = 1
        Me.BindData()
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        pagenow = pagecount
        Me.BindData()
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        If pagenow > 1 Then
            pagenow -= 1
        End If
        Me.BindData()
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        If pagenow < pagecount Then
            pagenow += 1
        End If
        Me.BindData()
    End Sub
End Class