终于整理了一个能用的分页

来源：互联网发布：windows shell编程编辑：程序博客网时间：2024/05/06 09:40

好不好再说吧，先对付用了

<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace = "System.Data"%>
<%@ Import Namespace = "System.Data.Odbc"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

    Sub Page_Load(ByVal obj As Object, ByVal e As EventArgs)
        page = Request.QueryString("page")
        If Not IsInt(page) Then
            page = 1
        End If
        'Call show_list(page)
        Using connection As New OdbcConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            '创建SQL语句
            Dim sql = "select * from wenzhang"
            Dim da As New OdbcDataAdapter(sql, connection)
            '创建DataSet对象
            Dim ds As New DataSet
            da.Fill(ds, "wenzhang")
            '创建分页类
            Dim objpage As New PagedDataSource
            '设置数据源
            objpage.DataSource = ds.Tables("wenzhang").DefaultView
            objpage.AllowPaging = True
            objpage.PageSize = 3
            Repeater1.DataSource = objpage
            If page - 1 > objpage.PageCount Then
                page = objpage.PageCount
            End If
            objpage.CurrentPageIndex = page - 1
            PageCount = objpage.PageCount
            Repeater1.DataBind()
        End Using
    End Sub

    Sub show_PageLeader(ByVal CurrentPageIndex As Integer, ByVal PageCount As Integer)
        Response.Write("当前：" & CurrentPageIndex & " 共有 " & PageCount & "页")
        Dim i As Integer
        Dim j As Integer
        For i = 1 To PageCount
            If page = i Then
                Response.Write("<a href=""admin_wenzhang_list.aspx?page=" & i & """><b>" & i & "</b></a> ")
            Else
                Response.Write("<a href=""admin_wenzhang_list.aspx?page=" & i & """>" & i & "</a> ")
            End If
        Next
    End Sub
</script>