Ó£Ö®»¨

            da = New OleDbDataAdapter(sql,cn)

            da.Fill(ds, "test")
            ps.DataSource = ds.Tables("test").DefaultView
            ps.AllowPaging = True
            ps.PageSize = 3
            ps.CurrentPageIndex = curpage - 1
            DataList1.DataSource = ps
            Label3.Text = ps.PageCount
            'DataList1.DataSource = ds.Tables("test").DefaultView
            DataList1.DataBind()

            If (curpage == 1)

            {
                Button2.Enabled = false

           }

            Else{
                Button2.Enabled = true;}
            
            If curpage = ps.PageCount Then

                Button3.Enabled = False
            Else
                Button3.Enabled = True
            End If
        Catch ex As Exception
            Response.Write(ex.Message)
        Finally
            con.Close()
        End Try

    End Sub
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ÔÚ´Ë´¦·ÅÖóõʼ»¯Ò³µÄÓû§´úÂë
        If Not IsPostBack Then
            Label1.Text = "1"
            TextBox1.Text = "1"
            getdata()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Text = CInt(Label1.Text) - 1
        getdata()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = CInt(Label1.Text) + 1
        getdata()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = 1
        getdata()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label1.Text = CInt(Label3.Text)
        getdata()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Label1.Text = CInt(TextBox1.Text)
        getdata()
    End Sub

asp.netÆäËû²Î¿¼£º

http://www.mscto.com/dotnet/2009022457466.html