ASP 判空函数

ASP 判空函数

 1 Public   Function  IsBlank(ByRef TempVar)
 2      ' by default, assume it's not blank
 3     IsBlank  =   False
 4      ' now check by variable type
 5      Select   Case   VarType (TempVar)
 6          ' Empty & Null
 7          Case   0 ,  1
 8             IsBlank  =   True
 9          ' String
10          Case   8
11              If   Len (TempVar)  =   0   Then
12             IsBlank  =   True
13              End   If
14          ' Object
15          Case   9
16             tmpType  =   TypeName (TempVar)
17              If  (tmpType  =   " Nothing " )  Or  (tmpType  =   " Empty " )  Then
18             IsBlank  =   True
19              End   If
20          ' Array
21          Case   8192 ,  8204 ,  8209
22          ' does it have at least one element?
23              If   UBound (TempVar)  =   - 1   Then
24             IsBlank  =   True
25          End   If
26      End   Select

判空函数应用

 1 < %
 2 ' 关键字从Title里面选
 3 classid  =  request( " classid " )
 4 key  =  request( " keyword " )
 5 if  IsBlank(classid)  and  IsBlank(key)  then
 6     sql  =   " select Resource.ID, Title, ClassID, CName from Resource, Class where Resource.ClassID = Class.ID  "
 7 else
 8     sql  =   " select Resource.ID, Title, ClassID, CName from Resource, Class where Resource.ClassID = Class.ID  "
 9      if   CINT (classid)  =   - 1   then
10         sql  =  sql
11         
12      else
13         sql  =  sql  +   "  and ClassID =  "   &  classid
14     
15      end   if
16     
17      if   len (key)  >   0   Then
18         sql  =  sql  &   "  and Title like '% " &  key  & " %'  "
19     
20      else
21         sql =  sql
22         
23      end   if
24 end   if
25
26 set  rs  =  server.createobject( " adodb.recordset " )
27 % >