Sitenize erişmesini istemediğiniz IP numaralarını bir dizi içine alarak o ziyaretçileri istediğimiz bir sayfaya yönlendirebiliriz.
Bu işlem için aşağıdaki fonksiyonu kullanıyoruz.
Kod:
<% '//IP Engelleme fonksiyonu '//Aşağıdaki IP numaralarını ve sayısını düzenleyerek engellenecek IP numaralarını özelleştirebilirsiniz. Function IpEngelle() '// Engelleyeceğimiz IP numarası sayısını yazıyoruz Dim Engelle(4) Engelle(0) = "113.2.7.254" Engelle(1) = "324.23.51.253" Engelle(2) = "45.0.311.255" Engelle(3) = "212.21.250.142" '// Ziyaretçinin IP numarası alınıyor IPNo = Request.ServerVariables("REMOTE_ADDR") For i = 0 to UBound(Engelle) If IPNo = Engelle(i) Then Response.Redirect "yasak.asp" End If Next End Function %>
Yukarıda fonksiyon içerisindeki IP'ler ziyaretçinin IP'si ile karşılaştırılıyor ve ziyaretçi eğer engellenen IP sahibi ise yasak.asp sayfasına yönlendiriliyor...
Bu işlem için aşağıdaki fonksiyonu kullanıyoruz.
Kod:
<% '//IP Engelleme fonksiyonu '//Aşağıdaki IP numaralarını ve sayısını düzenleyerek engellenecek IP numaralarını özelleştirebilirsiniz. Function IpEngelle() '// Engelleyeceğimiz IP numarası sayısını yazıyoruz Dim Engelle(4) Engelle(0) = "113.2.7.254" Engelle(1) = "324.23.51.253" Engelle(2) = "45.0.311.255" Engelle(3) = "212.21.250.142" '// Ziyaretçinin IP numarası alınıyor IPNo = Request.ServerVariables("REMOTE_ADDR") For i = 0 to UBound(Engelle) If IPNo = Engelle(i) Then Response.Redirect "yasak.asp" End If Next End Function %>
Yukarıda fonksiyon içerisindeki IP'ler ziyaretçinin IP'si ile karşılaştırılıyor ve ziyaretçi eğer engellenen IP sahibi ise yasak.asp sayfasına yönlendiriliyor...
