<%
If Not(Session("Checked")) then
'Henter login info fra cookie på user computer.
Username = Request.Cookies("LoginInfo")("Username")
Password = Request.Cookies("LoginInfo")("Password")
'Aabner databasen
Set dbCon = Server.CreateObject("ADODB.Connection")
VPath = Request.ServerVariables("PATH_INFO")
VPath = Left(VPath, InStrRev(VPath, "/"))
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath(VPath & "SecurityDB.mdb")
dbCon.open DSN
'Slår op i databasen efter brugernavnet fra cookien
SQL = "SELECT * FROM TblPasswords WHERE Username='" & Username & "'"
Set dbRs = dbCon.Execute(SQL)
if dbRs.BOF AND dbRs.EOF then
'Brugernavnet blev ikke fundet i databasen
ErrorMessage = "<i>Indtast brugernavn og adgangskode</i>"
Rejected = True
elseif not dbRs("Password") = password then
'Brugernavnet var der, men password forkert
ErrorMessage = "<i>You've typed a wrong password.</i>"
Rejected = True
else
'Alt var fint, gemmer informationen i variabler, og viser almindelig side
RealName = dbRs("RealName")
username = dbRs("Username")
Password = dbRs("Password")
Rejected = False
Session("Checked") = True
response.Write "<script type='text/javascript'>top.location.reload(true);</script>"
end if
If Rejected Then 'Viser Login side
%>
<html>
<head>
<title>Please login...</title>
</head>
<body>
<h2>login</h2>
<p><% = ErrorMessage %></p>
<form method="POST" action="<% = VPath %>login_script.asp">
<table border="5" cellpadding="7" cellspacing="0" bgcolor="#8080FF" bordercolor="#8000FF" bordercolorlight="#9191FF" bordercolordark="#400080">
<tr>
<td><table border="0" cellpadding="3" cellspacing="0">
<tr>
<td align="right">Brugernavn:</td>
<td><input type="username" name="username" size="10"></td>
</tr>
<tr>
<td align="right">Password:</td>
<td><input type="password" name="password" size="10"></td>
</tr>
<tr>
<td colspan="2" VAlign="Bottom" Align="Right"><input type="submit" value="Login"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
<%
Response.End 'Stop afvikling af script
end if
end if
'Viser almindelig side
%>
<html>
<head>
<script language=\"javascript\">
parent.start.htm.location.reload()
</script>
</head>
<body>
<A Href="logout_script.asp">Logout</A>
</body>
</html>
sådan ser min log in side ud. i næste frame skal der så være nogle specifikke links som man har hentet ud via denne bruger.
Ny bruger
Nybegynder
Opret
Preview
