最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
检测IP网段
时间:2009-04-24 编辑:简简单单 来源:一聚教程网
先做取出第三段的数字 做比较不就行了
试试ip2long
echo ip2long('192.168.0.1')>= ip2long('192.168.0.61') && ip2long('192.168.0.61')>= ip2long('192.168.0.255');
方法二
'IP(段)检测
'sLockIp为禁止的IP(或IP段),多个用任意分隔符隔开就行了
'sUserIp为待检测的IP
Function SenFe_CheckIp(sLockIp, sUserIp)
Dim aUserIp
SenFe_CheckIp = True
aUserIp = Split(sUserIp, ".")
If SenFe_RegExpTest(sLockIp, Replace(sUserIp, ".", ".")) Then
'Response.Write sUserIp & "禁止访问"
SenFe_CheckIp = False
Exit Function
End If
If SenFe_RegExpTest(sLockIp, aUserIp(0) & "(.(*|d+)){3,}") Then
'Response.Write aUserIp(0) & ".*.*.*禁止访问"
SenFe_CheckIp = False
Exit Function
End If
If SenFe_RegExpTest(sLockIp, aUserIp(0) & "." & aUserIp(1) & "(.(*|d+)){2,}") Then
'Response.Write aUserIp(0) & "." & aUserIp(1) & ".*.*禁止访问"
SenFe_CheckIp = False
Exit Function
End If
If SenFe_RegExpTest(sLockIp, aUserIp(0) & "." & aUserIp(1) & "." & aUserIp(2) & ".(*|d+)") Then
'Response.Write aUserIp(0) & "." & aUserIp(1) & "." & aUserIp(2) & ".*禁止访问"
SenFe_CheckIp = False
Exit Function
End If
End Function
Function SenFe_RegExpTest(sContent,sPatrn)
Dim oTempReg : Set oTempReg = New RegExp
With oTempReg
.IgnoreCase = True
.Global = True
.Pattern = sPatrn
SenFe_RegExpTest = .Test(sContent)
End With
Set TempReg = Nothing
End Function
相关文章
- 无线网连接提示没有有效的IP配置解决方法 03-08
- javascript实现下雨效果 07-28
- javascript实现圣旨卷轴展开效果(代码分享) 07-20
- JavaScript实现星星等级评价功能 07-14
- javascript实现滑动解锁功能 07-14
- 十大热门的JavaScript框架和库 07-13