asp 判断数字是否整形
发布时间:2015-06-05 来源:查字典编辑
摘要:functionisInteger(para)onerrorresumenextdimstrdiml,iifisNUll(para)then...
function isInteger(para)
on error resume next
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
End if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
End if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
isInteger=false
exit function
End if
next
isInteger=true
if err.number<>0 then err.clear
End function