asp的通用数据分页类

（假设提供的原文如下）：

未知的世界，是人类一直以来的梦想。从古至今，我们一直在寻求新的发现，寻找新的领域，不断地拓展我们的知识和视野。我们的好奇心驱使着我们前行，无论前方有多少困难和挑战，我们都不会放弃的脚步。因为只有在不断地中，我们才能更好地了解自己，了解这个世界。

今天，科技的进步让我们有了更多的工具和手段去未知的世界。我们可以在互联网上找到各种的资讯和知识，我们可以通过科技手段观测宇宙的奥秘，甚至我们可以利用虚拟现实技术那些我们无法亲自到达的地方。科技的发展让人类的梦想变得更加接近现实。

未知的世界并不是一件容易的事情。我们需要勇气去面对未知的挑战和危险，需要耐心去克服困难和挫折。我们也需要保持谦虚和虚心的态度，因为任何一点小小的成就都不能满足我们的好奇心和欲望。我们必须保持对未知的敬畏和尊重，永远保持对未知世界的热爱和追求。只有这样，我们才能在的道路上不断前行，发现更多的奇迹和真相。

让我们一起拥抱未知的世界，勇往直前，开启全新的之旅。让我们在的过程中，不断超越自我，拓展我们的知识和视野。让我们在未知的世界中，发现更多的可能性，创造更多的奇迹。因为这个世界是充满未知的，只有不断，我们才能更好地了解它，更好地利用它，更好地创造美好的未来。

自古以来，人类心中一直燃烧着一种未知的渴望。我们渴望发现新的领域，渴望拓宽自己的视野和知识边界。这种好奇心像一盏明灯，照亮我们前行的道路，无论遇到多少艰难险阻，都无法阻挡我们的脚步。

科技的飞速发展为我们提供了更加便捷的工具。互联网如同一座知识的宝库，我们可以在其中挖掘到无数珍贵的宝藏；科技观测手段让我们得以窥探宇宙的神秘面纱；虚拟现实技术更是让我们能够身临其境地遥远之地。科技的进步让人类的梦想愈发接近现实。

之路并非坦途。我们需要勇气去直面未知的挑战和危险，需要坚韧不拔的毅力去克服困难和挫折。我们也应保持一颗谦虚的心，因为任何一点小小的成就都不能满足我们的好奇心和欲望。我们必须对未知保持敬畏和尊重，永远怀揣对未知世界的热爱和向往。只有这样，我们才能在的道路上不断前行，不断揭开未知的神秘面纱，发现更多令人惊叹的奇迹和真相。

现在，让我们携手共进，拥抱未知的世界，开启一场激动人心的之旅。让我们在的过程中不断超越自我，拓展自己的视野和知识边界。让我们在未知的世界中寻找更多的可能性，创造更多的辉煌。这个世界充满了神秘和未知，只有不断，我们才能更好地了解它、利用它，共同创造更加美好的未来。【原创】通用数据分页类——轻松应对数据分页显示

在web开发中，数据分页显示是常见需求。为此，我们推出了一款通用分页类，只需简单调用，即可轻松实现数据分页。

这个类的主要功能在于仅获取当前页的数据，不涉及总页数和总记录数等复杂信息。以下是其使用示例：

示例代码（ASP）:

```asp

'/ 分页显示类

'/ 作者：哇哇鱼

'/ 日期：2004年11月18日

' 实例化分页类

Dim MyPage = New PageClass

' 设置连接对象

MyPage.Conn = Conn

' 设置每页显示的数据条数（默认10条）

MyPage.PageSize = 20

' 设置当前要显示的页码

MyPage.CurPage = 2

' 设置表名

MyPage.TableName = "Member"

' 设置显示字段列表

MyPage.Fields = "ID,MemberName,MemberPass"

' 设置查询条件

MyPage.Condition = "ID > 100"

' 设置排序条件（务必设置）

MyPage.OrderBy = "ID DESC"

' 执行查询，返回当前页的数据（RecordSet对象）

Set PageRs = MyPage.Execute

```

还提供了一种简洁的调用方法：

```asp

Set PageRs = MyPage.ExecuteBy("Member", "ID,MemberName,MemberPass", "ID > 100", "ID DESC")

```

这个通用分页类包含以下属性：

Connection：连接数据库的外部Connection对象。

Rs：用于存储查询结果。

List_Fields：显示字段列表。

Table_Name：表名。

Query_Where：查询条件。

OrderBy_SQL：字段排序语句部分。

Page_Count：当前查询的记录页总数。

Page_Size：设置一页显示的记录数。

Cur_Page：设置当前的页码。

Record_Count：当前查询的记录总数。

该类提供了对Connection对象的属性访问，可以方便地设置和获取数据库连接。通过Fields、TableName、Condition和OrderBy等属性，可以轻松设置查询的字段、表名、条件和排序方式。执行Execute方法后，可以获取当前页的数据，而PageCount和RecordCount属性则分别返回总页数和总记录数。还提供NextPage和PrePage属性，方便获取和上一页的页码。

```vb

Class PageClass

'设置和获取排序方式

Public Property Let OrderBy(ByVal Value)

OrderBy_SQL = Value

End Property

Public Property Get OrderBy() As String

OrderBy = OrderBy_SQL

End Property

'返回当前查询结果的总页数

Public Property Get PageCount() As Integer

PageCount = Cur_PageCount

End Property

Public Property Get RecordCount() As Integer

RecordCount = TotalRecordCount

End Property

'获取和上一页的页码

Public Property Get NextPage() As Integer

If Cur_Page < Page_Count Then

NextPage = Cur_Page + 1

Else

NextPage = Page_Count

End If

End Property

Public Property Get PrePage() As Integer

If Cur_Page > 1 Then

PrePage = Cur_Page - 1

Else

PrePage = Cur_Page

End If

End Property

'设置一页显示的记录数

Public Property Let PageSize(ByVal Value)

If Not IsNumeric(Value) Or Value = "" Then

Value = 10

Else

Value = CInt(Value)

End If

If Value < 1 Then Value = 10

Page_Size = Value

End Property

Public Property Get PageSize() As Integer

PageSize = Page_Size

End Property

'设置当前的页码数

Public Property Let Page(ByVal Value)

If Not IsNumeric(Value) Or Value = "" Then

Value = 1

Else

Value = CLng(Value)

End If

If Value < 1 Then Value = 1

Cur_Page = Value

End Property

Public Property Get Page() As Integer

Page = Cur_Page

End Property

Private Sub Class_Initialize()

'初始化RecordSet对象

Page_Size = 10 '默认一页为10条数据

CurPage = 1 '默认当前为第一页

TotalRecordCount = 0 '记录总数

Cur_PageCount = 0 '总页数

End Sub

Private Sub Class_Terminate()

'关闭数据库的连接

CloseRecordSet()

End Sub