易心asp分页类 v1.0

易心asp分页类v1.0

复制代码 代码如下:

<% 

class Ex_SplitPageCls 

'========================================================================== 

'易心asp分页类v1.0 

'作者:易心 QQ:343931221 

'个人网站 www.ex123.net www.bo56.com  

'演示地址:www.ex123.net/show/page 

'转载请保留此信息 

'========================================================================== 

dim Ex_Rs 

dim Ex_columns'要提取的字段 

dim Ex_datafrom'数据表名 

dim Ex_strWhere'记录筛选条件 

dim Ex_order'sql排序 

dim Ex_idcount'记录总数 

dim Ex_pageSize'每页条数 

dim Ex_pageCount'总页数 

dim Ex_ids'获得本页要用到的id 

dim Ex_Sql'构造的sql语句 

dim Ex_page'当前显示页码 

dim Ex_Conn'数据库联接对象 

dim Ex_index'数据库记录当前位置 

dim Ex_id'主键字段 

private sub class_initialize 

set Ex_Rs=server.CreateObject("adodb.recordset") 

Ex_id="id" 

Ex_pageSize=20 

end sub 

private sub class_terminate 

Ex_rs.close 

set Ex_rs=nothing 

end sub 

'属性赋值: 

public property let letConn(str) 

        Ex_conn=str 

end property 

'属性赋值:sql语句 要查询的字段 带select 

public property let letColumns(str) 

        Ex_Columns=str 

end property 

'属性赋值:sql语句筛选条件部分 带where 

public property let letWhere(str) 

        Ex_strWhere=str 

end property 

'属性赋值:sql语句数据表 带from 

public property let letDataFrom(str) 

        Ex_dataFrom=str 

end property 

'属性赋值:sql语句排序部分 带order by 

public property let letOrder(str) 

        Ex_order=str 

end property 

'属性赋值:每页记录数 

public property let letPageSize(str) 

        Ex_pageSize=str 

end property 

'属性赋值:当前页数 

public property let letPage(str) 

        Ex_page=str 

end property 

'属性赋值:主表主键字段 

public property let letId(str) 

        Ex_Id=str 

end property 

'属性:获得记录总数 

public property get getRsCount 

        getRsCount=Ex_idCount 

end property 

'属性:获得页总数 

public property get getPageCount 

if(Ex_idcount>0) then'如果记录总数=0,则不处理 

        if(Ex_idcount mod Ex_pageSize=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1 

                  Ex_pageCount=int(Ex_idcount/Ex_pageSize)'获取总页数 

        else 

                  Ex_pagecount=int(Ex_idcount/Ex_pageSize)+1'获取总页数 

        end if 

        getPageCount=Ex_pagecount 

else 

        getPageCount=0 

end if 

end property 

'属性:获得当前页数 

public property get getPage 

        getPage=Ex_Page 

end property 

'获得本页要用到的id 

private sub ids 

        dim i 

        Ex_sql="select "&Ex_Id&" "& Ex_datafrom &" " &" "&Ex_strWhere&" "&Ex_order 

        Ex_rs.open Ex_sql,Ex_conn,1,1 

        if not Ex_Rs.eof and not Ex_Rs.bof then 

                Ex_rs.pagesize =Ex_pageSize '每页显示记录数 

                Ex_Rs.absolutepage=CInt(Ex_Page) 

                Ex_idcount=Ex_rs.recordcount 

            if Ex_page < 1 then Ex_page = 1 

            if Ex_page > Ex_pagecount then Ex_page = Ex_pageCount 

            if Ex_pageCount > 0 then Ex_rs.absolutepage =Ex_page   

                for i=1 to Ex_rs.pagesize 

                if Ex_rs.eof then exit for   

                          if(i=1)then 

                           Ex_Ids=Ex_rs("id") 

                  else 

                           Ex_Ids=Ex_Ids &","&Ex_rs("id") 

                  end if 

                Ex_rs.movenext 

                next 

        end if 

        Ex_Rs.close 

end sub 

'返回本页要用到的记录集 

public function execute 

        ids 

        Ex_Sql=Ex_Columns&" "&Ex_dataFrom&" "&Ex_strWhere&" and id in("&Ex_ids&") "&Ex_order 

        Ex_Rs.open Ex_Sql,Ex_conn,1,1 

        Set execute=Ex_Rs 

end function 

end class 

%>

时间: 2024-10-25 20:26:35

易心asp分页类 v1.0的相关文章

易心asp分页类 v1.0_ASP CLASS类

易心asp分页类v1.0 复制代码 代码如下: <%  class Ex_SplitPageCls  '==========================================================================  '易心asp分页类v1.0  '作者:易心 QQ:343931221  '个人网站 www.ex123.net www.bo56.com   '演示地址:www.ex123.net/show/page  '转载请保留此信息  '========

叶子asp分页类_ASP CLASS类

名称: 叶子asp分页类 Name: ShowoPage(vbs class) RCSfile: ReadMe.txt Revision: 0.12.20051114.f Author: Yehe(叶子) Released: 2005-11-14 09:40:13 Descript: ASP分页类,支持access/mssql/mysql/sqlite Contact: QQ:311673 MSN:myehe@msn.com GT:mmyehe@gmail.com WebSite: http:/

超强分页类2.0发布,支持自定义风格,默认4种显示模式_php实例

超强分页类2.0发布,支持自定义风格,默认4种显示模式 看到论坛上有人求百度分页类,所以把几周前的分页类贴出来.    2.0相对1.0修正如下:   1.支持PHP4和PHP5   2.增加了对ajax分页的功能   3.优化了程序整体结构   4.增加了自定义风格的功能 代码如下:  复制代码 代码如下: <?  /**   * filename: ext_page.class.php   * @package:phpbean   * @author :feifengxlq<feifeng

创建一个ASP分页类(一)文章部分

创建|分页 创建一个ASP通用分页类 平波 从开始学习到使用ASP到现在也写了不少程序了,最令人头痛的是写数据分页,每次都是由于几个变量名或几个参数的不同,因而需要每次都写哪一段冗长而又繁杂的分页代码,代码长了使得程序的可读性变差,容易出差,调试半天也找不出错在哪里,所以慢慢的我开始使用一些网上的提供的分页函数或分页类.的确省事不少,但是通常的函数和类的做法都是就数据显示部分也封装了起来,每次为了达到自己需要的显求效果要去改动函数或者类的本身,所以使用起来也不是怎么方便,自己写的分页改起来已经够

另外一个分页类:支持多风格变换的ASP分页类

<% '****************************** '名称:分页类 '日期:2005/12/3 '作者:西楼冷月 '网址:www.xilou.net | www.chinaCMS.org '描述:无 '版权:转载请注名出处,作者 '****************************** Class Page Private CurrPage Private PageN Private UrlStr Private TempStr Private ErrInfo Priva

ASP分页类(支持多风格变换)_应用技巧

这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1.但是感觉也快不了多少,10万条数据的分页时间300多豪秒之间. 复制代码 代码如下: <% '****************************** '名称:分页类 '日期:2005/12/3 '作者:西楼冷月 '网址:www.xilou.net | www.chinaCMS.org '描述:无 '版权:转载请注名出处,作者 '****************************** Class Page Priv

支持多风格变换的ASP分页类

分页 这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1.但是感觉也快不了多少,10万条数据的分页时间300多豪秒之间<%Class PagePrivate CurrPagePrivate PageNPrivate UrlStrPrivate TempStrPrivate ErrInfoPrivate IsErrPrivate TotalRecordPrivate TotalPagePublic  PageRs Private TempA(11)Private TempB(8

创建一个ASP通用分页类

创建|分页 转自"蓝色理想" http://www.blueidea.com/tech/program/2004/1989.asp.ASP分页一直是一个众说纷坛的话题,而且也没有一个太有效的方法.今天在CSDN的BLOG里看到了这个ASP分页类,(http://blog.csdn.net/xiangbo520/archive/2004/09/22/113539.aspx),只是提供了源码,而且源码中部分标签已被作为HTML显示了,想复制下来也不太容易,所有到蓝色理想找到了一篇全面一点的

PHP简易分页类

这是一个简单易用的分页类.只需在你原有的程序中加两句.改一句就可以了 先贴代码 paging.php PHP code <?php class Paging { public static $count = 0; public static $size = 0; public static $page = 0; static function prepare($sql, $pagesize=10) { $page = isset($_GET['page']) ? $_GET['page'] :