ملاحظة: يتطلب ملف ASP الذي تم تنفيذه حقوق المسؤول ، انسخ الكود كما يلي:
<%@ اللغة=VBScript %>
<%
ديمستريب
strIP = طلب (IP)
%>
<إجراء النموذج=؟الطريقة=النشر>
عنوان IP للإدخال: <نوع الإدخال=قيمة النص=<%=strIP%>النمط=الحدود: #AAAAAA 1px اسم صلب=IP>
<نوع الإدخال=قيمة الإرسال=تأكيد الإرسال>
</فورم>
<%
إذا strIP = القائمة ثم
قائمة المكالماتDenyIP(2443)
Response.end
نهاية إذا
إذا كان strIP = الاستعلام بعد ذلك
اتصل بـ CheckWebSiteSetup
Response.end
نهاية إذا
#
إذا قطاع<> ثم
اتصل بـ AddDenyIP(2443,strIP)
نهاية إذا
Sub CheckWebSiteSetup()
قم بتعيين IISOBJ=GetObject(IIS://LocalHost/W3SVC)
لكل موقع في IISOBJ
إذا website.Class=IIsWebServer ثم
لكل ب في website.ServerBindings
Response.write (الخادم &موقع الويب.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
#
لأني=0 إلى ubound(IPList)
الاستجابة.اكتب i+1
الرد.اكتب:
استجابة.كتابة IPList(i)
استجابة.اكتب <br>
التالي
النهاية الفرعية
Sub AddDenyIP(strWebNo,strDenyIp)
تعيين SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
' تأكد من GrantByDefault=TRUE وإلا فلن يتم احتساب التغييرات.
إذا (FALSE = MyIPSec.GrantByDefault) إذن
لم يتم إعداد Response.Write <BR>GrantByDefault على TRUE.<BR>
MyIPSec.GrantByDefault = TRUE
نهاية إذا
IPList=MyIPSec.IPDeny
إذا كان ubound(IPList)<0 إذن
Response.write <BR>لا توجد بيانات، يرجى إضافة واحدة أولاً<BR>
خروج فرعي
نهاية إذا
#
intIPListCount=ubound(IPList)+1
#
لأني=0 إلى ubound(IPList)
إذا strDenyIp = left(IPList(i),len(strDenyIp)) إذن
Response.write <BR> بيانات مكررة. <ر>
خروج فرعي
نهاية إذا
التالي
استرداد الاحتفاظ بقائمة IPList(intIPListCount)
IPList(intIPListCount)=strDenyIp
استجابة.كتابة المضافة حديثا:
استجابة. اكتب strDenyIp
استجابة.اكتب <br>
MyIPSec.IPDeny = IPList
SecObj.IPSecurity = MyIPSec
SecObj.Setinfo
النهاية الفرعية
%>