Примечание. Для запуска файла ASP требуются права администратора . Скопируйте код следующим образом:
<%@ Language=VBScript %>
<%
ДимстриП
стрIP = запрос (IP)
%>
<ФОРМА действие=? метод=сообщение>
Входной IP-адрес: <тип ввода=текстовое значение=<%=strIP%> style=BORDER: #AAAAAA 1px name=IP>
<тип ввода=отправить значение=Подтвердить отправку>
</ФОРМ>
<%
если стрIP=список, то
Список вызововDenyIP(2443)
ответ.конец
конец, если
если strIP=запрос, то
Вызов CheckWebSiteSetup
ответ.конец
конец, если
#
если стрIP<> то
Вызов AddDenyIP(2443,strIP)
конец, если
Подпрограмма CheckWebSiteSetup()
Установите IISOBJ=GetObject(IIS://LocalHost/W3SVC)
для каждого веб-сайта в IIOBJ
если веб-сайт.Class=IIsWebServer, то
для каждого b на веб-сайте.ServerBindings
response.write (Сервер &Website.AdsPath имеет привязку&b)
ответ.запись (<br>)
следующий
конец, если
следующий
конец субтитра
#
ПодсписокDenyIP(strWebNo)
установите SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
IPList=MyIPSec.IPDeny
если ubound(IPList)<0, то
response.write <BR>Нет данных, сначала добавьте их<BR>
выход из субмарины
конец, если
#
intIPListCount = ubound (IPList) + 1
#
для i = 0 до ubound (IPList)
ответ.напишите я+1
ответ.напишите:
ответ.запись IPList(i)
ответ.записать <br>
следующий
конец субтитра
Дополнительный AddDenyIP(strWebNo,strDenyIp)
установите SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
' Убедитесь, что GrantByDefault=TRUE, иначе ваши изменения не будут засчитаны.
Если (ЛОЖЬ = MyIPSec.GrantByDefault) Тогда
Response.Write <BR>GrantByDefault не имеет значения TRUE.<BR>.
MyIPSec.GrantByDefault = ИСТИНА
Конец, если
IPList=MyIPSec.IPDeny
если ubound(IPList)<0, то
response.write <BR>Нет данных, сначала добавьте их<BR>
выход из субмарины
конец, если
#
intIPListCount = ubound (IPList) + 1
#
для i = 0 до ubound (IPList)
если strDenyIp = left(IPList(i),len(strDenyIp)) тогда
response.write <BR>Дубликаты данных. <BR>
выход из субмарины
конец, если
следующий
redim Сохранить IPList (intIPListCount)
IPList(intIPListCount)=strDenyIp
недавно добавлено в response.write:
ответ.пишите стрдениип
ответ.записать <br>
MyIPSec.IPDeny = IPList
SecObj.IPSecurity = MyIPSec
SecObj.Setinfo
конец субтитра
%>