Just nu i M3-nätverket
Gå till innehåll

Javascript sökes


Mats.

Rekommendera Poster

Det skall finnas script som känner av när en surfare, med en specifik ip-adress, besöker en sida att denne automatiskt hamnar på en annan sida.

 

Om t.ex. en surfare besöker www.idg.se med adressen 161.114.19.252 så hamnar surfaren istället på eforum.idg.se.

 

 

/Mats

 

Länk till kommentar
Dela på andra webbplatser

Tack för det snabba feedbacken.

 

Du menar att det kan se ut så här :

 

<script language="JavaScript" type="text/javascript">

<!--

if IP = 161.114.19.252 then

response.redirect ("http://www.idg.se")

else

response.redirect ("http://www.efourm.idg.se")

end if

//-->

</script>

 

Jag har några frågor på detta.

 

Skall scriptet vara innanför HEAD eller BODY ?

 

Går det att köra i en HTML-sida eller måste det vara ASP ?

 

Går det att använda fler ip-adresser ?

 

Vad menar du med DB ?

 

/Mats

 

Länk till kommentar
Dela på andra webbplatser

i ASP gör du såhär:

 

 

<%

If Request.ServerVariables("REMOTE_ADDR") = "192.168.1.1" Then

Response.Redirect("http://www.disney.com/")

Else

Response.Redirect("http://www.idg.se/")

End If

%>

 

om det går att få fram ip-adressen från javascript är tveksamt så jag tror inte det går med javascript...

 

//Telle

 

Länk till kommentar
Dela på andra webbplatser

Det fungerar alldeles utmärkt, tack.

 

Om jag vill använda fler ip-adresser, hur skall det se ut då ?

 

 

/Mats

 

 

Länk till kommentar
Dela på andra webbplatser

antingen såhär:

sIP = Request.ServerVariables("REMOTE_ADDR")
If sIP = "192.168.0.1" Or sIP = "212.75.99.3" Or sIP = "..."

men det blir bökigt om det är många adresser.

Eller så gör du en funktion som matchar en parameter mot en array med IP-adresser:

Dim vListedIp()
vListedIp(0) = "197.25.44.7"
vListedIp(1) = "1.2.3.4"
vListedIp(2) = "5.6.7.8"

sIP = Request.ServerVariables("REMOTE_ADDR")

If IslistedIP(sIP) Then
   Response.Redirect...
Else
   Response.Redirect...
End If

Function IslistedIP(sIP)
   For i = 0 To UBound(vListedIp)
       If sIP = vListedIp(i) Then
           IsListedIP = True
           Exit Function
       End If
   Next
   IsListedIP = False
End Function

 

har inte testat fall det funkar men du hajjar idén?

 

//Telle

 

Länk till kommentar
Dela på andra webbplatser

Jag glömde nämna det att olika adresser skall hamna på olika ställen. Kan jag göra så här istället ?

 

<%

If Request.ServerVariables("REMOTE_ADDR") = "192.168.1.1" Then

Response.Redirect("http://www.disney.com/")

("REMOTE_ADDR") = "161.114.19.252" Then

Response.Redirect("http://www.gronalund.com/")

Else

Response.Redirect("http://www.idg.se/")

End If

%>

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...