DBlogin.asp
------------------
<%
Response.Buffer = False
IF Session("password-session") = "admin" Then
Response.Redirect("DBstart.asp")
end if
error = Request("error")
Session("login") = 0
If Request("mode") = "Check" Then
If Request.Form("username") = "brugernavn" then
If Request.Form("password") = "kodeord" then
'Login rigtigt!
Session("Login") = 1
Session("password-session") = "admin"
If not Request("redir") = "" then
Response.Redirect Request("redir")
else
Response.Redirect "DBstart.asp"
end if
else
error = "<font color=""red"">Forkert Brugernavn/Adgangskode</font>"
end if
else
error = "<font color=""red"">Forkert Brugernavn/Adgangskode</font>"
end if
else
end if
IF error = "" then
error = "Indtast brugernavn og adgangskode"
end if
%>
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#FFFFFF">
<link rel="stylesheet" href="style.css" type="text/css">
<center><img src="hss.jpg"><br><font face="Tahoma" size="2"><br>
<form method="POST" action="DBlogin.asp">
<input type="hidden" name="mode" VALUE="Check">
<table border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="150"><font face="Tahoma" size="2">Brugernavn:</font></td>
<td><font face="Tahoma" size="2"><input value="<%=Request.Form("username")%>" type="text" name="username" size="20" style="font-family: Verdana; font-size: 8 pt"></font></td>
</tr>
<tr>
<td width="150"><font face="Tahoma" size="2">Kodeord:</font></td>
<td><font face="Tahoma" size="2"><input type="password" name="password" size="20" style="font-family: Verdana; font-size: 8 pt"></font></td>
</tr>
<tr>
<td width="150" valign="top"><font face="Tahoma" size="1"><%=error%></td>
<td align="right"><font face="Tahoma" size="2"><input type="submit" value="Login" name="submit" style="font-family: Verdana; font-size: 8 pt"></font></td>
</tr>
</table>
<input type="hidden" value="<%=(Request("redir"))%>" name="redir">
</form>
</BODY>
</HTML>
----------------------
beskyttede sider:
----------------------
<%
IF not Session("Login") = "1" Then
strURL = "
http://" & Request.ServerVariables( "SERVER_NAME" ) & Request.Servervariables("SCRIPT_NAME") & "?" & Request.Servervariables("QUERY_STRING")
Response.Redirect "DBlogin.asp?redir=" & Server.URLencode(strURL)
end if
%>
---------------
Holder det ?