当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP判断数据库值是否为空的通用函数

ASP
把HTML表单提交的数据转化成XML文件
全球IP地址查询完整版
一个把WORD转换成HTML的程序
天气预报的小偷,可以偷到全国24小时城市天气预报.
显示页面show.asp--基于web的QQ程序1
接收信息页面inform.asp--基于web的QQ程序2
发送信息页面send.asp--基于web的QQ程序3
关于客户端用ASP参生报表
关于客户端用ASP参生报表(高级篇)
利用ASP在线维护数据库
使用JScript.NET创建asp.net页面(一)
使用JScript.NET创建asp.net页面(二)
使用JScript.NET创建asp.net页面(三)
使用JScript.NET创建asp.net页面(四)
使用JScript.NET创建asp.net页面(五)
使用JScript.NET创建asp.net页面(六)
使用JScript.NET创建asp.net页面(七)
创建一个Web投票系统
W3 Jmail中文使用说明
bbs的数据结构和存储过程(一)

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-28   浏览: 179 ::
收藏到网摘: n/a

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

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

'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