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

%>