zoukankan      html  css  js  c++  java
  • ASP判断是否为空,自定义函数

    ASP判断是否为空,自定义函数

    ASP 2010-07-06 08:38:33 阅读12 评论0   字号: 订阅

     


    判断指定对象是否为空值, 包含大部分情况, 譬如空数组,空字符串,Empty和Null对象等等


    01 Private Function IsBlank(byref TempVar)
    02     IsBlank = False
    03     Select Case VarType(TempVar)
    04         Case 0, 1 '--- Empty & Null
    05             IsBlank = True
    06         Case 8 '--- String
    07             If Len(TempVar) = 0 Then
    08                 IsBlank = True
    09             End If
    10         Case 9 '--- Object
    11             tmpType = TypeName(TempVar)
    12             If (tmpType = "Nothing") Or (tmpType = "Empty") Then
    13                 IsBlank = True
    14             End If
    15         Case 8192, 8204, 8209 '--- Array
    16             If UBound(TempVar) = -1 Then
    17                 IsBlank = True
    18             End If
    19     End Select
    20 End Function


    VarType 函数返回下列值:


    常数描述
     vbEmpty  0  Empty(未初始化)
     vbNull  1  Null(无有效数据)
     vbInteger  2  整数
     vbLong  3  长整数
     vbSingle  4  单精度浮点数
     vbDouble  5  双精度浮点数
     vbCurrency  6  货币
     vbDate  7  日期
     vbString  8  字符串
     vbObject  9  Automation 对象
     vbError  10  错误
     vbBoolean  11  Boolean
     vbVariant  12  Variant(只和变量数组一起使用)
     vbDataObject  13  数据访问对象
     vbByte  17  字节
     vbArray  8192  数组
  • 相关阅读:
    [HNOI2003]消防局的设立
    [HNOI2003]操作系统(优先队列,堆排序)
    车站分级 (2013noip普及组T4)(树形DP)
    中国剩余定理
    楼房重建(分块优化)
    [HAOI2010]软件安装(树形背包,tarjan缩点)
    [USACO08NOV]时间管理Time Management(排序,贪心)
    没有上司的舞会(树形DP)
    选课(树形DP)
    miller rabin 素性测试
  • 原文地址:https://www.cnblogs.com/21xz/p/1861654.html
Copyright © 2011-2022 走看看