Hinweis: Für die ausgeführte ASP-Datei sind Administratorrechte erforderlich . Kopieren Sie den Code wie folgt:
<%@ Language=VBScript %>
<%
DimstrIP
strIP = Anfrage(IP)
%>
<FORM action=? method=post>
Eingabe-IP: <input type=text value=<%=strIP%> style=BORDER: #AAAAAA 1px solid name=IP>
<Eingabetyp=Wert senden=Zum Senden bestätigen>
</FORM>
<%
wenn strIP=list dann
AnruflisteDenyIP(2443)
Antwort.Ende
Ende wenn
wenn strIP=query dann
Rufen Sie CheckWebSiteSetup auf
Antwort.Ende
Ende wenn
#
wenn strIP<> dann
Rufen Sie AddDenyIP(2443,strIP) auf.
Ende wenn
Sub CheckWebSiteSetup()
Legen Sie IISOBJ=GetObject(IIS://LocalHost/W3SVC) fest.
für jede Website in IISOBJ
wenn website.Class=IIsWebServer dann
für jedes b in website.ServerBindings
Response.write (Server &Website.AdsPath hat Bindung&b)
Response.write (<br>)
nächste
Ende wenn
nächste
Ende sub
#
Sub ListDenyIP(strWebNo)
set SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
IPList=MyIPSec.IPDeny
wenn ubound(IPList)<0 dann
Response.write <BR>Keine Daten, bitte fügen Sie zuerst eine hinzu<BR>
Sub verlassen
Ende wenn
#
intIPListCount=ubound(IPList)+1
#
für i=0 bis ubound(IPList)
Antwort.write i+1
Antwort.write:
Response.write IPList(i)
Antwort.write <br>
nächste
Ende sub
Sub AddDenyIP(strWebNo,strDenyIp)
set SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
' Stellen Sie sicher, dass GrantByDefault=TRUE ist, sonst werden Ihre Änderungen nicht berücksichtigt.
Wenn (FALSE = MyIPSec.GrantByDefault) Dann
Response.Write <BR>GrantByDefault war nicht TRUE. Einstellung auf TRUE.<BR>
MyIPSec.GrantByDefault = TRUE
Ende wenn
IPList=MyIPSec.IPDeny
wenn ubound(IPList)<0 dann
Response.write <BR>Keine Daten, bitte fügen Sie zuerst eine hinzu<BR>
Sub verlassen
Ende wenn
#
intIPListCount=ubound(IPList)+1
#
für i=0 bis ubound(IPList)
if strDenyIp = left(IPList(i),len(strDenyIp)) dann
Response.write <BR>Doppelte Daten. <BR>
Sub verlassen
Ende wenn
nächste
redim Preserve IPList(intIPListCount)
IPList(intIPListCount)=strDenyIp
Response.write neu hinzugefügt:
Antwort.write strDenyIp
Antwort.write <br>
MyIPSec.IPDeny = IPList
SecObj.IPSecurity = MyIPSec
SecObj.Setinfo
Ende sub
%>