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", (Me.Label1.Text - 1) * pagesize + 1)
cmd.Parameters.AddWithValue("e", Me.Label1.Text * 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.Label1.Text = 1
Me.Label2.Text = pagecount
Me.BindData()
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Label1.Text = 1
Me.BindData()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If Label1.Text > 1 Then
Label1.Text -= 1
End If
Me.BindData()
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If Label1.Text + 0 < Label2.Text Then
Label1.Text += 1
End If
Me.BindData()
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Label1.Text = Me.pagecount
Me.BindData()
End Sub
End Class
Repeater1真分页
本文介绍如何使用ASP.NET的Repeater控件配合分页控件实现数据的真分页显示,详细讲解了分页的原理和步骤,包括后台数据处理和前台页面展示的实现。
摘要由CSDN通过智能技术生成