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

最新下载

热门教程

asp 判断数字是否整形

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

判断数字是否整形
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) isInteger=false
exit function
End if
next
isInteger=true
if err.number0 then err.clear
End function

热门栏目