黄色电影一区二区,韩国少妇自慰A片免费看,精品人妻少妇一级毛片免费蜜桃AV按摩师 ,超碰 香蕉

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

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

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

    '/****************設(shè)置查詢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******************************************

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