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 函数返回下列值：