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

              Exit Property
          End Select
      End Property

      '*****************************************
      ' 类型：    属性
      ' 目的：    设置RecordSet对象
      ' 输入：    a_sSQL:   SQL语句。
      ' 返回：    无。
      '*****************************************
      Public Property Let SetRS(a_sSQL)
          If LCase(TypeName(cls_oConn)) <> "connection" Then
              cls_sErrInfo = cls_sErrInfo & "<li>非法的Connection对象，无法创建RecordSet对象</li>" & Chr(10)
              Exit Property
          End If

          cls_sSQL = a_sSQL

          '创建RecordSet对象
          Set cls_oRS = CreateObject("Adodb.RecordSet")


'          On Error Resume Next
          cls_oRS.Open cls_sSQL,cls_oConn,1,1
'          On Error Goto 0
      End Property

      '*****************************************
      ' 类型：    属性
      ' 目的：    设置RecordSet对象
      ' 输入：    a_oRS:   RecordSet对象
      ' 返回：    无。
      '*****************************************
      Public Property Set SetRS(a_oRS)
          If LCase(TypeName(a_oRS))<>"recordset" Then
              cls_sErrInfo = cls_sErrInfo & "<li>非法的RecordSet对象</li>" & Chr(10)