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