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