ASP判断是否为空

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

Private Function IsBlank(byref TempVar)
	IsBlank = False
	Select Case VarType(TempVar)
		Case 0, 1 '--- Empty & Null
			IsBlank = True
		Case 8 '--- String
			If Len(TempVar) = 0 Then
				IsBlank = True
			End If
		Case 9 '--- Object
			tmpType = TypeName(TempVar)
			If (tmpType = "Nothing") Or (tmpType = "Empty") Then
				IsBlank = True
			End If
		Case 8192, 8204, 8209 '--- Array
			If UBound(TempVar) = -1 Then
				IsBlank = True
			End If
	End Select
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  数组

XeonWell Studio