Hvis brugerne blot skal samme brugernavn og password, er ovenstående overflødigt, om end mere brugbart i flere sammenhænge!
For mere simple løsning uden database, gør følgende:
------------------------------------
1. Opret en siden med login formular - HUSK at alle sider i denne ekspempel bruger filendelsen .asp!!! (siden.html dur ikke!)
Siden her er navngivet "defalut.asp"
------------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="da">
<title>Simpel login med ASP</title>
<style type="text/css">
<!--
TD,P,BODY {font-family:Verdana;font-size:11px}
a{text-decoration:none;color:#000000}
A:hover {text-decoration: underline}
input,textarea,select { font-family: Verdana; font-size: 11px; color: #000000}
-->
</style>
<SCRIPT language="JavaScript">
<!-- Hide from older browsers
function CheckFormLOGIN () {
var errorMsg = "";
if (document.LOGIN.ID.value == ''){
errorMsg += "\n\Bruger ID: \t- Angiv venligst bruger ID!";
}
if (document.LOGIN.PASS.value == ''){
errorMsg += "\n\Password: \t- Angiv venligt password!";
}
if (errorMsg != ""){
msg = "__________________________________________________ \n\n";
msg += "Login fejlede, da der er mangler i forumularen!.\n";
msg += "Ret eller udfyld venligst, og prøv igen.\n";
msg += "__________________________________________________ \n\n";
msg += "Følgende felter skal udfyldes eller rettes: \n";
errorMsg += alert(msg + errorMsg + "\n\n");
return false;
}
LOGIN.SUBMIT.disabled=true;
return true;
}
// -->
</script>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" align="center" height="55"><b><font size="4">Simplet ASP login<br></font></b>(bruger ID = demo / password = demo)<%
if request.querystring ("MSG") = 1 then
Response.Write ("<br><br><font color=""#FF0000"">Brugernavn eller password er forkert!</font><br><br>")
end if
if request.querystring ("MSG") = 2 then
Response.Write ("<br><br><font color=""#FF0000"">Du skal være logget ind for at få adgang til siden!</font><br><br>")
end if
%></td>
</tr>
<tr>
<td width="100%" align="center" valign="top"><table border="0" cellpadding="0" cellspacing="1" width="300" bgcolor="#999999">
<tr>
<td width="100%">
<form ACTION="login.asp" METHOD="post" name="LOGIN" onSubmit="return CheckFormLOGIN();">
<table border="0" cellpadding="4" width="100%" bgcolor="#EBEBEB" cellspacing="4">
<tr>
<td width="30%"><b>Bruger ID:</b></td>
<td width="64%"><input type="text" name="ID" style="width: 180"></td>
<td width="6%"> </td>
</tr>
<tr>
<td width="30%"><b>Password:</b></td>
<td width="64%"><input type="password" name="PASS" style="width: 180"></td>
<td width="6%"></td>
</tr>
<tr>
<td width="30%"></td>
<td width="64%" align="right"><input type="submit" value="Login »" name="LOGIN" style="font-weight: bold; cursor:pointer;cursor:hand" title="Login"></td>
<td width="6%"></td>
</tr>
</form>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
------------------------------------
2. Opret en side som checker login og tildel brugeren en session, som angiver at brugeren er logget ind. Siden her er navngivet "login.asp"
------------------------------------
<%
Option Explicit
Response.Buffer = true
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
Dim bruger, pass
bruger = CStr(Request.Form("ID"))
pass = CStr(Request.Form("PASS"))
If bruger = "demo" AND pass = "demo" then
Session.contents("login") = 1
Response.Redirect "login_ok.asp"
else
Response.Redirect("default.asp?MSG=1")
end if
%>
------------------------------------
3. Opret en side, som inkluderes på de sider som ønskes beskyttet. Husk igen at det KUN er sider med endelserne .asp som kan beskyttes.
Bemærk at den inkludrede fil skal ligge i toppen af de sider som ønskes beskyttet
Siden her er navngivet "tjeklogin.asp"
------------------------------------
<%
Option Explicit
If Session.contents("login") <> 1 then
Response.Redirect("default.asp?MSG=2")
end if
%>
------------------------------------
4. Her et eksempel på en side, som er beskyttet med login.
Siden er navngivet "login_ok.asp"
------------------------------------
<!-- #include file="tjeklogin.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Simpel login med ASP</title>
<style type="text/css">
<!--
TD,P,BODY {font-family:Verdana;font-size:11px}
a{text-decoration:none;color:#000000}
A:hover {text-decoration: underline}
input,textarea,select { font-family: Verdana; font-size: 11px; color: #000000}
-->
</style>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" align="center" height="50" valign="top"><b><font size="4" color="#FF0000">Beskyttet side!</font></b></td>
</tr>
<tr>
<td width="100%" align="center">Denne side er beskyttet med password!<br><br>Er bruger ikke logget ind, vil brugere blive videresendt til loginformularen med besked om at bruger skal logge ind!</td>
</tr>
</table>
</body>
</html>
------------------------------------
Demo, afprøv eksempel:
http://www.zonedesign.dk/eksperten/logindemo/Download kode:
http://www.zonedesign.dk/eksperten/logindemo/login.zipHåber det kan bruges ;O)
Ny bruger
Nybegynder
Opret
Preview
