Indonesia
Saya melihat beberapa fungsi pembatasan IP dan menganggapnya terlalu rumit. Jadi, saya mencoba menulisnya, yang relatif sederhana. Netizen silakan merujuk pada panduan ini. Terima kasih! ~
Kotak salinan kode <% 'Dapatkan alamat pengunjung ip=Request.ServerVariables("REMOTE_ADDR") 'Kisaran alamat IP yang diizinkan adalah 10.0.0.0~10.68.63.255allowip1="10.0.0.0"allowip2="10.68.10.71" respon.tulis checkip ( ip,allowip1,allowip2) fungsi checkip(ip,allowip1,allowip2) redup periksa(4) checkip=false ipstr=split(ip,".") izinkan1=split(allowip1,".") izinkan2=split(allowip2, " .") if cint(allow1(0))>cint(allow2(0)) lalu 'Menilai apakah segmen alamat IP merupakan respons yang sah. tulis "Segmen alamat IP salah!" fungsi keluar berakhir jika untuk i=0 hingga ubound(ipstr ) if cint(allow1(i))<cint(allow2(i)) lalu jika cint(allow1(i))=cint(ipstr(i)) lalu check(i)=true checkip=true keluar untuk yang lain jika cint( ipstr(i))<cint(allow2(i)) lalu centang(i)=true checkip=true keluar untuk yang lain jika cint(ipstr(i))>cint(allow2(i)) lalu centang(i) =false checkip =false exit for else check(i)=true checkip=true end jika berakhir jika berakhir jika else if cint(allow1(i))>cint(ipstr(i)) atau cint(allow1(i))<cint (ipstr( i)) lalu check(i)=false checkip=false if i<>ubound(ipstr) lalu keluar untuk mengakhiri jika lagi check(i)=true end jika berakhir jika berikutnya if (check(0)=true dan check(1 )=true dan check(2)=true dan check(3)=false) dan (cint(allow2(2))>cint(ipstr(2))) lalu checkip=true end jika fungsi akhir %>
