Password a File/Directory #1:
Code:
logon.asp
verifyLogon.asp
authenticate.asp
default.asp
logon.asp
Highlight
<html> <head> <title>Login Required</title> </head> <body bgcolor="ffffff"> <br><br> <center> <% If Request("BadPass") = "True" then Response.write("<FONT COLOR=RED><B>Invalid Password! Try Again...</B></FONT><P>") End If %> <h4>A login is required to access the page you asked for</h4> </center> <center><br> <form NAME="logonDetails" ACTION="verifyLogon.asp?url=<%=request("url")%>" METHOD="POST"> UserName: <input TYPE="TEXT" NAME="txtName"> <br> Pass Code: <input TYPE="PASSWORD" NAME="txtPassCode"> <br><br> <input TYPE="SUBMIT" VALUE="Submit"> </form> </center> </body> </html>
verifyLogon.asp
Highlight
<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <html> <head> <title>Verify Logon</title> </head> <body> <% UName = Request.Form("txtName") PCode = Request.Form("txtPassCode") ' The following select statement is the "hard coded option for validating passwords". You could ' Also insert ADO database code here to validate from a database. select case Ucase(Uname) case "ADMIN" If Ucase(PCode) = "1234" Then Session("Authenticated") = -1 Else Session("Authenticated") = 0 End If case "CARTER" If Ucase(PCode) = "~!" Then Session("Authenticated") = -1 Else Session("Authenticated") = 0 End If case else end select If Session("Authenticated") Then If Len(Request("url")) > 0 Then Response.redirect Request("url") Else Response.Write "Unable to determine which page to redirect to. Please use your back button and try again." End If Else Response.redirect "logon.asp?BadPass=True&url=" & Request("url") End If %> </body> </html>
authenticate.asp
Highlight
<% If Not Session("Authenticated") Then Response.Redirect "logon.asp?url=" & Request.ServerVariables("SCRIPT_NAME") End If %>
default.asp
Highlight
<!--#include file="authenticate.asp"--> <html> <title>Administrators Menu</title> <h2><font color="darkblue">Client Name</h2></font> <body bgcolor="ffffff"> <hr> <ul> <h3>Property Listing Maintenance</h3> <li> <a HREF>Add a New Property Listing</a> <li> <a HREF>Update an Existing Listing</a> <h3>Agent Roster Maintenance</h3> <li> <a HREF>Add a New Agent</a> <li> <a HREF>Update an Existing Agent</a> <h3>Site Reports</h3> <li> <a HREF>View Web Statistics - Updated Daily!</a> <li> <a HREF>How-To-Read Web Statistic Reports</a> <h3>Instructions</h3> <li> <a HREF>Photo Scanning Instructions</a> </ul> <br> <hr> <center> <a HREF>Return to Home Page</a> </center> </h3> </body> </html>