脚本宝典收集整理的这篇文章主要介绍了asp cint clng的范围与防止cint和clng的溢出解决方法大全,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
首先我们需要了解的是
cint范围 -32,768 到 32,767。
clng范围 -2,147,483,648 到 2,147,483,647。
cint与clng含义:
都可以强制将一个表达式转换成数据类型
cint与clng处理数据的范围:
CInt Integer -32,768 至 32,767,小数部分四舍五入。
CLng Long -2,147,483,648 至 2,147,483,647,小数部分四舍五入。
所谓溢出指的是超出处理数据的范围,下面代码是处理数据防止溢出的代码,大家可以自己看看:
'检测是否是短整数
s
ub Is_Int(string)
if len(abs(string))>10 then response.wr
ITe "数据溢出":response.end
if instr(string,"-")<1 then
if cint(left(string,4))>3276 and cint(right(string,1))>7 then response.write "数据溢出":response.end
else
if cint(left(abs(string),4))>3276 and cint(right(string,1))>8 then response.write "数据溢出":response.end
end if
end sub
'检测是否是长整数
sub Is_Lng(string)
if len(abs(string))>10 then response.write "数据溢出":response.end
if instr(string,"-")<1 then
if clng(left(string,9))>214748364 and clng(right(string,1))>7 then response.write "数据溢出":response.end
else
if clng(left(abs(string),9))>21478364 and clng(right(string,1))>8 then response.write "数据溢出":response.end
end if
end sub
以下是一些检验函数,需要的朋友可以参考下:
第一种:
一、检测它是不是整数&nbs
p;function Is_Int(a_str)
if not isnumeric(a_str) or len(str) > 5 then
Is_Int = false
exit function
els
eif 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
如果我们只需要是数子,其它的东西,都可以替换为空,下面这个是脚本宝典
站长写的一个正则,替换非数字的正则
function replacestr(str)
dim re
set re=new rege
xp 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 "https://www.js-code
.COM"
dim rs
set rs=conn.execute("select id
From news where id="&
amp;id&"")
脚本宝典总结
以上是脚本宝典为你收集整理的asp cint clng的范围与防止cint和clng的溢出解决方法大全全部内容,希望文章能够帮你解决asp cint clng的范围与防止cint和clng的溢出解决方法大全所遇到的问题。
如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。