asp编程:判断IP,IP段是否合法示例-歌特中国歌特金属,配置iis+php+mysql,关注学习(Sql,Net,Web2.0,Javacript,Seo,Cms)

September 2008
M	T	W	T	F	S	S
« Aug		Oct »
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

September 2008

« Aug

Oct »

Parameters

18th

2008,09

asp编程:判断IP,IP段是否合法示例

Asp编程cngothic

asp编程:判断IP,IP段是否合法示例
在做一个项目时为了更好的禁恶意者的行为.通常会禁IP,或IP段来防止恶意行为.如果只判断IP则好说.但判断IP段.
就难了.没有办法比较.下面说个示例.把IP转移为数值.意思就是把起始IP与终止IP转换为数值.这两数值间的数也就是
这两个IP间的IP.
代码:

'//IP转换成数字，限制IP时用
'// userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
'// if userIPnum > IP2Num("192.168.0.0") and userIPnum < IP2Num("192.168.0.255") then
'// response.write ("<center>您的IP被禁止</center>")
'// response.end'
// end if
function IP2Num(sip)
dim str1,str2,str3,str4
dim num IP2Num=0
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num = num
end if
end function