求一个VBScript区间比较的语句（192.168.0.22

dippergao 2003-11-30 04:14:13

类似于这样的IP地址比较语句不知道该怎么写，
192.168.0.22 < IP < 192.168.0.62
如果是跨网段呢？

...全文

152 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

avonqin 2003-12-03

打赏
举报

function checkIP(IP_left,IP_check,IP_right)
checkIP=false
ip_left=split(ip_left,".")
ip_check=split(ip_check,".")
ip_right=split(ip_right,".")
for i=0 to 3
if int(ip_check(i))>int(ip_left(i)) and int(ip_check(i))<int(ip_right(i)) then
checkip=true
exit function
end if
next
end function

dippergao 2003-12-03

打赏
举报

up!

dippergao 2003-12-03

打赏
举报

非常感谢chenliang0629(chen)
但是当ip_check和ip_right最后一位的位数不一样的时候，比较就出错了。
比如
ip_left="192.168.1.0"
ip_right="192.168.1.240"
ip_check="192.168.1.71"
这样返回的值都是false,请问这是怎么回事？

dippergao 2003-12-03

打赏
举报

多谢楼上几位

狼总 2003-11-30

打赏
举报

刚才我发的有错，不好意思，应该是：
<%
function checkIP(IP_left,IP_check,IP_right)
checkIP=false
ip_left=split(ip_left,".")
ip_check=split(ip_check,".")
ip_right=split(ip_right,".")
for i=0 to 3
if ip_check(i)>ip_left(i) and ip_check(i)<ip_right(i) then
checkip=true
exit function
end if
next
end function
'下面是测试
ip_left="192.168.1.0"
ip_right="192.168.1.8"
ip_check="192.168.1.6"
isin=checkip(ip_left,ip_check,ip_right)
response.write(isin)
%>

狼总 2003-11-30

打赏
举报

<%
function checkIP(IP_left,IP_check,IP_right)
checkIP=true
ip_left=split(ip_left,".")
ip_check=split(ip_check)
ip_right=split(ip_right)
for i=0 to 3
if not (ip_check(i)>ip_left(i) and ip_check(i)<ip_right) then
checkip=false
exit funtion
end if
next
end function
%>

dippergao 2003-11-30