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

[dippergao]

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

[DeltaCat]

最好不要这样比，而是

ipArr = split(IP,".")

这样，ipArr就有4段了
然后，每段进行比较

[dippergao]

谢谢alexzhang00(三角猫(sjcatsoft)) 的建议
但请问比较语句直接这么写可以吗？
192.168.0.22 < IP < 192.168.0.62
这样语法是否正确？

[rexsp]

不正确。

[nchen123]

按照三脚猫的建议分成四个部分，然后按一定的逻辑从高位往低位比较， 你可以写成一个函数。

[dippergao]

这样写
aa=split(ip,".")
aa[0]=192
aa[1]=168
aa[2]=0
22<aa[3]<62
这样写对吗？

[狼总]

<%
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
%>

[狼总]

刚才我发的有错，不好意思，应该是：
<%
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)
%>

[dippergao]

多谢楼上几位

[dippergao]

非常感谢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]

up!

[avonqin]

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