一聚教程网:一个值得你收藏的教程网站

热门教程

asp 判断数字是否整形

时间:2022-07-02 22:35:22 编辑:袖梨 来源:一聚教程网

asp  判断数字是否整形
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

热门栏目