asp 判断数字是否整形

2015-08-12 16:02:52来源:作者:人点击

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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台