ASP字符串转换为整形、双精度型、布尔
程序员文章站
2022-05-03 12:33:56
rem 将字符串转换为整形数据 function tointeger(str,num) &n...
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
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
上一篇: ASP运行在IIS6 500错误解决办法