www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > class/class_exception.asp
<% '=================================================================== '= ASP FILENAME : /class/class_exception.asp '= CREATED TIME : 2006-4-20 '= LAST MODIFIED: 2006-4-20 '= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com '= DESCRIPTION : 错误及例外处理类 '= Change Log : '=================================================================== Class Exception Private strErrorInfo '== 错误信息 Private intErrorId '== 错误号 Public Property Get ErrId() ErrId = intErrorId End Property Public Property Get ErrInfo() ErrInfo = strErrorInfo End Property Private Sub Class_Initialize() intErrorId = 0 strErrorInfo = "" End Sub Private Sub Class_Terminate() End Sub Public Function getErrId() getErrId = intErrorId End Function Public Function getErrInfo() getErrInfo = strErrorInfo End Function '== 捕捉异常 Public Function catchErr(errId,errInfo) strErrorInfo = errInfo intErrorId = errId End Function '== 是否存在异常 Public Function errExists() If intErrorId > 0 Then errExists = True Else errExists = False End If End Function '== 清空异常 Public Function errReset() intErrorId = 0 strErrorInfo = "" End Function End Class %>