仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 714|回复: 9
打印 上一主题 下一主题

[学习教程] ASP编程:asp检测整数和长整数的函数

[复制链接]
透明 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:05:25 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的;常常见到cint和clng的溢出堕落,假如有检测函数就不会出这个成绩,上面这两个函数是应伴侣请求写的,看一下吧常常见到cint和clng的溢出堕落,假如有检测函数就不会出这个成绩,上面这两个函数是应伴侣请求写的,看一下吧

检拆字符串是不是是整数
functionIs_Int(a_str)
ifnotisnumeric(a_str)orlen(str)>5then
Is_Int=false
exitfunction
elseiflen(str)<5then
Is_Int=true
exitfunction
endif
ifcint(left(a_str,4))>3276then
Is_Int=false
exitfunction
elseifcint(left(a_str,4))=3276andcint(right(a_str,1))>7then
Is_Int=false
exitfunction
else
Is_Int=true
exitfunction
endif
endfunction

检测是不是是长整数
functionIs_Lng(a_str)
ifnotisnumeric(a_str)orlen(str)>10then
Is_Lng=false
exitfunction
elseiflen(str)<10then
Is_Lng=true
exitfunction
endif
ifclng(left(a_str,9))>214748367then
Is_Lng=false
exitfunction
elseifclng(left(a_str,9))=214748367andclng(right(a_str,1))>7then
Is_Lng=false
exitfunction
else
Is_Lng=true
exitfunction
endif
endfunction

缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-5-14 12:08

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表