【asp.NET】(vb.net) 分页类

自定义分页类(asp.net)

Imports System.Data.SqlClient

Imports System.Math

Imports System.Web.HttpContext

Public Class SyyPage

Public conn As SqlConnection

Public Table As String

Public Fields As String

Public PageSize As Int32

Public Pkey As String

Public LocalPage As String

Public Sort As String

Public SortBy As String

Public Filter As String

Public TotalCount As Int32

Public PageCount As Int32

Public CurrentPage As Int32

Public PageList As Int32

Private Sql As String

Private PageFrom As Int32

Private PageEnd As Int32

Private iPageList As Int32

Sub startpage() '初始化翻页，计算总记录数、页数、当前页等

If PageList = 0 Then

PageList = 10

End If

If PageSize = 0 Then

PageSize = 20

End If

'获取总记录数