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

              Exit Property
          End If

          '设置RecordSet对象
          Set cls_oRS = a_oRS
      End Property

      '*****************************************
      ' 类型：    属性
      ' 目的：    设置RecordSet对象
      ' 输入：    a_oRS:   RecordSet对象
      ' 返回：   返回一RecordSet对象
      '*****************************************
      Public Property Get GetRS()
          Set GetRS = cls_oRS
      End Property

      '获取Connection对象
      Public Property Get GetConn()
          If cls_sErrInfo <> "" Then
              Call ShowError()
          End If

          If LCase(TypeName(cls_oConn))<>"connection" Then
              cls_sErrInfo = cls_sErrInfo & "<li>Connection对象获取失败</li>"
'              Exit Property              
          End If

          Set GetConn = cls_oConn
      End Property

      '返回数据库连接字符串
      Public Property Get ConnStr
          ConnStr = cls_sConn
      End Property

      '设置第个页面显示的数据数
      Public Property Let PageSize(a_iPageSize)
          If Not IsNumeric(a_iPageSize) Then
              cls_sErrInfo = cls_sErrInfo & "<li>无效的分页记录数参数</li>" & Chr(10)