log off
Hvordan laver jeg en logoff.asp ud fra dette login?<%
\' Hvis der er blevet trykket på knappen \"Login\"
If Request.Form(\"Action\") = \"Login\" Then
\' Her forberedes de indtastede værdier til validering
strUID = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))
\' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
\' DSNLess forbindelse til databasen
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../db/9alogin.mdb\")
\' Opbygning af SQL streng
strSQL = \"SELECT UserID FROM Users\"&_
\" WHERE (Username = \'\" & strUID & \"\')\"&_
\" AND (Password = \'\" & strPWD & \"\')\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
\' Hvis brugeren fandtes i databasen
intUID = rs(\"UserID\")
Else
\' Hvis brugeren ikke fandtes i databasen
strERR = \"<b>Forkert login. \"
End If
\' Rydder op i vores connection objekt
myConn.Close
Set myConn = Nothing
If Len(intUID) Then
\' Hvis variablen intUID indeholder en værdi sættes denne i sessionen \"UserID\" og brugeren bliver sendt videre
Session(\"UserID\") = intUID
Response.Redirect(\"main_loggetin.asp\")
End If
Else
\' Hvis der ikke var angivet brugernavn og adgangskode
strErr = \"Du skal skrive både brugernavn og adgangskode\"
End If
If Len(strErr) > 0 Then
\' Her laves fejlmeddelsen om til rød skrift
strErr = \"<p><font color=red>\" & strErr & \"</font></p>\"
End If
End If
%>
<html><head>
<title>Login</title>
</head><body>
<form method=\"POST\" action=\"login.asp\">
<p><font size=\"2\" face=\"Verdana\"><u>Indtast brugernavn og adgangskode:</u></font></p><%=strErr%>
<table border=\"0\">
<tr>
<td width=\"50%\"><font size=\"2\" face=\"Verdana\">Brugernavn:</font></td>
<td width=\"50%\"><font size=\"2\" face=\"Verdana\"><input type=\"text\" name=\"Brugernavn\" size=\"20\"></font></td>
</tr>
<tr>
<td width=\"50%\"><font size=\"2\" face=\"Verdana\">Adgangskode:</font></td>
<td width=\"50%\"><font size=\"2\" face=\"Verdana\"><input type=\"password\" name=\"Adgangskode\" size=\"20\"></font></td>
</tr>
</table>
<p><font size=\"2\" face=\"Verdana\"><input type=\"submit\" value=\"Login\" name=\"Action\"></font></p>
</form>
</body></html>
