叶子asp分页类

" * "
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