叶子asp分页类

名称: 叶子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://www.yehe.org http://www.showo.com
------------------------------------------------
Licenses:
本程序遵循GPL协议.
协议原文地址:http://www.gnu.org/licenses/licenses.cn.html#GPL
------------------------------------------------
Thanks:
可洛: 感谢mssql分页核心部分
Arbiter: 感谢部分分页思路
才子: 感谢推广
foxty: 感谢分页思路
------------------------------------------------
Install:
1.具体调用方法可以看demo的asp文档.
2.mssql存储过程版的请先执行sp_Util_Page.sql文件添加存储过程.
3.sp调用方法:
exec sp_Util_Page 440000,4,10,''MID'',''MID,ip1,ip2,country,city'',''tbTempPage'',''1=1'',''mid asc''
记录条数(已有值:序外部赋值,0执行count),当前页数,每页记录数,主键,字段,表,条件(不需要where),排序(不需要order by,需要asc和desc字符)
如果不按主键排序,则排序赋值里面不能出现主键字符.
------------------------------------------------
Release:
0.12
1.取text字段类型bug修正
2.存储过程bug修正
3.代码修正
0.11
1.存储过程加了非主键排序下的分页
2.去掉了mssql的非存储过程版分页
0.10：
1.条件简化
2.存储过程优化
0.09：
1.排序判断部分优化
0.08：
1.vbs bug修正
0.07：
1.bug修正，包括vbs类和js
0.06Beta：
1.js浏览器兼容优化
2.类几个函数的bug修正
0.05Beta：
1.全面代码优化，mysql/sqlite支持
2.参数输入方式修改
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显示
------------------------------------------------
File:
db/IP.mdb access测试数据库
db/IP mssql备份测试数据库
Cls_vbsPage.asp 分页类
Cls_jsPage.js js分页样式
sp_Util_Page.sql mssql存储过程
demoAC.asp ac分页调用示范
demoMSSQL.asp mssql调用示范
demoMSSQL_SP.asp mssql存储过程调用示范
Cls_vbsPage.asp 
<%
Class Cls_vbsPage
 Private oConn  ''连接对象
 Private iPagesize ''每页记录数
 Private sPageName ''地址栏页数参数名
 Private sDbType
 ''数据库类型,AC为access,MSSQL为SQL SERVER2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql
 Private iRecType ''记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
 Private sJsUrl  ''Cls_jsPage.js的路径
 Private sField  ''字段名
 Private sTable  ''表名
 Private sCondition ''条件,不需要where
 Private sOrderBy ''排序,不需要order by,需要asc或者desc
 Private sPkey  ''主键,必写
 Private iRecCount
 ''================================================================
 '' Class_Initialize 类的初始化
 ''================================================================
 Private Sub Class_Initialize
  iPageSize=10
  sPageName="Page"
  sDbType="AC"
  iRecType=0
  sJsUrl=""
  sField=" * "
 End Sub
 ''================================================================
 '' Conn 得到数据库连接对象
 ''================================================================
 Public Property Set Conn(ByRef Value)
  Set oConn=Value
 End Property
 ''================================================================
 '' PageSize 设置每一页记录条数,默认10记录
 ''================================================================
 Public Property Let PageSize(ByVal intPageSize)
  iPageSize=CheckNum(intPageSize,0,0,iPageSize,0) 
 End Property
 ''================================================================
 '' PageName 地址栏页数参数名
 ''================================================================
 Public Property Let PageName(ByVal strPageName)
  sPageName=IIf(Len(strPageName)<1,sPageName,strPageName)
 End Property
 ''================================================================
 '' DbType 得到数据库类型
 ''================================================================ 
 Public Property Let DbType(ByVal strDbType)
  sDbType=UCase(IIf(Len(strDbType)<1,sDbType,strDbType))
 End Property
 ''================================================================
 '' RecType 取记录总数(>0为赋值或者固定值,0执行count设置存cookies,-1执行count不设置cookies适用于搜索)
 ''================================================================
 Public Property Let RecType(ByVal intRecType)
  iRecType=CheckNum(intRecType,0,0,iRecType,0) 
 End Property
 ''================================================================
 '' JsUrl 取得Cls_jsPage.js的路径
 ''================================================================
 Public Property Let JsUrl(ByVal strJsUrl)
  sJsUrl=strJsUrl
 End Property
 ''================================================================
 '' Pkey 取得主键
 ''================================================================
 Public Property Let Pkey(ByVal strPkey)
  sPkey=strPkey
 End Property
 ''================================================================
 '' Field 取得字段名
 ''================================================================
 Public Property Let Field(ByVal strField)
  sField=IIf(Len(strField)<1,sField,strField)
 End Property
 ''================================================================
 '' Table 取得表名
 ''================================================================
 Public Property Let Table(ByVal strTable)
  sTable=strTable
 End Property
 ''================================================================
 '' Condition 取得条件
 ''================================================================
 Public Property Let Condition(ByVal strCondition)
  s=strCondition
  sCondition=IIf(Len(s)>2," WHERE "&s,"")
 End Property
 ''================================================================
 '' OrderBy 取得排序
 ''================================================================
 Public Property Let OrderBy(ByVal strOrderBy)
  s=strOrderBy
  sOrderBy=IIf(Len(s)>4," ORDER BY "&s,"")
 End Property
 ''===============================