Password a File/Directory #2:
Click here to test this script.
Username: open
Password: sesame
Code:
default.asp
security.asp
login.asp
loginsubmit.asp
default.asp
Highlight
You have gained entry.
security.asp
Highlight
<% if not Session("validated") Then Response.Redirect("login.asp?destination=" & Server.URLEncode(request("URL"))) end if %>
login.asp
Highlight
<% Dim destination destination = request("destination") function displayMsg() Dim html if request("BadMsg") <> "" Then html = "
" & request("BadMsg") & "
" end if if request("GoodMsg") <> "" Then html = "
" & request("GoodMsg") & "
" end if displayMsg = html end function %>
<%=displayMsg()%>This section requires a Username and Password.
Name:
Password:
loginsubmit.asp
Highlight
<% Dim destination destination = request("destination") if lcase((request("name"))="open" And request("password")="sesame") Then Session("validated") = true response.redirect(destination) else response.redirect("login.asp?BadMsg=" & Server.URLEncode("Invalid Username Or Password") & "&destination=" & Server.URLEncode(destination)) end if %>