Una 'Ban List'

[jan267]

Ciao a tutti,
avolte puo` capitare di voler banner qualcuno dal proprio sito... fino ad oggi non sapevate come fare? Ecco un modo...

<%
Dim UserIP
Dim IPList(2)
IPList(0) = "127.0.0.1"     'LOCALHOST
IPList(1) = "192.0.34.162"  'IANA.ORG
IPList(2) = "193.0.0.203"   'RIPE.NET
UserIP = Request.ServerVariables("REMOTE_ADDR")

For i = 0 To ubound(IPList)
  If IPList(i) = UserIP Then 
    Response.Write "Sei stato bannato!"
    Response.End
  End If
Next	
%>

Gli indirizzi IP li dovete cambiare...

Bye :byebye:

 

[maxbossi]

Uno scriptino davvero interessante... cosa ne dici se ci scrivo su un bel tutorial e lo pubblichiamo? Fammi sapere.

 

[jan267]

Grazie!
Sono daccordissimo...

Bye :byebye:

 

[maxbossi]

Ecco il link al tutorial:
https://www.mrw.it/tutorial/tutorial.asp?cat=ASP&id=85

 

[grottafelix]

Jan ritorni all'asp???:fonzie:

 

[jan267]

Io non ho mai abbandonato l`ASP!
Solamente mi sto dedicando un po` di piu` a PHP+MySQL.. semplice

Bye :byebye: