Voor het voorbeeld moet je het wachtwoord pimpeltje gebruiken
Stap 1:
Download de bijlage
Stap 2:
Pak de bestanden uit in de map waarin je beveilig bestanden zitten
Stap 3:
Open login.asp en vervang ---WACHTWOORD--- (en ---WACHTWOORD2---) door het wachtwoord dat je wilt instellen.
Stap 4:
Voeg onder <BODY> het volgende toe:
<%
Dim lb
lb = True ' Verander True in False als je geen logout button wilt hebben
%>
<!--#include file="protect.asp"-->
EXTRA:
In het geval dat je lb in False veranderd moet je weten dat je een simele logoutknop kan toevoegen door op de gewenste plek <!--#include file="logout.asp"--> te typen.
EXTRA 2:
Je kan bij login.asp zoeken naar Session.Timeout=1, je kan de 1 veranderen in het aantal minuten dat het duurt voordat je je automatisch uitlogt, ik raad 1, 3 of 5 minuten aan.
EXTRA 3:
Je kan de layout veranderen (wat ik ook wel zou doen)
EXTRA 4:
Je kan extra wachtwoorden toevoegen door achter ->"---WACHTWOORD2---"<- het volgende te typen:
OR pass = "---WACHTWOORD3---"
EDIT:
Ik heb het script aangepast om er meer wachtwoorden in te kunnen zetten
<%
rsvsa = Split(Request.ServerVariables("URL"), "/")
If rsvsa(UBound(rsvsa)) = "logout.asp" Then
Session.Abandon
%>
<SCRIPT LANGUAGE="JavaScript">
setTimeout("go()", 2500);
function go()
{
location.href='/';
}
</SCRIPT>
You can't see the files in this directory anymore...
<%
Else
%>
<INPUT TYPE="button" VALUE="Logout" ONCLICK="location.href='logout.asp';" /><% If lb = True Then %><BR><BR><% End If %>
<%
End If
%>
<%
If session("login") <> True AND session("pass") <> "correct" Then
If Request.QueryString <> "" Then
Response.Redirect "login.asp?http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & Request.QueryString
Else
Response.Redirect "login.asp?http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
End If
End If
If lb = True Then
%>
<!--#include file="logout.asp"-->
<%
End If
%>
<%
If session("login")<>True AND session("pass")<>"correct" Then