asp cint clng的范围与防止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

如果我们只需要是数子,其它的东西,都可以替换为空,下面这个是phpStudy站长写的一个正则,替换非数字的正则
复制代码 代码如下:

function replacestr(str)
dim re
set re=new regexp
re.ignorecase=true
re.global=true
re.pattern="\D"
str=re.replace(str,"")
replacestr=str
set re=nothing
end function

下面是上面的调用方法
复制代码 代码如下:

id=replacestr(id)
if len(id)>5 then id=left(id,5)
if id<>"" then id=clng(id)
if err.number<>0 Or id="0" then response.redirect "http://www.phpstudy.net"
dim rs
set rs=conn.execute("select id from news where id="&id&"")



相关阅读:
php二分法在IP地址查询中的应用
Form表单在HTML5中新的使用方法
jQuery 操作option的实现代码
一个匹配形如“#100”的正则表达式
On Error Resume Next 语句
Oracle创建用户及数据表
Linux系统下建立FTP服务器的技巧大放送
注册表中存储数据库链接字符串的方法
IIS安全机制漫谈
四招助你加强Win2003的安全性
JS模拟多线程
asp生成三维饼图的函数
让Json更懂中文(JSON_UNESCAPED_UNICODE)
合理设置和使用Windows7系统电源计划
快速导航

Copyright © 2016 phpStudy |