Byzkxp2/15/2006http: //zkxp.cnblogs.com
«Коллекция заблокированного IP -адреса (сегмент), звездочка представляет собой подстановочный знак и обычно сохраняется в файле конфигурации.
<%
ConstbadipGroup = "220.200.59.136 | 220.205.168.141"
Ifisforbidip (badipgroup) = truethen
Response.write (getUserip & "IP -адрес запрещает доступ")
Response.end ()
Эндиф
'***************************************************
'Параметр VBADIP: IP -сегмент для блокировки, сбор IP -адресов, отдельные несколько IP -адресов (сегменты) с | символы
'Вернуться в Bool: True User IP находится в блокированном диапазоне, False - это наоборот
'***************************************************
Functionisforbidip (vbadip)
Dimcounter, Arrippart, Arrbadip, Arrbadippart, I, J
arrbadip = split (vbadip, "|")
arrippart = split (getUserip (), ".")
Fori = 0toubound (arrbadip)
счетчик = 0
arrbadippart = split (arrbadip (i), ".")
Forj = 0toubound (arrippart)
If (arrbadippart (j)) = "*" orcstr (arrippart (j)) = cstr (arrbadippart (j))
счетчик = счетчик+1
Эндиф
Следующий
Ifcounter = 4then
Isforbidip = true
Выходная функция
Эндиф
Следующий
Isforbidip = false
Конечная функция
'*************
'Вернуться к IP -адресу клиента
'*************
FunctiongetUserip ()
Димип
Ip = request.servervariables ("http_x_forwarded_for")
Ifip = "" thenip = request.servervariables ("remote_addr")
GetUserip = ip
Конечная функция
%>