繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP判断数据库值是否为空的通用函数
- ASP
- ASP进阶教程Ⅰ：循序渐进学留言薄
- ASP进阶教程Ⅱ：一个简单的留言簿
- ASP进阶教程Ⅲ：给留言簿润下色
- ASP进阶教程Ⅵ：留言簿在线删除留言
- ASP进阶教程Ⅴ：留言簿在线留言编辑（一）
- ASP进阶教程Ⅴ：留言簿在线留言编辑（二）
- ASP进阶教程Ⅳ：加入精彩留言
- ASP进阶教程Ⅸ：留言查询功能（一）
- ASP进阶教程Ⅸ：留言查询功能（二）
- ASP进阶教程Ⅷ：数据库版本的留言簿
- ASP基础讲座（上）
- ASP系列讲座（一）关于 Active Server Pages
- ASP系列讲座（二）ASP 的新功能
- Asp用于分页的两个函数
- ASP与Oracle连接时的TNS错误
- 小工具：统计有多少行JS代码和ASP代码，并有多少字节
- 一个xmlhttp读取xml的例子
- ASP终极防范上传漏洞
- 防止网站内容被人小偷和采集的ASP代码
- 批量判断域名是否被注册程序代码
ASP判断数据库值是否为空的通用函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-28 浏览: 201 ::
收藏到网摘: 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
评论 (0) All
