叶子asp分页类(3)

 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
 ''================================================================
 '' RecCount 修正记录总数
 ''================================================================
 Public Property Get RecCount()
  If iRecType>0 Then
   i=iRecType
  Elseif iRecType=0 Then
   i=CheckNum(Request.Cookies("ShowoPage")(sPageName),1,0,0,0)
   s=Trim(Request.Cookies("ShowoPage")("sCond"))
   IF i=0 OR sCondition<>s Then
    i=oConn.Execute("SELECT COUNT("&sPkey&") FROM "&sTable&" "&sCondition,0,1)(0)