CJJ专用ASP类库中的某个class(9)

              End If
          End If

          '如果没有选择第几页，则默认显示第一页
          If cls_lPageNo <> "" And IsNumeric(cls_lPageNo) Then
              If (cls_lPageNo <= 2147483647 And cls_lPageNo>=-2147483648) Then
                  cls_lPageNo = CLng(cls_lPageNo)
              Else
                  cls_lPageNo = 2147483647
                End If
              If (cls_lPageNo<=0) Then
                  cls_lPageNo = 1
              End If
          Else '当前页参数为空或者非数字，默认将转到第1页
              cls_lPageNo=1
          End If

          If (cls_lPageNo > cls_lTotalPage AND cls_lTotalPage<>0) Then
              cls_lPageNo = cls_lTotalPage
          End If

          cls_oRS.PageSize     = cls_iPageSize
          cls_oRS.AbsolutePage = cls_lPageNo

          iPosition = InstrRev(cls_sURL,"?")
          cls_sFormAction = cls_sURL
          If iPosition > 0 Then
              cls_sURL = cls_sURL & "&Page="
          Else
              cls_sURL = cls_sURL & "?Page="