VB.net程序实现分页

      Private Function PageCalc(ByVal TotalIDs As String, ByVal PageNumber As Integer, ByVal PerPage As Integer, ByRef TotalAmount As Integer, ByRef TotalPage As Integer) As String
        On Error Resume Next

        'Split to arr
        Dim IDsArr() As String = TotalIDs.Split(",")

        'Calc TotalAmount and TotalPage
        TotalAmount = IDsArr.Length
        TotalPage = Int(TotalAmount * 1.0 / PerPage)
        If TotalAmount Mod PerPage > 0 Then
            TotalPage += 1
        End If

        'ReCalc PageNumber
        If PageNumber < 1 Then
            PageNumber = 1
        End If
        If PageNumber > TotalPage Then
            PageNumber = TotalPage
        End If

        'StartPos and EndPos
        Dim StartPos As Integer = 0
        Dim EndPos As Integer = 0
        StartPos = (PageNumber - 1) * PerPage
        EndPos = PageNumber * PerPage - 1
        If EndPos > TotalAmount - 1 Then
            EndPos = TotalAmount - 1
        End If

        'Get ResultIDs
        Dim ResultIDs As String = ""
        For I As Integer = StartPos To EndPos
            ResultIDs = ResultIDs & "," & IDsArr(I)
        Next
        If ResultIDs <> "" Then
            ResultIDs = ResultIDs.Trim(",")
        End If

        'Return
        Return ResultIDs
      End Function