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")%> </td>
<td><%=rst("english")%> </td>
<td><%=rst("chinese")%> </td>
</tr>
<%
rst.movenext
next
%>

6,可选部分:
<!--＃i nclude file="pagination.inc.asp"-->

三,注意:

1,本程序会自动成一个名为page的URL参数,请保证你的参数不会和这个参数冲突!
2,你可以无限制的使用本程序,或在此基础上进行修改,但是请保留原者的信息.
3,谢谢使用.