تصفية وتقييد وظائف الملكية الفكرية في آسيا والمحيط الهادئ

لقد نظرت إلى بعض وظائف تقييد IP ووجدتها معقدة للغاية. لذا، حاولت أن أكتب واحدة، وهي بسيطة نسبيًا. يرجى من مستخدمي الإنترنت الرجوع إلى هذا الدليل. شكرًا! ~

صندوق نسخ الكود
<% 'الحصول على عنوان الزائر ip=Request.ServerVariables("REMOTE_ADDR") 'نطاق عنوان IP المسموح به هو 10.0.0.0~10.68.63.255allowip1="10.0.0.0"allowip2="10.68.10.71" Response.write checkip ( ip,allowip1,allowip2) وظيفة checkip(ip,allowip1,allowip2) الاختيار الخافت(4) checkip=false ipstr=split(ip,".")allow1=split(allowip1,".")allow2=split(allowip2, " .") if cint(allow1(0))>cint(allow2(0)) ثم "الحكم على ما إذا كان مقطع عنوان IP استجابة قانونية أم لا. اكتب "مقطع عنوان IP خاطئ!" نهاية الوظيفة إذا كان i=0 إلى ubound(ipstr ) إذا cint(allow1(i))<cint(allow2(i)) ثم إذا cint(allow1(i))=cint(ipstr(i)) ثم check(i)=true checkip=true exit for else إذا كان cint( ipstr(i))<cint(allow2(i)) ثم تحقق (i)=true checkip=خروج صحيح لـ else إذا cint(ipstr(i))>cint(allow2(i)) ثم تحقق (i) = checkip false = خروج خاطئ لـ else check(i)= true checkip= true end if end if end if else if cint(allow1(i))>cint(ipstr(i)) أو cint(allow1(i))<cint (ipstr( i)) ثم check(i)=false checkip=false إذا i<>ubound(ipstr) ثم اخرج للنهاية إذا تحقق آخر (i)=true end إذا انتهى إذا كان التالي إذا (check(0)=true و check(1 )=true and check(2)=true and check(3)=false) و (cint(allow2(2))>cint(ipstr(2))) ثم checkip=true end إذا كانت الدالة النهائية %>