用vb.net做分页显示的功能

（1）首先定义几个变量Dim pageIndex As Integer

    Dim pageSize As Integer = 20

    Dim totalPage As Integer

    Dim totalRecord As Integer

Dim pageIndex As Integer

（2）然后写显示页码的函数

Sub xianShiYeMa()

        Dim leiBie1 As String = Request("leiBie")

        pageIndex = Request("pageIndex")

        Dim i As Integer

 

        '第一次访问网页没有传进pageIndex的值，初始化pageIndex = 1

        If Request("pageIndex") = "" Then

            pageIndex = 1

        End If

        '对于页码的显示，要求只显示10个页码

        If totalPage <= 10 Then

            i = 1

            Do While i <= totalPage

 

 

                If pageIndex = i Then

                    Response.Write("<a class='juanZeng_xianShi_yeMa1' href='./xianShi.aspx?pageIndex=" & pageIndex & "&leiBie=" & leiBie1 & "'>" & i & "</a>")

                Else

                    Response.Write("<a class='juanZeng_xianShi_yeMa2' href='./xianShi.aspx?pageIndex=" & i & "&leiBie=" & leiBie1 & "'>" & i & "</a>")

                End If

                i = i + 1