_asp basis of evaluation function for null value test of ASP

Copy Code code as follows:

' function: null-value Test
Function Inull (Val)
Dim tmp
TMP = False
If IsNull (Val) Then
TMP = True
ElseIf IsEmpty (Val) Then
TMP = True
ElseIf Trim (Val) = "" Then
TMP = True
End If
Inull = tmp
End Function

Tests whether the variable is null, and the meaning of the null value includes: The variable does not exist/is empty, the object is nothing,0, the empty array, the string is empty
Function IsBlank (ByRef Var)
IsBlank = False
Select Case True
Case IsObject (Var)
If Var is nothing Then IsBlank = True
Case IsEmpty (Var), IsNull (Var)
IsBlank = True
Case IsArray (Var)
If UBound (Var) = 0 Then IsBlank = True
Case IsNumeric (Var)
If (Var = 0) Then IsBlank = True
Case Else
If Trim (Var) = "" Then IsBlank = True
End Select
End Function