Sådan, så er der sat kommentarer på din kode :-D. Den er godt nok blevet en del længere, men nu kan du læse dig frem til hvad de forskellige ting betyder...
Du kan jo altid bare slette de kommentarer...
---------------------------Kode start---------------------------
<%
'Her siger jeg: Hvis der er noget data i en post-form og login-formen ikke er tom, så skal den begynde at indlæse dette.
if Request.ServerVariables("REQUEST_METHOD") = "POST" AND Request.form("login") <> "" then
'Her åbner jeg database forbindelsen (husk at erstatte ******** med din adgangskode til databasen, under PWD=)
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("log/database.mdb") & "; PWD=********"
Conn.Open DSN
'Her trimmer og erstatter vores qourt med ' og '' sammentidig med at form-dataerne bliver lagt i variabler.
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(request.form("feltBrugernavn"),"'","'" ))
strAdgangskode = Trim(Replace(request.form("feltAdgangskode"),"'","''" ))
'På de følgende to linjer (under kommentaren) bliver rs defineret, og vi spørger om der er et brugernavn og en
'adgangskode passer sammen med noget af vores data i databasen.
SQL = "SELECT * FROM [Brugere] where Brugernavn = '" & strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(SQL)
'Her spørger vi; Hvis brugernavn og adgangskoden ikke findes i databasen, så...
if rs.eof then
'Bliver brugeren sendt tilbage, med en lille besked i røven (LoginMessage)
response.redirect "Login.asp?LoginMessage=Brugernavn eller adgangskode var forkert"
'Her siger vi så; Ellers hvis ikke databasen er tom for det brugernavn og den adgangskode, så..
elseif Not (rs.BOF Or rs.EOF) Then
'Lav en session der hedder Login, og den skal være True.
Session("LoginOK") = "True"
'Her sætter vi en tid på til hvornår vores session skal udløbe. Her er den sat til 1200 minutter
Session.Timeout = 1200
'Og så skal du brugeren lige sendes til vagtplan.asp
response.redirect "vagtplan.asp"
'så afslutter vi lige vores bruger pjat ;-)
end if
'Og lukker databasen...
conn.close
set conn = nothing
'Her afslutter vi lige at vi har spurgt om der er blevet sendt et login forsøg (3. linje)
end if
'Så er vi klar til at spørge om der er blevet trykket på vores >log ud< knap...
if Request("login") = "out" then
'Hvis der er blevet trykket på knappen, så bliver ens session lukket.
Session.Abandon
'Og man bliver sendt videre til login siden, med en kommentar i røven...
response.redirect "Login.asp?LoginMessage=Du er nu logget ud!"
'Så slutter vi spørgsmålet om, om der blev trykket på logud knappen.
end if
%>
<!--
Så starter vi på vores htmlkode
-->
<html>
<head>
<title>Sneumann - Login/Logout Script</title>
</head>
<body bgcolor="#ffffff" text="#000000">
<font face="verdana" size="2">
<%
'Her definere vi at LoginMessage skal hente sin tekst fra querystringen (adresselinjen)
LoginMessage = Request.querystring("LoginMessage")
'Og hvis altså loginmessage er større eller mindre end ingenting, så skal den skrive det.
if LoginMessage <> "" Then
Response.Write(LoginMessage&"<br>")
end if
%>
<%
'Her starter vi med at spørge om vores session loginOk er større eller mindre end True (altså ingenting), og hvis ja,
' så skal den vise det som står på de efterfølgende linjer...
if Session("LoginOK") <> "True" Then
%>
<form name="LoginForm" action="Login.asp?login=in" method="post">
<b>Indtast brugernavn : </b><br>
<input type="text" name="feltBrugernavn" size="30">
<br><br>
<b>Indtast adgangskode : </b><br>
<input type="password" name="feltAdgangskode" size="30">
<br><br>
<input type="submit" name="login" value="Login">
</form>
<%
'Hvis session loginOK er true, så skal den skrive det på de efterfølgende linjer...
else
%>
<p><b>Velkommen</b></p>
Her har du mulighed for at logge ud.
<input type="button" onclick="location.href='Login.asp?login=out'" name="logout" value="Logout">
<%
'Så slutter vi med at spørge om noget som helst :P
end if
%>
</font>
</body>
</html>
---------------------------Kode slut--------------------------
