<%
'===================================================================
'= 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

%>