Indviklet login system med Access DB (100 point)
<%Response.Buffer = True
SET rs2 = Server.CreateObject(\"ADODB.Connection\")
rs2.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")
Sql = \"Select * FROM users WHERE username = \'\" & session(\"password-session\") & \"\'\"
sql3 = \"Select * FROM users WHERE godkendt = \'\" & session(\"password-session2\") & \"\'\"
set rs = rs2.Execute(SQL)
if request(\"Mode\") = \"logaf\" then
session.Abandon
Response.Redirect(\"brugermenu.asp\")
end if
If Request(\"mode\") = \"Check\" then
Sql2 = \"Select Count(*) as Found from users where (username = \'\" & Request(\"username\") & \"\') and (password =\'\" & Request(\"password\") & \"\')\"
Set Login = rs2.Execute(Sql2)
if Login(\"Found\") = 0 then
Session(\"login\") = 0
error = \"Du har skrevet en forkert Brugernavn eller Password prøv igen eller kontakt Webmasteren.\"
else
Session(\"Login\") = 1
Session(\"password-session\") = Request(\"username\")
Response.Redirect \"brugermenu.asp\"
end if
else
end if
%>
<html>
<head>
<link rel=\"stylesheet\" type=\"text/css\" href=\"dusk.css\">
</head>
<body>
<br><br><br><br><br>
<center>
<img src=\"img\\menu.gif\" alt=\"Menu\">
<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"forside.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"forside.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object> <object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"button2.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"button2.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object><object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"button3.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"button3.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object>
<% if Session(\"password-session\") = \"\" Then %>
<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"button4.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"button4.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object>
<% end if
if not Session(\"password-session\") = \"\" and Session(\"password-session2\") = \"False\" Then %>
<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"sms.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"sms.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object> <object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"icq.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"icq.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object> <object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"email.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"email.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object>
<% else
response.write(\"Notte\")
end if
IF Session(\"password-session\") = \"mortenlh\" Then %>
<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"brugere.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"brugere.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object> <object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"100\" height=\"22\">
<param name=movie value=\"adduser.swf\">
<param name=quality value=high>
<param name=\"BASE\" value=\".\">
<param name=\"BGCOLOR\" value=\"#999999\">
<embed src=\"adduser.swf\" base=\".\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"22\" bgcolor=\"#999999\">
</embed>
</object>
<% end if
IF Session(\"password-session\") = \"\" Then %>
<form name=\"Form\" method=\"POST\" action=\"brugermenu.asp\">
<input type=\"hidden\" name=\"mode\" VALUE=\"Check\">
<input type=\"text\" name=\"username\" size=10 style=\"font-family: Arial; font-size: 10pt; background-color: rgb(100,100,100); color: rgb(192,192,192); border: 1px solid rgb(192,192,192)\"><br>
<input type=\"password\" name=\"password\" size=10 style=\"font-family: Arial; font-size: 10pt; background-color: rgb(100,100,100); color: rgb(192,192,192); border: 1px solid rgb(192,192,192)\"><br>
<input type=\"submit\" value=\"Login\">
</form>
<script language=\"JavaScript\">
document.Form.username.focus();
</script>
<% end if
IF not Session(\"password-session\") = \"\" Then %>
<%=rs(\"rigtignavn\")%><br>
<form action=\"brugermenu.asp?mode=logaf\" method=\"post\">
<input type=\"submit\" value=\"Logaf\">
</form>
<% end if %>
</center>
</body>
</html>
<%
rs.Close
Set rs = Nothing
%>
Hvorfor virker ovenstående script ikke?
- Hvis man er gæst vises de første fire knapper
- Hvis man er bruger, men har false i godkendt får man kun de tre første knapper
- Hvis man er godkendt bruger (True) Ser man alle knapper på nær de to sidste
- Hvis man logger på som \"mortenlh\" (True) så ser man ALLE knapper inc. de to nederste!
