用于ASP通常的数据分页化的类

发布时间：2023-09-13 14:20:54 所属栏目：Asp教程来源：

导读：(原创)

通用数据分页类

通用分页类,以后写分页显示数据时就轻松多啦.直接调用此类,然后再Execute即可以取得当前页的所有数据.

此类所做的工作是只取得当前页的

(原创)

通用数据分页类

    通用分页类,以后写分页显示数据时就轻松多啦.直接调用此类,然后再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

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!