global.asa Demande d'aide

[arnaudpons]

Bonjour,

J'ai mis en place ce script qui a pour objectif d'empécher certains IP malvaillants (des copieurs) de visiter mon site. Le problème est qu'il n'y a une qu'une seule adresse IP au sein du script. J'ai essayé d'en insérer 2 voire plusieurs, malheureusement je n'y parviens pas.

Il y a quelque temps, une personne de ce forum m'avait expliqué comment faire... mais à défaut de démonstration, je n'ai pu y parvenir.

Voici donc le script ci dessous. Si quelqu'un pouvait le compléter en y insérant 2 ou 3 autres IP, cela me serait d'une très grande aide

merci par avance.

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Session_OnStart
If InStr(request.ServerVariables("REMOTE_ADDR"),"121.35.120.112") > 0 then
Session.Abandon
Response.redirect("http://www.163.com")
End If
End Sub

</script>


Cordialement,

Arnaud P.
www.gemperles.com

 

[Sir Dipp]

Salut,

Il manque quelques trucs dans ton code, erreur de syntaxe, sninon la forme est juste :

Voici le code corrigé, met les valeurs que tu veux dedans !

<%
Sub Session_OnStart
	If Request.ServerVariables("REMOTE_ADDR") = "" Then
		Session.Abandon();
		Response.Redirect("");
	End If
End Sub
%>

A+

 

[arnaudpons]

Bonjour,

Merci pour votre réponse. J'ai complété en inscrivant deux IP. Je les ai séparé d'une virgule. Est ce que c'est bon comme ça? MERCI

<%
Sub Session_OnStart
If Request.ServerVariables("REMOTE_ADDR") = "121.35.120.112, 121.35.120.115" Then
Session.Abandon();
Response.Redirect("http://www.163.com");
End If
End Sub
%>

 

[Sir Dipp]

Si tu veux ajouté plusieurs adresses e-mails tu devrais faire comme ceci :

<%
Sub Session_OnStart
	If Request.ServerVariables("REMOTE_ADDR") = "" Or Request.ServerVariables("REMOTE_ADDR") = "" Then
		Session.Abandon();
		Response.Redirect("");
	End If
End Sub
%>

Mais pour une mise à jour simple tu peux faire ceci :

<%
Dim sIPsToBan = "127.0.0.1,127.0.0.2,127.0.0.3";
Dim sIPs = Split(sIPsToBan, ",");
Sub Session_OnStart
	For Dim I = 0 To UBound(sIPs)
		If Request.ServerVariables("REMOTE_ADDR") = sIPs(I) Then
			Session.Abandon();
			Response.Redirect("");
		End If
	Next
End Sub
%>

 

[arnaudpons]

Merci, je vais expérimenter cela...