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