|
IP blocker
Hiermee kan je ongewenste bezoekers weren uit bijvoorbeeld je gastenboek. De IP nummer die erin staan zijn ter voorbeeld. Heb je er meer dan 5 nodig dan verander je al de 5's in resp. 6, 7, 8, enz.
O ja, ik heb dit niet geschreven, alleen gevonden en het werkt perfect !!
Plak de code bovenin de pagina die het posten verzorgd naar de database, en maak een pagina aan die je banned.asp noemt.
Daarop kan je bijvoorbeeld zetten:
U bent geblokkeerd voor dit gedeelte van de site. (Omdat je zo zit te kl*ten idioot!!) LOL
Een abuse melding is verstuurd naar uw ISP.
<%
Dim IP_truth
Dim NumberOf
Dim I
Dim Ip_array(5)
IP_truth = request.servervariables("REMOTE_ADDR")
NumberOf = 5
Ip_array(0) = "127.0.0.1"
Ip_array(1) = "203.45.142.41"
Ip_array(3) = "12.232.31.166"
Ip_array(4) = "12.245.59.175"
Ip_array(5) = "149.99.116.62"
For I = 0 to NumberOf
If Ip_array(I) = IP_truth then
Response.Redirect "banned.asp"
End If
next
%>
download het script
Reacties van leden
|
