⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 class_exception.asp

📁 是一个很好用的通信录源码,可以用在同学朋友等的通信上使用!
💻 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

%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -