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

              Exit Property
          End If

          cls_iPageSize = a_iPageSize
      End Property

      '设置SQL语句,用于建立RecordSet对象
      Public Property Let SQL(a_sSQL)
           If IsNone(a_sSQL) Then
              cls_sErrInfo = cls_sErrInfo & "<li>没有设置SQL,无法创建RecordSet对象</li>" & Chr(10)
              Exit Property
          End If

          cls_sSQL = Trim(a_sSQL)
      End Property

      '执行数据操作
      Public Sub Execute()
          If cls_sErrInfo <> "" Then
              ShowError("<ul>" & Chr(10) & cls_sErrInfo & "</ul>" & Chr(10))
              Exit Sub
          End If

          If LCase(TypeName(cls_oConn))="connection" Then
              If IsNumeric(cls_iPageSize) Then
                  Set cls_oRS =  CreateObject("Adodb.RecordSet")
                  cls_oRS.Open cls_sSQL,cls_oConn,1,1
              Else
              End If
          Else
              cls_sErrInfo = cls_sErrInfo & "<li>非法的Connection对象</li>" & Chr(10)
          End If
      End Sub

      '*****************************************