<%
mode = Request("mode")
Response.Buffer = True
%>
<html>
<head>
<title>Demo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<p align="center"> </p>
<p align="center"><br>
</p>
<form method=post action=login.asp?mode=login>
<div align="center">
<table width="248" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333">
<tr bordercolor="#FFFFFF">
<td colspan="2" class="skrift"> <% if mode = "" then %> <font size="2"><strong>Advarsel !</strong></font>
du er ved at indtrænge dig på et forbudt område...
hvis du ikke har authoriseret adgang til denne side, så forlad
den venligst omgående !!!<br><%=Request.Querystring("error")%></font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="29%" class="skrift">Brugernavn:</td>
<td width="71%"> <input type="text" name="brugernavn" maxlength="100" class="bottom">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="29%" class="skrift">Adgangskode:</td>
<td width="71%"> <input type="password" name="password" maxlength="100" class="bottom">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td colspan="2" class="css">Din IP adresse er :
<%
Response.Write Request.ServerVariables("REMOTE_ADDR")
%> </td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="29%" class="css"> </td>
<td width="71%"><font size="2" face="tahoma">
<input type=submit value= Login name="submit" class="bottom">
</font></td>
</tr>
</table>
</div>
</form>
<div align="center">
<p>
<% end if %>
<% if mode = "login" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database.mdb")
strSQL = "SELECT * FROM admin where brugernavn = '" & Request.form("brugernavn") & "'"
Set rs = myConn.Execute(strSQL)
If rs.BOF Or rs.EOF Then
Response.Redirect("login.asp?error=Ingen bruger med det navn!")
end if
if rs("password") = Request.form("password") then
session("brugernavn") = rs("brugernavn")
session("id") = rs("id")
session("login") = yes
Response.Redirect("default.asp")
else
Response.Redirect("login.asp?error=Du har indtastet forkert password!")
end if
myConn.Close
Set myConn = Nothing
end if %>
</p>
<p>brugernavn: Admin<br>
Adgangskode: Admin</p>
</div>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
