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

                  sResult = sResult & "<input type=""submit"" class=""GotoPage"" value=""GO""></td></form></tr>" & Chr(10)
          End If
          sResult = sResult & "      </table>" & Chr(10) & "    </td>" & Chr(10) & "  </tr>" & Chr(10) & "</table>" & Chr(10)

          '输出分页信息
          Response.Write("result:" & sResult)
      End Sub

      '类销毁
      Private Sub Class_Terminate()     
          If LCase(TypeName(cls_oConn))<>"nothing" Then
              cls_oConn.Close
              Set cls_oConn = Nothing
          End If

          If LCase(TypeName(cls_oRS))<>"nothing" Then
       '       cls_oRS.Close
              Set cls_oRS = Nothing
          End If
      End Sub


      '*****************************************
      ' 类型：    过程
      ' 目的：    显示分页类中出现的错误信息
      ' 输入：    无
      ' 返回：    无
      '*****************************************
      Private Sub ShowErrors()
          If cls_cls_sErrInfo <> "" Then
              cls_cls_sErrInfo = "<ul>" & Chr(10) & cls_sErrInfo & "</ul>" & Chr(10)