"Olav M. Noksagt" <noksagt_fjerndette@hotmail.com> escribió en el
mensaje news:BA8D7726.9C1E%noksagt_fjerndette@hotmail.com...
> Hej Lars
> Alle lærere skal have det samme - alle elever skal have det samme
osv. Altså
> i dette eksempel 3 forskellige grupper med hver deres password - 3
ialt
> Gerne med nem mulighed for at udvide antallet af grupper!
Fint nok, det er ikke så kompliceret. Jeg vil dog anbefale dig at du
kigger lidt på
www.html.dk og læser lidt om ASP. De har en
fremragende tutorials og når du i fremtiden vil ændre/udvide dit
system bliver det meget nemmere for dig
Vi fortsætter som før men omskriver lige login.asp til følgende (pas
på nogle af linierne kan knække når du læser dem):
<%@ Language=VBScript %>
<% option explicit %>
<%
'beskeden der skal vises på siden
dim besked
besked="Du skal indtaste kodeordet her:"
'Hvis der er blevet sendt en formular
if Request.Form.Count > 0 then
'en almindelig tællevariabel
dim i
dim loggetInd
loggetInd = false
i = 1
'vi erklærer 3 kodeord
dim kodeOrd(3)
'vi erklærer 3 brugergrupper
dim grupper(3)
'Hvortil skal brugeren sendes efter at have indtastet koden?
dim hvortil(3)
hvortil(1)="laerer.asp"
hvortil(2)="elever.asp"
hvortil(3)="andre.asp"
grupper(1)="laerer"
grupper(2)="elever"
grupper(3)="andre"
'kodeordet for lærere er pippi
kodeOrd(1)="pippi"
'kodeordet for elever er anni
kodeOrd(2)="anni"
'kodeordet for andre brugere er tommy
kodeOrd(3)="tommy"
do while not loggetInd and i <= ubound(kodeOrd)
'lcase bruges for at omdanne det indsendte kodeord til små
'bogstaver, på den måde undgår man at siden er versalfølsom.
if lcase(Request.Form("indtastetKode")) = kodeord(i) then
'en sessionsvariabel gemmer hvem der er logget ind
session.Contents("loggetInd")=grupper(i)
'brugeren sendes videre til den hemmelige side defineret i
variblen "hvortil"
'Response.Redirect(hvortil(i))
loggetInd =true
end if
i = i + 1
loop
'Beskeden ændres da koden ikke er korrekt
besked="Kodeordet er ikke korrekt, prøv igen"
end if
%>
<html>
<head>
<title>Min login side</title>
</head>
<body>
<span><%=besked%></span><br />
<form method="post"
action="<%=Request.ServerVariables("script_name")%>">
<input type="password" name="indtastetKode" /><br />
<input type="submit" name="minSubmitKnap" value="Log på" />
</form>
</body>
</html>
Hvis du vil tilføje brugere skal du blot udvide variablerne
hvortil(), Grupper() og kodeOrd().
På din hemmelige læreside skriver du blot i toppen:
<%
'sammenligner med den værdi der blev gemt i variablen grupper().
if session.Contents("loggetInd") <> "laerer" then
response.redirect("login.asp")
end if
%>
> Tak for svarene - det er fabelagtigt med denne hjælp!
Jamen det var så lidt, håber du kan bruge det til noget.
Med venlig hilsen
Lars Hoffmann