您的位置:首页技术开发ASP技巧 → 检测整数和长整数的函数

检测整数和长整数的函数

时间:2004/11/7 4:10:00来源:本站整理作者:蓝点我要评论(0)

经常见到cint和clng的溢出出错,如果有检测函数就不会出这个问题,下面这两个函数是应朋友要求写的,看一下吧



'检测字符串是否是整数

function Is_Int(a_str)

   if not isnumeric(a_str) or len(str) > 5 then

      Is_Int = false

      exit function

   elseif len(str) < 5 then

      Is_Int = true

      exit function

   end if   

   if cint(left(a_str , 4)) > 3276 then

      Is_Int = false

      exit function

   elseif cint(left(a_str , 4)) = 3276 and cint(right(a_str , 1)) > 7 then

      Is_Int = false

      exit function

   else

      Is_Int = true

      exit function

   end if   

end function



'检测是否是长整数

function Is_Lng(a_str)

   if not isnumeric(a_str) or len(str) > 10 then

      Is_Lng = false

      exit function

   elseif len(str) < 10 then

      Is_Lng = true

      exit function

   end if   

   if clng(left(a_str , 9)) > 214748367 then

      Is_Lng = false

      exit function

   elseif clng(left(a_str , 9)) = 214748367 and clng(right(a_str , 1)) > 7 then

      Is_Lng = false

      exit function

   else

      Is_Lng = true

      exit function

   end if   

end function




相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案