スカトロネットセカンド

作業表を管理するためのメニューに入る際のID,パスワード認証です。
ほかの頁でも紹介しているので、簡単に紹介します。

login.asp ソースはこちら

Session.Abandon はセッションを初期化しています。今回はIDをセッションに入れ、ログインからID、パスワードを入力してからではないとメニューに飛べないようにしています。URLにメニューのアドレスを直に入れてもセッションにIDが入っていないとエラーページに飛びます。

送信ボタンを押した先が　enter.asp　です。

enter.asp

<% @LANGUAGE="VBScript" %>
<%
userid = Request.Form ("userid")
password = Request.Form ("password")
　
def_id = "admin"
def_pass = "pass"
　
if userid = def_id and password = def_pass then
　Session ("id") = userid
　Session.Timeout = 999
　Response.Redirect "menu.asp"
else
　Response.Redirect "error.asp?err=ng_login"
end if
　
%>
　

あらかじめ　def_id　と　def_pass　にIDとパスワードを入れておき、それとマッチしていれば、IDをセッションに入れ、menu.aspに飛ばしています。マッチしなければエラーページに飛びます。

menu.asp ソースはこちら

先頭の方で、セッションに値が入っていなければ、エラーページに飛ぶよう処理しています。

ログイン認証

enter.asp