Sitenize erişmesini istemediğiniz IP numaralarını bir dizi içine alarak uyarı sayfasına yönlendiren fonksiyon

<%
' IP Engelleme fonksiyonu
' Kod içindeki Ip numaralarını düzenleyerek engellenecek IP numaralarını özelleştirebilirsiniz

Function IpEngelle()

     '// Engelleyeceğiniz IP numarası sayısını yazınız
     Dim Engelle(3) 

     Engelle(0) = "127.0.0.1" 
     Engelle(1) = "218.11.15.212" 
     Engelle(2) = "60.0.201.209"

     '// 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
%>