基于ASP的叶子ASP分页类(分页推荐程序ASP,js版).zip

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ ┃名称: 叶子asp分页类 ┃ ┃Name: ShowoPage(asp class) ┃ ┃RCSfile: ReadMe.txt ┃ ┃Revision: 0.04Beta ┃ ┃Author: yezi(叶子) ┃ ┃Date: 2005-01-21 17:50:10 ┃ ┃Description: ASP分页类,支持access/mssql ┃ ┃Contact: QQ:311673,MSN:ishows@msn.com,http://www.showo.com ┃ ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫ ┃【说明】 ┃ ┃ 本程序遵循GNU协议。 ┃ ┃ 本类目前支持ac,mssql,pgsql,mysql,oracle等常见数据库的分页。 ┃ ┃ 调用示范参见各演示asp文件. ┃ ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫ ┃【注意】 ┃ ┃ 作者联系方法仅为报告bug等使用，恕不解答任何基础的技术问题。 ┃ ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ 使用说明： 具体调用方法可以看demo的asp文档 mssql存储过程版的请先执行mssql_sp.sql文件添加存储过程 下版本预计改进： 1.showo_page.js文件取页数得自定义参数以及代码优化 2.类的进一步封装和优化 3.加上对mysql/pgsql/oracle的支持 特别说明： 通用程度只能算一般。而且我相信最好的分页绝对是每个个人根据实际应用写的，只不过我偷懒综合了下罢了。 开始是裤衩根据直接的sql语句写的存储过程，后来我修改的。有些可以在mssql算的东西，因为asp都算过了，所以就直接传递了， 可是修改完了发现可以丢掉了。不管是效率还是通用性。大家也表BS了，因为这样的如果也配叫存储过程那是侮辱了这4个字：（ 特别感谢： 裤衩，星哥，鸡翼，DLL，科洛，星星等原NB联盟的一帮JR的支持。 目录以及文件说明： db/IP.mdb access测试数据库 db/IP mssql备份测试数据库 Cls_ShowoPage.asp 分页类 mssql_sp.sql mssql存储过程 pageAC.asp ac分页调用示范 pageMSSQL.asp mssql调用示范 pageMSSQL_SP.asp mssql存储过程调用示范 更新历史： 0.04Beta： 1.做到调用代码一样适应多种数据库集成分页 2.js去掉了表单，支持静态提交 3.加上了存储过程 0.03Beta： 1.公开发布的显示为0.02，其实为0.03，分为ac版类，mssql版类发布 2.js的bug修正 3.写成了类，进一步方便调用 0.02Beta： 1.加上对mssql的支持 2.封装成了函数版，方便调用 3.js文件的优化 0.01Beta： 1.没有写成函数，只是找到了比较快的ac分页方法 2.分页样式用js显示 下面是Showo_Rs.Open ResultSet_Sql,Showo_Conn,1,1,&H0001中常见的参数解释。 格式如Rs.Open Sql,Conn,a,b,c,其中a,b,c是参数 'a参数 Const adOpenForwardOnly = 0 '游标只向前浏览记录，不支持分页、Recordset、BookMark Const adOpenKeyset = 1 '键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark Const adOpenDynamic = 2 '动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。 Const adOpenStatic = 3 '静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动 'b参数 Const adLockReadOnly = 1 '锁定类型，默认的，只读，不能作任何修改 Const adLockPessimistic = 2 '当编辑时立即锁定记录，最安全的方式 Const adLockOptimistic = 3 '只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等 Const adLockBatchOptimistic = 4 '当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的 'c参数 Const adCmdText = &H0001 Const adCmdTable = &H0002 '&H0001表示adCmdText,将执行一段sql,&H0002表示adCmdTable,将操作一个表