'*********************************
'functionCheckip (Cinput_ip ، cbound_ip)
'CreatedByQqdao ، [email protected]/11/8
ملاحظة: أولاً ، تحتاج إلى حلقة بناءً على ؛ الرقم ، ثم حدد ما إذا كان يحتوي على "-" ، إذا كان هناك ، قم بإجراء معالجة الانقسام ، وأخيراً حدد ما إذا كان ضمن النطاق
المعلمة: Cinput_ip ، IP للتحقق من الوكيل
"CBOUND_IP ، تنسيق النطاق المحدد هو ، IP واحد ، و IP النطاق ، يتم استخدام IP النطاق آخر للانقسام ، إذا كان"*"، يجب وضعه في الرقم الأخير
"إضافة": السماح "بعد كل نطاق يعني أن تسجيل الدخول مسموح به ، وإضافة": رفض "يعني أن تسجيل الدخول يتم رفضه. استخدم نطاقات متعددة للفصل
على سبيل المثال 192.168.1*.*: السماح ؛ 192.168.1.1:low ؛ 192.168.1.1-10: رفض "
'قيمة الإرجاع: صواب/خطأ
"تحديث: 2001/12/05 الدعم السماح ، الدعم رفض"*"، لا تريد أن تكون على حق؟ مدعوم ، لأنه تقريبا مثل *
'*********************************
FunctionCheckip (Cinput_ip ، CBOUND_IP)
dimcsingle_ip ، ctemp_ip ، cstart_ip ، cend_ip
cadcip = خطأ
csingle_ip = split (cbound_ip ، "؛")
fori = 0toubound (csingle_ip)
ifinstr (csingle_ip (i) ، "refuse") <> 0then "يرفض فقط
ctemp_ip = left (csingle_ip (i) ، instr (csingle_ip (i) ، ":")-1)
Ifinstr (ctemp_ip ، "*") <> 0then "هو نطاق واسع
CSTART_IP = يسار (ctemp_ip ، instr (ctemp_ip ، "*")-1)
Ifleft (Cinput_ip ، Len (cstart_ip)) = cstart_ipthen
cadcip = خطأ
exitfunction
Endif
Endif
ifinstr (ctemp_ip ، "-") = 0then
CSTART_IP = CTEMP_IP
cend_ip = ctemp_ip
آخر
CSTART_IP = يسار (ctemp_ip ، instr (ctemp_ip ، "-")-1)
cend_ip = left (cstart_ip ، instrev (cstart_ip ، ".")-1)+".
Endif
IFIP2STR (CINPUT_IP)> = IP2STR (CSTART_IP) andIP2STR (CINPUT_IP) <= IP2STR (CEND_IP) ثم
cadcip = خطأ
exitfunction
Endif
elseifinstr (csingle_ip (i) ، "السماح") <> 0then "السماح
ctemp_ip = left (csingle_ip (i) ، instr (csingle_ip (i) ، ":")-1)
Ifinstr (ctemp_ip ، "*") <> 0then "هو نطاق واسع
CSTART_IP = يسار (ctemp_ip ، instr (ctemp_ip ، "*")-1)
Ifleft (Cinput_ip ، Len (cstart_ip)) = cstart_ipthen
cadcip = صحيح
Endif
Endif
ifinstr (ctemp_ip ، "-") = 0then
CSTART_IP = CTEMP_IP
cend_ip = ctemp_ip
آخر
CSTART_IP = يسار (ctemp_ip ، instr (ctemp_ip ، "-")-1)
cend_ip = left (cstart_ip ، instrev (cstart_ip ، ".")-1)+".
Endif
IFIP2STR (CINPUT_IP)> = IP2STR (CSTART_IP) andIP2STR (CINPUT_IP) <= IP2STR (CEND_IP) ثم
cadcip = صحيح
آخر
cadcip = خطأ
Endif
Endif
التالي
الوظيفية
'*********************************