Hjælp til Login script

Nedenstående eksempel er med hardcodede brugeroplysninger, men princippet er det samme om du så vælger at koble en database på systemet.

<%
arrUsr = Array( _
  Array("bruger1", "kodeord1", "basisurl1"), _
  Array("bruger2", "kodeord2", "basisurl2"), _
  Array("bruger3", "kodeord3", "basisurl3"), _
  Array("bruger4", "kodeord4", "basisurl4") _
)

if Request.ServerVariables("REQUEST_METHOD")) = "POST" then
  ' Siden er kaldt med et post, så formularen processeres...
  brugernavn = Request.Form("brugernavn") & ""
  kodeord = Request.Form("kodeord") & ""
  if len(brugernavn) > 0 and len(kodeord) > 0 then
    for each usr in arrUsr
      ' Undersøg om den aktuelle bruger er den som logger på...
      ' Brugernavn er case insensitive og kodeord er case sensitive
      if strComp(usr(0), brugernavn, vbTextCompare) = 0 _
        and strComp(usr(1), kodeord, vbBinaryCompare) = 0 _
      then
        ' gem oplysninger om brugeren i session og send brugeren
        ' til sin startside...
        session("brugernavn") = brugernavn
        session("autoriseret") = true

        ' Send brugeren til sin startside...
        Response.Redirect usr(2)
      end if
    next
    besked = "Brugernavn og/eller kodeord er forkert"
  else
    besked = "Brugernavn og/eller kodeord er forkert"
  end if
end if
%>
<form action="" method="post">
  Brugernavn:<br>
  <input type="text" name="brugernavn" value="<%=Request.Form("brugernavn")%>" /><br>
  Adgangskode:<br>
  <input type="password" name="kodeord" /><br>
  <input type="submit" value="Log på" /><br><br>
  <%=besked%>
</form>


Sider som kræver at brugeren er logget ind, skal tjekke om session("autoriseret") er sat til true og hvis dette ikke er tilfældet, skal de sendes til loginsiden. Eksempelvis:

<%
if session("autoriseret") <> true then
  Response.Redirect "/login.asp"
end if
%>
<p>Resten af sidens indhold kommer herunder</p>

Tak for hjælpen, men jeg gør nok et eller andet galt.

Jeg får de 2 bokse frem for brugernavn og password, men i boksen for brugernavnet står der <%=Request.Form( og efter boksen står der " size="20" />

Kan du sige mig hvad jeg har gjort galt?

Der skal gøres flere ting. Du skal bl.a.

1. kalde filen for noget der ender på .asp, f.eks. login.asp

2. placere filen på en webserver og kalde siden igennem webserveren, f.eks. http://localhost/login.asp for at det fungerer

2a. sørge for at webserveren kan forstå og udføre ASP-filer

Tak for din hjælp Softspot

Jeg har endnu ikke fået det til at virke, har siddet et par timer nu..... :-(

Kom med et svar og point er dine, så må jeg prøve igen en anden dag hvor jeg har mere tid og ikke er ophængt af arbejde

Du kan også bare vende tilbage når du har mere tid, så kan vi prøve at tage den derfra. Jeg fornemmer det også er noget med opsætning af miljø der driller, så det ikke kun er selve programmeringsdelen der mangler... eller er det forkert?

Jeg tror du er inde på det helt rigtige, og jeg vil meget gerne benytte mig af dit tilbud, men jeg har nok ikke tid før sidst på ugen eller i starten af næste uge.

Hvis du vil have dine point nu, er det helt ok

Mange tak for din hjælp

Nej, jeg har ikke travlt med at få de point :-)

Lad os nu finde en løsning på dit problem, så kan vi handle af bagefter ;-)

Du vender bare tilbage i denne tråd når du er klar, så håber jeg at jeg får øje på dit kald... :-)

Hej Softspot

Beklager den lange tid, havde glemt det :-(

Jeg skylder dig point i denne sag, jeg har endnu ikke haft tid til at kigge på det, så jeg lukker spørgsmålet når du har lagt et åbent svar

OK, hvis du insisterer :-)

Det manglede bare :-)

Tak for point :-)