ASP "REMOTE_ADDR" frage

matthias · 30.12.2004, 21:27

Ich habe da einen asp script, den ich gerne auf mehrere ip's anwenden würde. komm aber nicht weiter wie das geht. so sieht es aus:

<%
if request.servervariables("REMOTE_ADDR") = "206.111.111.111" then
%>

<%
else
%>

es geht nun darum dass ich oben mehrere ip's einfügen will (ca. 10). klappt aber irgendwie nicht. kann mir jemand weiterhelfen?

danke.

Dennis The Menace · 31.12.2004, 00:15

Also ich hab mit ASP nicht viel am hut, nur - ich würde (zumindest in jeder anderen Programmiersprache dieser Welt^^) sämtliche gültigen IP Adressen in einem Array speichern und dann mit einer Funktion in_Array arbeiten.

Code:

Function in_array(element,tableau)
 For i=0 To Ubound(tableau) 
  If trim(tableau(i)) = trim(element) Then 
   in_array = True
   Exit Function
  Else 
   in_array = False
  End if  
 Next
End Function

matthias · 31.12.2004, 00:37

danke habs nun vorübergehend anders gelöst.

<%
if request.servervariables("REMOTE_ADDR") = "206.11.111.111" _
or request.servervariables("REMOTE_ADDR") = "206.11.111.112" _
then%>

etc.

Judi · 31.12.2004, 12:37

Eine Alternative zu Deiner Abfrage könnte das Dictionary-Objekt sein. Weil, eine solche Abfrage über 10 IPs ist etwas ungewöhnlich.

Auch in ASP gibts sowas wie ein assoziatives Array, dies nennt sich Dictionary-Objekt. Sprich, ein Schlüsselwert wird verwendet um einen zugewiesenen Wert aufzufinden.

bsp. (wen es interessiert)

Code:

<%
dim IP
IP = request.servervariables("REMOTE_ADDR")
Set myAdress = CreateObject("Scripting.Dictionary")
	myAdress.Add "123.123.444", "seite1.asp"
	myAdress.Add "234.444.555", "seite2.asp"
		If myAdress.Exists(IP) Then
		server.execute myAdress.Item(IP)
			else
		server.execute "default.asp"
		end if
%>