Lav en side der hedder login_default.asp og sæt dette kode ind:
-------------------
<html>
<head>
</head>
<body bgcolor="#FFFFFF">
<form action="login.asp" method="post">
<p align="center"><b><font face="Tahoma" color="#000000" size="3">Administration af DIN SIDE</font></b></p>
<div align="center">
<center>
<table border="0" width="50%">
<tr>
<td width="19%" bgcolor="#C0C0C0"><b><font size="1" face="Arial" color="#FFFF00">
Navn: </font></b></td>
<td width="68%" bgcolor="#C0C0C0"><font size="1" face="Arial"><b> <input type="text" name="Bnavn" Size="20" tabindex="1"></b></font></td>
<td width="68%" bgcolor="#C0C0C0">
<p align="center"><input type="submit" Value="Login" tabindex="3"></p>
</td>
</tr>
<tr>
<td width="19%" bgcolor="#C0C0C0"><b><font size="1" face="Arial" color="#FFFF00">
Password:</font></b></td>
<td width="68%" bgcolor="#C0C0C0"><font size="1" face="Arial"><b> <input type="password" name="Pass" Size="20" tabindex="2"></b></font>
</td>
<td width="68%" bgcolor="#C0C0C0">
<p align="center"><input type="reset" Value="Fortryd" tabindex="4">
</p>
</td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>
-------------------
Lav en side der hedder login.asp og sæt dette kode ind:
-------------------
<%
Bruger=request.form("Bnavn")
kode=request.form("Pass")
'din databaseforbindelse
Set connlogin = Server.CreateObject("ADODB.Connection")
connlogin.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\inetpub\wwwroot\bruger.mdb"
sqlbruger="SELECT * FROM login WHERE bruger='" & bruger & "'"
set datalogin=connlogin.execute(sqlbruger)
If datalogin.EOF then
%>
<p align="center"><font face="Tahoma">
Vi har ikke registreret en bruger med navnet <b><%=bruger%></b> i vores arkiv<br>
Men Prøv at <a href="login_default.asp">logge ind</a> igen
<%
response.end
end if
If datalogin("Pass")=kode then
session("bnavn")=datalogin("bruger")
session("status")=datalogin("status")
session("Godkendt") = True
response.redirect("oksiden.asp")
else
session("Godkendt") = False
%>
Password er Ukendt<br>
Men Prøv at <a href="login_default.asp">logge ind</a> igen</font><br>
<%
response.end
end if
datalogin.close
connlogin.close
set datalogin= nothing
set connlogin = nothing
%>
--------------------
bruger.mdb skal have disse kolonner og tabellen skal hedde "login"
--------------------
ID - Autonr.
Bruger - Tekst
Pass - Tekst
-------------------
Så kan du lave oksiden.asp hvor der er link til de forskellige opdateringssider.
I toppen af alle de sider der skal være beskytte af login sætter du denne kode:
-------------------
<%
if session("godkendt") = false then
response.redirect "login_default.asp"
end if
%>
-------------------
Kan du se ideen?
