查看: 45|回复: 1

[文章教程] asp 空值测试判断函数

[复制链接]
智睿 发表于 2020-6-22 16:18:04 | 显示全部楼层 |阅读模式
  1. 代码如下:

  2. '函数:空值测试
  3. Function inull(Val)
  4. Dim tmp
  5. tmp = False
  6. If IsNull(Val) Then
  7. tmp = True
  8. ElseIf IsEmpty(Val) Then
  9. tmp = True
  10. ElseIf Trim(Val) = "" Then
  11. tmp = True
  12. End If
  13. inull = tmp
  14. End Function


  15. 测试变量是否为空值,空值的含义包括:变量不存在/为空,对象为Nothing,0,空数组,字符串为空
  16. Function IsBlank(ByRef Var)
  17. IsBlank = False
  18. Select Case True
  19. Case IsObject(Var)
  20. If Var Is Nothing Then IsBlank = True
  21. Case IsEmpty(Var), IsNull(Var)
  22. IsBlank = True
  23. Case IsArray(Var)
  24. If UBound(Var) = 0 Then IsBlank = True
  25. Case IsNumeric(Var)
  26. If (Var = 0) Then IsBlank = True
  27. Case Else
  28. If Trim(Var) = "" Then IsBlank = True
  29. End Select
  30. End Function
复制代码
xuanxiao 发表于 2020-6-22 21:32:31 | 显示全部楼层
可以,函数手册可以收录
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号