ASP字符串转换为整形、双精度型、布尔

Rem 将字符串转换为整形数据 
function toInteger(str,num) 
        str=trim(str) 
        if str="" or not isnumeric(str) then 
              toInteger=num 
        else 
              toInteger=clng(str) 
        end if 
end function 

Rem 将字符串转换为双精度型数据 
function toDouble(str) 
       str=trim(str) 
       if str="" or not isnumeric(str) then 
              toDouble=0.0 
      else 
              toDouble=cdbl(str) 
      end if 
end function 

Rem 将字符串转换为布尔数据 
function toBoolean(str) 
      str=lcase(trim(str)) 
      if str="true" or str="t" then 
            toBoolean=true 
     elseif isnumeric(str) then 
            if clng(str)<>0 then toBoolean=true 
     else 
           toBoolean=false 
    end if 
end function