IP numarası engelleme

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

 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ip numarası engelleme