ASP检测是否数字代码

Function来IsInt返回Boolean 是数字就是True啦



Function IsInt(Str)  

Dim Re  

Set Re = New RegExp  

   Re.Global = True  

   Re.IgnoreCase = False  

   Re.MultiLine = False  

   Re.Pattern = "^[1-9]{1}[0-9]*$"  

   IsInt=Re.Test(Str)  

Set Re=Nothing  

End Function  



Copyright © 2014 ASP技巧教程源码大全 All Rights Reserved
晋ICP备14006235号-3 页面执行时间:93.750毫秒 返回顶部