ASP通用分页程序效果及使用说明[转载]

ASP通用分页程序:

 

昨天在网上查了查,有人修改过这个程序,虽然修改的不是太多,但是梢梢有点离谱.

本程序是自动解析所有的,不属于本程序的URL参数的,但是这个修改的同志显然没有了解到这个功能!画蛇添足的加了一个东东!

 

下载:

http://my.opera.com/xlingFairy/homes/soft/1JGrid.rar

 

文件结构:

/demo.asp 运行该文件可以查看效果

--------------------------------

/pagination.inc.asp 该文件完全是为了方便使用而写.不要和下面那个文件弄混了.

/includes/pagination.inc.asp 核心文件

/css/page.css 样式文件,可自行修改.

--------------------------------

附带演示的是最新版的JGrid程序,和本分页程序完全无关,可参考:

http://xling.blueidea.com/archives/2006/2165.shtml

 

效果预览: 

每次显示十个页签的效果:

每次显示五个页签的效果:

 

一,功能说明:

 

1,超简单化的分页方法,让你省掉臃肿的控制语句.

本分页程序,封装在一个ASP类里,你只需要提供几个参数给这个类的实例就行了.其它的工作,会自动完成!

 

2,可自定每页显示多少笔数据.

 

3,可自定每页显示多少页签!

 

4,最新加入跳转到某页的功能!

 

5,自动判断页数是不是有效!

 

6,自动解析URL参数,所以,本程序,你可以放心的使用!

 

二,调用说明:

 

1,如何调用:

只需在需要分页的ASP程序里引用

includes/pagination.inc.asp

css/page.css

两个文件就行了!

 

2,如何打开游标:

dim sql,rst

      sql="select * from dict"

      set rst=server.CreateObject("ADODB.RecordSet")

      '注：必须用open方法打开，conn.execute的不行

      rst.open sql,conn,1,1

 

3,实例化,及设置参数:

dim myPagination  

      set myPagination         =new pagination '实例化

          myPagination.pageSize   =50        '每页要显示多少笔数据

          mypagination.pageListCount   =5         '每次显示多少个页签!

          myPagination.setValue(rst)                 '这一步很重要,把第二步里的rst送进这个实例里进行加工!

 

4,返回加工后的rst:

set rst    =myPagination.rst

 

5,注意如何循环:

<%

for i=1 to rst.pagesize  '注意噢!是这样写的噢!

if rst.eof then exit for

%>

      <tr>

             <td><%=rst("id")%>&nbsp;</td>

             <td><%=rst("english")%>&nbsp;</td>

             <td><%=rst("chinese")%>&nbsp;</td>

      </tr>

<%

rst.movenext

next

%>

 

6,可选部分:

<!--＃i nclude file="pagination.inc.asp"-->

 

三,注意:

 

1,本程序会自动成一个名为page的URL参数,请保证你的参数不会和这个参数冲突!

2,你可以无限制的使用本程序,或在此基础上进行修改,但是请保留原者的信息.

3,谢谢使用.