ASP判断是否为空,自定义函数

ASP判断是否为空,自定义函数

ASP 2010-07-06 08:38:33 阅读12 评论0   字号：大中小 订阅

 

判断指定对象是否为空值, 包含大部分情况, 譬如空数组,空字符串,Empty和Null对象等等

01	Private Function IsBlank(byref TempVar)

02	IsBlank = False

03	Select Case VarType(TempVar)

04	Case 0, 1 '--- Empty & Null

05	IsBlank = True

06	Case 8 '--- String

07	If Len(TempVar) = 0 Then

08	IsBlank = True

09

End If

10	Case 9 '--- Object

11	tmpType = TypeName(TempVar)

12	If (tmpType = "Nothing") Or (tmpType = "Empty") Then

13	IsBlank = True

14

End If

15	Case 8192, 8204, 8209 '--- Array

16	If UBound(TempVar) = -1 Then

17	IsBlank = True

18

End If

19	End Select

20	End Function

VarType 函数返回下列值：

常数	值	描述
vbEmpty	0	Empty（未初始化）
vbNull	1	Null（无有效数据）
vbInteger	2	整数
vbLong	3	长整数
vbSingle	4	单精度浮点数
vbDouble	5	双精度浮点数
vbCurrency	6	货币
vbDate	7	日期
vbString	8	字符串
vbObject	9	Automation 对象
vbError	10	错误
vbBoolean	11	Boolean
vbVariant	12	Variant（只和变量数组一起使用）
vbDataObject	13	数据访问对象
vbByte	17	字节
vbArray	8192	数组