ASP判断数据库值是否为空的通用函数

由于各种字段属性不同，判断字段是否为空的方法也各异．

下面是一个通用函数，免去了还要看字段类型之苦．

''Check a variable isn''t "empty"
Function IsBlank(ByRef TempVar)
''by default, assume it''s not blank
IsBlank = False
''now check by variable type
Select Case VarType(TempVar)
''Empty & Null
Case 0, 1
IsBlank = True
''String
Case 8
If Len(TempVar) = 0 Then
IsBlank = True
End If
''Object
Case 9
tmpType = TypeName(TempVar)
If (tmpType = "Nothing") Or (tmpType = "Empty") Then
IsBlank = True
End If
''Array
Case 8192, 8204, 8209
''does it have at least one element?
If UBound(TempVar) = -1 Then
IsBlank = True
End If
End Select
End Function

应用实例：

If IsBlank(rs("upic")) Then
  upicurl="/images/nonepic.jpg"
 Else
  upicurl=rs("upic")
 End If

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!