叶子asp分页类(2)

 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适用于搜索)
 ''================================================================