ip system

http://www.eksperten.dk/spm/441009

Ja det er noget linge det men det skal bare være om vendt sår vis man findes på en liste sår skal man kunne komme ind og vis man ikke står på en liste sår blir man svidt ud

<%
'====================
'HVILKE IPADRESSER MÅ 
'KOMME IND HER!!
'====================
Dim arrIP, strIP, i
strIP = "192.63.187.9,192.63.187.10,192.63.187.240"

arrIP = Split(strIP,",")

For i = 0 To Ubound(arrIP)
    If arrIP(i) = Request.ServerVariables("REMOTE_ADDR") Then
        Response.write "velkommen"
    Else   
        Response.write "ingen adgang"
    End If
Next


%>

Ja det er det men hvor dan får jeg dette til at du

<%
'====================
'HVILKE IPADRESSER MÅ 
'KOMME IND HER!!
'====================
Dim arrIP, strIP, i
strIP = "192.63.187.9,192.63.187.10,192.63.187.240"

arrIP = Split(strIP,",")

For i = 0 To Ubound(arrIP)
    If arrIP(i) = Request.ServerVariables("REMOTE_ADDR") Then
        Response.write "velkommen"
    Else   
        Response.write "<meta http-equiv="refresh" content="5; url=http://www.DINSIDE.com"> "
    End If
Next


%>

<%
'====================
'HVILKE IPADRESSER MÅ 
'KOMME IND HER!!
'====================
Dim arrIP, strIP, i
strIP = "192.63.187.9,192.63.187.10,192.63.187.240"

arrIP = Split(strIP,",")

For i = 0 To Ubound(arrIP)
    If arrIP(i) = Request.ServerVariables("REMOTE_ADDR") Then
        'Hvis brugeren IKKE er godkendt
        Response.redirect("http://www.farvel.dk")
    Else 
        'Hvis brugeren er godkendt
        Response.redirect("http://www.DINSIDE.com")
    End If
Next


%>

<%
'====================
'HVILKE IPADRESSER MÅ 
'KOMME IND HER!!
'====================
Dim arrIP, strIP, i
strIP = "192.63.187.9,192.63.187.10,192.63.187.240"

arrIP = Split(strIP,",")

For i = 0 To Ubound(arrIP)
    If arrIP(i) = Request.ServerVariables("REMOTE_ADDR") Then
        'Hvis brugeren er godkendt
        Response.redirect("http://www.DINSIDE.com")
    Else 
        'Hvis brugeren IKKE er godkendt
        Response.redirect("http://www.farvel.dk")
    End If
Next


%>

Ja det begynder at tage form men der er en enkelt ting mere

<%
'====================
'HVILKE IPADRESSER MÅ 
'KOMME IND HER!!
'====================
Dim arrIP, strIP, i
strIP = "192.63.187.9,192.63.187.10,192.63.187.240"

arrIP = Split(strIP,",")

For i = 0 To Ubound(arrIP)
    If arrIP(i) = Request.ServerVariables("REMOTE_ADDR") Then
        'Hvis brugeren er godkendt
        Response.redirect("Her skal der bare stå velkommen")
    Else 
        'Hvis brugeren IKKE er godkendt
        Response.redirect("http://www.farvel.dk")
    End If
Next


%>

Ja det begynder at tage form men der er en enkelt ting mere

<%
'====================
'HVILKE IPADRESSER MÅ 
'KOMME IND HER!!
'====================
Dim arrIP, strIP, i
strIP = "192.63.187.9,192.63.187.10,192.63.187.240"

arrIP = Split(strIP,",")

For i = 0 To Ubound(arrIP)
    If arrIP(i) = Request.ServerVariables("REMOTE_ADDR") Then
        'Hvis brugeren er godkendt
        Response.write("Her skal der bare stå velkommen")
    Else 
        'Hvis brugeren IKKE er godkendt
        Response.redirect("http://www.farvel.dk")
    End If
Next


%>

Der er en fejl i din kode jeg blir smidt over på www.farvel.dk og jeg har tilføjet mig på listen. http://guf4you.dk/test/test.asp

prøv lige at smid din strIP variabel her.. 

altså

strIP = "192.63.187.9,192.63.187.10,192.63.187.240"

bare som den ser ud i din kode

/Mads

Jeg har fonet en løsning

<%
' ****************************************************************
' Dette script kan benyttes gratis, frit, og uden at indhente tilladelse først
' - dog må selve kildekoden ikke distribueres på andre sites end HTML.dk
' Kontakt info@html.dk hvis du er i tvivl
' ****************************************************************

' Den besøgendes IP-adresse registreres
strIP = request.servervariables("REMOTE_ADDR")

' Her angives det, hvilke IP-adresser der er tilladt adgang
' (xxx.xxx.xxx.xxx erstattes med IP-adresser)
strAllow = strAllow & "80.167.218.216" & ";"
strAllow = strAllow & "xxx.xxx.xxx.xxx" & ";"
strAllow = strAllow & "xxx.xxx.xxx.xxx" & ";"

' Vi laver et array med de tilladte IP-adresser
arrAllow = split(strAllow,";")

' Vi checker om den besøgendes IP-adresse er med i vores IP-array
for a = 0 to UBound(arrAllow)
  if strIP = arrAllow(a) then
    strIPOK = "true"
  end if
next

' Hvis IP-adressen er OK skrives dette til skærmen, ellers nægtes adgang
' Funktionen kan om nødvendigt ændres, så kun udelukkede IP-adresser afvises
if strIPOK <> "true" then
        Response.redirect("http://www.farvel.dk")
else
  response.write strIP & " OK :-)"
end if

%>

men i for jeres point alige vælg

Tjek evt. her om det er den rigtige ip du har skrevet ind: http://www.myip.dk/