(原創(chuàng))
通用數(shù)據(jù)分頁(yè)類
    通用分頁(yè)類,以后寫(xiě)分頁(yè)顯示數(shù)據(jù)時(shí)就輕松多啦.直接調(diào)用此類,然后再execute即可以取得當(dāng)前頁(yè)的所有數(shù)據(jù).
    此類所做的工作是只取得當(dāng)前頁(yè)的數(shù)據(jù),和總頁(yè)數(shù)和總記錄數(shù)等等數(shù)據(jù).

asp代碼:
<%
'/*****************************分頁(yè)顯示類**************************
'/* 作者：哇哇魚(yú)
'/* 日期：2004年11月18日
'/* 作用：取得某一頁(yè)的數(shù)據(jù)并返回給外部
'/* 說(shuō)明示例：
'/* dim mypage=new pageclass
'/* mypage.conn=conn                '設(shè)置連接對(duì)象
'/* mypage.pagesize=20                 '設(shè)置一頁(yè)顯示多少條數(shù)據(jù) (默認(rèn)為10條)
'/* mypage.curpage=2                   '設(shè)置當(dāng)前要顯示的頁(yè)碼
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/* mypage.tablename="member"       '設(shè)置表名
'/* mypage.fields="id,membername,memberpass"   '設(shè)置顯示字段列表
'/* mypage.condition="id>100"          '設(shè)置查詢條件
'/* mypage.orderby="id desc"           '設(shè)置排序條件（一定要設(shè)置該屬性)
'/* set pagers=mypage.execute          '返回當(dāng)前第2頁(yè)的數(shù)據(jù)(recordset對(duì)象)，如果出錯(cuò)則返回nothing值
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/*'以上的定義也可以用以下的方法：executeby("表名","字段列表","查詢條件","排序條件")
'/* set pagers=mypage.executeby("member","id,membername,memberpass","id>100","id desc")
'/*''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'/* pagecount=mypage.pagecount         '返回頁(yè)碼總數(shù)
'/* recordcount=mypage.recordcount     '返回記錄總數(shù)
'/* nextpage=mypage.nextpage           '返回下頁(yè)的頁(yè)碼
'/* prepage=mypage.prepage             '返回上一頁(yè)的頁(yè)碼
'/*****************************************************************
class pageclass
    private connection               '連接數(shù)據(jù)庫(kù)的外部connection對(duì)象
    private rs
    private list_fields
    private table_name
    private query_where
    private orderby_sql              '字段排序語(yǔ)句部分
    private page_count               '返回當(dāng)前查詢的記錄頁(yè)總數(shù)
    private page_size                '設(shè)置一頁(yè)顯示多少條的記錄
    private cur_page                 '設(shè)置當(dāng)前的頁(yè)碼
    private record_count             '返回當(dāng)前查詢的記錄總數(shù)

    '/****************設(shè)置connection對(duì)象****************************
    public property let conn(byref objconn)
        set connection=objconn
    end property
    public property get conn()
        set conn=connection
    end property
    '/****************end******************************************

    '/****************設(shè)置查詢sql語(yǔ)句*******************************
    ''查詢顯示字段
    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 語(yǔ)不用寫(xiě)上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******************************************

    '/****************返回當(dāng)前查詢結(jié)果的總頁(yè)數(shù)***********************
    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