BYZKXP2/15/20066HTTP: //zkxp.cnblogs.com
"مجموعة عنوان IP المحظورة (القطاع) ، و Asterisk عبارة عن بطاقة برايفورت ، وعادة ما يتم حفظها في ملف التكوين.
<٪
constbadipgroup = "220.200.59.136 | 220.205.168.141"
ifisforbidip (badipgroup) = truethen
Response.write (GetUserip & "عنوان IP محظور")
استجابة.
Endif
'**********************************************************************
'المعلمة vbadip: مقطع IP ليتم حظره ، جمع عناوين IP ، عناوين IP متعددة منفصلة (قطاعات) مع | الرموز
"العودة إلى Bool: IP الحقيقي IP في النطاق المحظور ، خطأ هو عكس ذلك
'**********************************************************************
functionisforbidip (vbadip)
dimcounter ، arrippart ، arrbadip ، arrbadippart ، i ، j
arrbadip = انقسام (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
Endif
التالي
ifcounter = 4then
ISforbidip = صحيح
exitfunction
Endif
التالي
ISforbidip = خطأ
الوظيفية
'***************
العودة إلى عنوان IP العميل
'***************
FunctionGetUserip ()
dimip
ip = request.servervariables ("http_x_forwarded_for")
IFIP = "" therip = request.servervariables ("remote_addr")
getUserip = IP
الوظيفية
٪>