叶子asp分页类(5)

   s=Rs.GetRows(iPageSize)
   Rs.close
   Set Rs=Nothing
  End If
  ResultSet=s
 End Property
 ''================================================================
 '' Class_Terminate 类注销
 ''================================================================
 Private Sub Class_Terminate()
  If IsObject(oConn) Then oConn.Close:Set oConn=Nothing
 End Sub
 ''================================================================
 '' 输入:检查字符,是否有最小值,是否有最大值,最小值(默认数字),最大值
 ''================================================================
 Private Function CheckNum(ByVal strStr,ByVal blnMin,ByVal blnMax,ByVal intMin,ByVal intMax)
  Dim i,s,iMi,iMa
  s=Left(Trim(""&strStr),32):iMi=intMin:iMa=intMax
  If IsNumeric(s) Then
   i=CDbl(s)
   i=IIf(blnMin=1 And i<iMi,iMi,i)
   i=IIf(blnMax=1 And i>iMa,iMa,i)
  Else
   i=iMi
  End If
  CheckNum=i
 End Function
 ''================================================================
 '' 输入:简化条件判断
 ''================================================================
 Private Function IIf(ByVal blnBool,ByVal strStr1,ByVal strStr2)
  Dim s
  If blnBool Then
   s=strStr1
  Else
   s=strStr2
  End If
  IIf=s
 End Function
 ''================================================================
 '' 上下页部分
 ''================================================================
 Public Sub ShowPage()%>
  <Script Language="JavaScript" type="text/JavaScript" src="<%=sJsUrl%>Cls_jsPage.js"></Script>
  <Script Language="JavaScript" type="text/JavaScript">
  var s= new Cls_jsPage(<%=iRecCount%>,<%=iPageSize%>,3,"s"); 
  s.setPageSE("<%=sPageName%>=","");
  s.setPageInput("<%=sPageName%>");
  s.setUrl("");
  s.setPageFrist("首页","<<");
  s.setPagePrev("上页","<");
  s.setPageNext("下页",">");
  s.setPageLast("尾页",">>");
  s.setPageText("[{$PageNum}]","第{$PageNum}页");
  s.setPageTextF(" {$PageTextF} "," {$PageTextF} ");
  s.setPageSelect("{$PageNum}","第{$PageNum}页");