<%
Dim
ipno
Toplam
'Burada array listesini tanimliyoruz (unutmayin ki 0 = 1 degerini alir, 1 = 2 değerini alir)
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
Next
%>