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>
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.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.