IP adresi kontrol ve blok etme

<% 
' *** IP adresini kontrol eden fonksiyon
Function ipkontrolet(ipadres, bloklu)

  ipkontrolet = 0
  blokluipsayisi = 4
  for i=0 to blokluipsayisi-1
  if bloklu(i) = ipadres then
    ipkontrolet = 1
   end if
  Next
  
End Function


Dim gelenip ' *** Kullanıcının IP adresi tutuluyor.
Dim blokluip(4) '** istenmeyen IP ler tutuluyor.

' *** Bloklanacak olan ip değerlerin giriliyor
blokluip(0)="192.128.1.1"
blokluip(1)="66.255.255.255"
blokluip(2)="226.0.0.1"
blokluip(3)="102.10.1.1"

' *** Kullanıcını ip adresi bulunuyor.
gelenip=Request.ServerVariables("REMOTE_ADDR")

if ipkontrolet (gelenip,blokluip) then
   ' ** Bloklu bir ip geldi. Yönlendirme yapılıyor.
   Response.Redirect("index2.asp")
end if

' *** IP adresinde bir problem yoksa diğer işlemler yapılıyor..
......
......
......
 %>