|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
常常见到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 返回类别: 教程 上一教程: 用ASP判定EMAIL地址是否有效 下一教程: 构建稳定的服务器端组件的七个步骤 您可以阅读与"检测整数和长整数的函数"相关的教程: · 一个检测一个字符串在另一个字符串当中出现几次的函数 · 全正则的检测IP是否合法的函数 · 检测IP地址是否真正合法的函数 · 一个实现任意改变计数器位数的函数 · ASP中SPLIT函数的实例 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |