Листинг 2.

Protect.asp.

<%
Response.Buffer = True
Validate = Request(«Validate»)
Password = Request(«Password»)
If Validate = «FromForm» Then
	If Password = «letmein» THEN
		Session(«SecureAccess») = «Yes»
	End If
End If
If Session(«SecureAccess») <> «Yes» Then
%>
      
      
      

      


      
      
      
      
      
      
<%    
	Response.End
End If
%>



Выделенный фрагмент представляет собой исходную страницу.
Он защищен от прямого доступа приведенной выше формой.