<%@ LANGUAGE="VBSCRIPT" %> <% For Each x In Request.Form Session(x) = Request.Form(x) Next '--------------------------------------------------------------------- ' パスワードファイル中のパスワード変数名を変更した場合は、下のPassword ' を変更した変数名に書き換えてください。 '--------------------------------------------------------------------- If Session("Pass") <> Password Then '--------------------------------------------------------------------- ' 「パスワード付き画面のテスト T 」や ' 「パスワードが違います。」など、コメントのみ、変更可能です。 '--------------------------------------------------------------------- Response.Write " パスワード付き画面のテスト T " Response.Write "
" Response.Write "

パスワード付き画面のテストT

" If Request("Pass") <> "" Then Response.Write "

パスワードが違います。

" Response.Write "パスワードを入力してください  " Response.Write "" Response.Write "
" Response.End Else Response.Write "

このページを見るにはパスワードが必要です。

" Response.Write "パスワードを入力してください  " Response.Write "" Response.Write "" Response.End End If End If '--------------------------------------------------------------------- ' パスワードが一致したときに表示する画面( %> を消しては行けません.) ' %>以降は、自由に編集してください。 '--------------------------------------------------------------------- %> パスワードが確認できた時に表示される画面

パスワードの、確認ができました。

パスワードの入力が必要なのは1回だけです。
同じパスワードを必要とするページであれば、
一定時間の間は何度もパスワードを入力しなおす必要はありません。

次の画面で確認してください。
次の画面もパスワード付き画面ですが、
すでに、確認済みのため、パスワードの入力画面が表示されません。

  次のパスワード付き画面へ

  解説に戻る