Прошло много времени с тех пор, как я сделал какой-нибудь классический ASP, поэтому синтаксис может быть немного не таким, но в основном он будет выглядеть так:
<%
Function Login(username,password)
Login = False
If Trim(LCase(username)) = "somebodywhocanseethepage" And Trim(LCase(password)) = "opensaysame" Then
Login = True
End If
End Function
Sub WriteLoginForm()
%>
<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method="post">
<input type="hidden" name="_TRIGGER" id="_TRIGGER" value="LOGIN" />
Username: <input type="text" name="username" id="username" /><br />
Password: <input type="password" name="password" id="password" /><br />
<input type="submit" value="Login" />
</form>
<%
End Sub
Sub WritePageContent()
%>
<h1>Phone Numbers</h1>
<ul>
<li>867-5309</li>
<li>911</li>
<li>2 8 1, 3 3 oh, eight zero zero fo'</li>
</ul>
<%
End Sub
If Request.Form("_TRIGGER") = "LOGIN"
If Login(Request.Form("username"),Request.Form("password"))
WritePageContent
Else
Response.Write "Login failed.<br />"
WriteLoginForm
End If
Else
WriteLoginForm
End If
%>
Я не проверял это, но еслиэто не на 100% правильно, это довольно близко, и вы можете настроить его так, как вам нужно.Дайте мне знать, если вам нужно будет внести какие-либо изменения, чтобы я мог обновить ответ для будущих пользователей.