asp的通用数据分页类

 (原创)<!--#include file="Conn.asp" -->
通用数据分页类
    通用分页类,以后写分页显示数据时就轻松多啦.直接调用此类,然后再Execute即可以取得当前页的所有数据.
    此类所做的工作是只取得当前页的数据,和总页数和总记录数等等数据.

ASP代码:
<%
'/*****************************分页显示类**************************
'/* 作者：哇哇鱼
'/* 日期：2004年11月18日
'/* 作用：取得某一页的数据并返回给外部
'/* 说明示例：
'/* Dim MyPage=New PageClass
'/* MyPage.Conn=Conn                '设置连接对象
'/* MyPage.PageSize=20                 '设置一页显示多少条数据 (默认为10条)
'/* MyPage.CurPage=2                   '设置当前要显示的页码
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/* MyPage.TableName="Member"       '设置表名
'/* MyPage.Fields="ID,MemberName,MemberPass"   '设置显示字段列表
'/* MyPage.Condition="ID>100"          '设置查询条件
'/* MyPage.OrderBy="ID DESC"           '设置排序条件（一定要设置该属性)
'/* Set PageRs=MyPage.Execute          '返回当前第2页的数据(RecordSet对象)，如果出错则返回Nothing值
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/*'以上的定义也可以用以下的方法：ExecuteBy("表名","字段列表","查询条件","排序条件")
'/* Set PageRs=MyPage.ExecuteBy("Member","ID,MemberName,MemberPass","ID>100","ID DESC")
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/* PageCount=MyPage.PageCount         '返回页码总数
'/* RecordCount=MyPage.RecordCount     '返回记录总数
'/* NextPage=MyPage.NextPage           '返回下页的页码
'/* PrePage=MyPage.PrePage             '返回上一页的页码
'/*****************************************************************
Class PageClass
    Private Connection               '连接数据库的外部Connection对象
    Private Rs
    Private List_Fields
    Private Table_Name
    Private Query_Where
    Private OrderBy_SQL              '字段排序语句部分
    Private Page_Count               '返回当前查询的记录页总数
    Private Page_Size                '设置一页显示多少条的记录
    Private Cur_Page                 '设置当前的页码
    Private Record_Count             '返回当前查询的记录总数

    '/****************设置Connection对象****************************
    Public Property Let Conn(ByRef ObjConn)
        Set Connection=ObjConn
    End Property
    Public Property Get Conn()
        Set Conn=Connection
    End Property
    '/****************End******************************************

    '/****************设置查询SQL语句*******************************
    ''查询显示字段
    Public Property Let Fields(ByVal Value)
        List_Fields=Value
    End Property
    Public Property Get Fields()
        Fields=List_Fields
    End Property
    ''查询表名
    Public Property Let TableName(ByVal Value)
        Table_Name=Value
    End Property
    Public Property Get TableName()
        TableName=Table_Name
    End Property
    ''查询条件
    Public Property Let Condition(ByVal Value)
        Query_Where=Value
    End Property
    Public Property Get Condition()
        Condition=Query_Where
    End Property
    ''*****************排序部分********************************************
    ''Value 语不用写上Order By 。如： [object].OrderBy="ID Desc,PostTime Asc"
    Public Property Let OrderBy(ByVal Value)
        OrderBy_SQL=Value
    End Property
    Public Property Get OrderBy()
        OrderBy=OrderBy_SQL
    End Property
    '/****************End******************************************

    '/****************返回当前查询结果的总页数***********************
    Public Property Get PageCount()
        PageCount=Page_Count
    End Property
    Public Property Get RecordCount()
        RecordCount=Record_Count
    End Property
    Public Property Get NextPage()
        If Cur_Page<Page_Count Then
            NextPage=Cur_Page+1
        Else
            NextPage=Page_Count
        End If
    End Property
    Public Property Get PrePage()
        If Cur_Page>1 Then
            PrePage=Cur_Page-1
        Else
            PrePage=Cur_Page