login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:

Scripts > ASP > Beveiliging > NON-DB beveiliging

NON-DB beveiliging

Auteur: Caspar - 07 juli 2007 - 23:22 - Gekeurd door: Stijn - Hits: 3030 - Aantal punten: 3.50 (1 stem)





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

Code:
login.asp
  1. <% @LANGUAGE=VBScript %>
  2. <TT>
  3. <%
  4. Dim pass
  5. pass = Request.Form("pass")
  6. If Request.Form("go") = "True" AND (pass = "---WACHTWOORD---" OR pass = "---WACHTWOORD2---") AND Request.QueryString <> "" Then
  7. Session.Timeout=1
  8. Session("login") = True
  9. Session("pass") = "correct"
  10. Response.Redirect Request.QueryString
  11. Else If Request.Form = "" AND Request.QueryString <> "" Then
  12. %>
  13. <FORM ACTION="?<%= Request.QueryString %>" METHOD="post">
  14. <INPUT TYPE="hidden" NAME="go" VALUE="True" />
  15. <INPUT TYPE="password" NAME="pass" />
  16. <INPUT TYPE="submit" VALUE="Login" />
  17. </FORM>
  18. <%
  19. Else
  20. %>
  21. ERROR
  22. <%
  23. End If
  24. End If
  25. %>
  26. </TT>


logout.asp
  1. <%
  2. rsvsa = Split(Request.ServerVariables("URL"), "/")
  3. If rsvsa(UBound(rsvsa)) = "logout.asp" Then
  4. Session.Abandon
  5. %>
  6. <SCRIPT LANGUAGE="JavaScript">
  7. setTimeout("go()", 2500);
  8.  
  9. function go()
  10. {
  11. location.href='/';
  12. }
  13. </SCRIPT>
  14. You can't see the files in this directory anymore...
  15. <%
  16. Else
  17. %>
  18. <INPUT TYPE="button" VALUE="Logout" ONCLICK="location.href='logout.asp';" /><% If lb = True Then %><BR><BR><% End If %>
  19. <%
  20. End If
  21. %>


protect.asp
  1. <%
  2. If session("login") <> True AND session("pass") <> "correct" Then
  3. If Request.QueryString <> "" Then
  4. Response.Redirect "login.asp?http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & Request.QueryString
  5. Else
  6. Response.Redirect "login.asp?http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
  7. End If
  8. End If
  9. If lb = True Then
  10. %>
  11. <!--#include file="logout.asp"-->
  12. <%
  13. End If
  14. %>
Download code! Download code (.txt)

 Bekijk een voorbeeld van dit script!
 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Lees de reacties (4)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.036s