asp 判斷數字是否整形

　　function isInteger(para)
       on error resume next
       dim str
       dim li
       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= to l
           if mid(stri)>"" or mid(stri)<"" then
              isInteger=false
              exit function
           End if
       next
       isInteger=true
       if errnumber<> then errclear
End function

From:http://tw.wingwit.com/Article/program/net/201311/14345.html