ASP IP Banlama

<DIV id=1887><PRE><%
Dim ipno
Dim Toplam

`Burada array listesini tanimliyoruz (unutmayin ki 0 = 1 degerini alir, 1 = 2 değerini alir)
Dim Ip_array(5)

`Kulanicinin ip adresini aliyoruz
ipno = Request.ServerVariables("REMOTE_ADDR")

`Toplam array sayisini belirtiyoruz
Toplam = 5

`Bloke edilen ip numaralari (Databasetende yapabilirsiniz)
Ip_array(0) = "127.0.0.1"
Ip_array(1) = "202.56142.41"
Ip_array(3) = "12.232.31.166"
Ip_array(4) = "12.245.59.175"
Ip_array(5) = "149.99.116.62"

`Döngüye giriyoruz
For I = 0 to Toplam
If Ip_array(I) = ipno Then

`Eğer giren kullanicinin ip’si ban listesinde mevcut ise banlanmissiniz diye bir sayfa gosteriyoruz
Response.Redirect "ban.asp"

End If
Next
%>