Catatan: File ASP yang dijalankan memerlukan hak administrator . Salin kode sebagai berikut:
<%@ Bahasa=VBScript %>
<%
DimstriP
strIP = permintaan(IP)
%>
<FORMULIR tindakan=?metode=posting>
IP masukan: <tipe masukan=nilai teks=<%=strIP%> style=BORDER: #AAAAAA 1px nama=IP>
<input type=kirim nilai=Konfirmasi pengiriman>
</BENTUK>
<%
jika strIP=daftar maka
Daftar PanggilanDenyIP(2443)
respon.akhir
berakhir jika
jika strIP=kueri maka
Hubungi CheckWebSiteSetup
respon.akhir
berakhir jika
#
jika strIP<> maka
Hubungi AddDenyIP(2443,strIP)
berakhir jika
Sub PeriksaWebSiteSetup()
Setel IISOBJ=GetObject(IIS://LocalHost/W3SVC)
untuk setiap situs web di IISOBJ
jika situs web.Class=IIsWebServer maka
untuk setiap b di situs web.ServerBindings
respon.write (Server &Website.AdsPath telah mengikat&b)
respon.tulis (<br>)
Berikutnya
berakhir jika
Berikutnya
sub akhir
#
Sub DaftarDenyIP(strWebNo)
atur SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
IPList=IPSec Saya.IPDeny
jika ubound(IPList)<0 maka
respon.write <BR>Tidak ada data, harap tambahkan satu terlebih dahulu<BR>
keluar sub
berakhir jika
#
intIPListCount=ubound(IPList)+1
#
untuk i=0 hingga ubound(IPList)
respon.tulis i+1
respon.tulis:
respon.tulis IPList(i)
respon.tulis <br>
Berikutnya
sub akhir
Sub TambahkanDenyIP(strWebNo,strDenyIp)
atur SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
' Pastikan GrantByDefault=TRUE atau perubahan Anda tidak akan dihitung.
Jika (FALSE = MyIPSec.GrantByDefault) Lalu
Response.Write <BR>GrantByDefault tidak BENAR
MyIPSec.GrantByDefault = BENAR
Akhiri Jika
IPList=IPSec Saya.IPDeny
jika ubound(IPList)<0 maka
respon.write <BR>Tidak ada data, harap tambahkan satu terlebih dahulu<BR>
keluar sub
berakhir jika
#
intIPListCount=ubound(IPList)+1
#
untuk i=0 hingga ubound(IPList)
jika strDenyIp = kiri(IPList(i),len(strDenyIp)) maka
respon.write <BR>Data duplikat. <BR>
keluar sub
berakhir jika
Berikutnya
redim Pertahankan IPList(intIPListCount)
IPList(intIPListCount)=strDenyIp
respon.tulis baru ditambahkan:
respon.tulis strDenyIp
respon.tulis <br>
MyIPSec.IPDeny = Daftar IP
SecObj.IPSecurity = MyIPSec
SecObj.Setinfo
sub akhir
%>