ログオン フォーム
<%
Username="Administrator"
Password="Admin"
Validated = "OK"
if Strcomp(Request.Form("User"),Username,1)=0 AND Request.Form("password") = Password then
' 評価用の Cookie を設定して、ユーザーを元のページにリダイレクトします。
Response.Cookies("ValidUser") = Validated
' アプリケーション内でユーザーがどこから来ているか確認します。
If (Request.QueryString("from")<>"") then
Response.Redirect Request.QueryString("from")
else
' ユーザーがアクセスした最初のページがログオンのページの場合、
' それをデフォルトのページにリダイレクトします。
Response.Redirect "MyPage.asp"
End if
Else
' ユーザーが何かを入力すると、エラー メッセージだけが表示されます。
If Request.Form("User") <> "" then
Response.Write "認証できませんでした。
" & "
" & _
"再試行してください。
"
End if
End if
%>
