IP Login script søges

Kan et user/pass script ikke omskrives til at fungere med ip?

- Rasmus!

IPAddress = Request.ServerVariables("REMOTE_ADDR")

skal det kører via en database eller vil du bare taste ip adresse ind i din chack fil?

Det skal køre via databasen

set rs = server.createObject("adodb.connection")
rs.open dindbforbindelse
sql = "select * from tabel where ip = '"&request.servervariables("REMOTE_ADDR")&"'"
set rs = rs.execute(sql)

if rs.eof then
'ikke accepteret
end if

virkede det ?

sorry dudes, men har først tid til at se på det i morgen..:( Work you know

' 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 & "xxx.xxx.xxx.xxx" & ";"
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.write strIP & " NO :-("
else
  response.write strIP & " OK :-)"
end if

%>

Niks det virkede ikke :( Måtte selv i gang og fik lidt hjælp fra firmaets asp haj...

Men du får 50 for dit forsøg...

Takker for points..
..Ellebæk!