asp的通用数据分页类(2)

    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
    ''*****************排序部分********************************************