Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Private pagesize As Integer = 3
Private Function getPageCount() 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 Math.Ceiling(cmd.ExecuteScalar() / pagesize)
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 = getPageCount()
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.getPageCount()
Me.BindData()
End Sub
End Class
分页改进
猜你喜欢
转载自blog.csdn.net/eds124/article/details/88070053
今日推荐
周排行