IP Engelleme Fonksiyonu

Kayıt
7 Haziran 2008
Mesaj
533
Tepki
6
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...
 
Yukarı Alt