(1) 로그인화면에서 로그인했을때 섹션을 이용하기 위하여 global.asa 파일을 다음과 같이 작성합니다. - 이 파일은 로그인화면을 꾸미는 문서 index.asp 문서와 같은 경로명에 존재해야 하며 웹루트디렉토리가 아닌 가상폴더일 경우에는 global.asa 파일이 제대로 동작하기 위한 설정을 해야 합니다. - 이건 global.asa 부분 참조바람

global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart
    Session.Timeout=1
    Session("User") = "Guest"
End Sub

Sub Session_OnEnd
    Session("User") = "Guest"
End Sub

</SCRIPT>


여기서 Session.Timeout=1 은 섹션 유지 시간이며 설명의 편의상 1분으로 설정한것입니다. 보통 20분 정도로 설정합니다.

(2) 로그인하는 화면입니다. - 아래 그림은 로그인(index.asp) 화면입니다.



사용된 이미지



index.asp
<html>
<head>
<title>회원관리 초기화면</title>
<script Language="JavaScript">
<!--
function CheckForm() {
    if (document.login.id.value.length == 0) {
        alert("아이디를 입력하시오.");
document.login.id.focus();
return false;
    }
     if (document.login.pwd.value.length == 0) {
        alert("비밀번호를 입력하시오.");
document.login.pwd.focus();
return false;
    }
    else{
  document.login.action="login_confirm.asp";
        document.login.submit();
  return true;
    }
}
//-->
</script>

<style type="text/css">
<!--
    BODY, table, tr, td, font,input, textarea, select
    {
        font-family: 굴림;
        font-size: 9pt;
    }
-->
</style>
</head>
<body>

<%
if(Session("User")="Guest") then
    Response.Write "" &_
        "<form method='post' name='login' onSubmit='Javascript:return CheckForm();'>" &_
        "<table border=0 width=175><tr>" &_
        "<td width='72'><b>아이디(ID)</b></td>" &_
        "<td width='103'><input style='width:92px;font-size:9pt' type='Text' name='id'></td>" &_
        "</tr><tr>" &_
        "<td><b>비밀번호</b></td>" &_
        "<td><input style='width:92px;font-size:9pt' type='password' name='pwd'></td>" &_
        "</tr><tr>" &_
        "<td colspan='2' valign='bottom' height='20'><input src='./img/login.gif' type='Image'> " &_
        "<a href='./login_new.asp'><img src='./img/reg.gif' border=0></a></td>" &_
        "</tr></table>" &_
        "</form>"
else
    Response.Write Session("User") & "님 환영합니다."
end if
%>

</body>
</html>


(3) login_confirm.asp 문서를 다음과 같이 작성합니다.

login_confirm.asp
<%

Dim id,pwd
id = Request.form("id")
pwd = Request.form("pwd")
    
'데이터베이스 연결 설정
Dim objConn,objRS,SQL
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open ("DSN=dsn_login;UID=abcd;PWD=abcd;")

'아이디체크
Dim MemberCnt
sql = "select Count(u_num) from member where u_id ='" & id & "' and u_pwd ='" & pwd & "'"
MemberCnt = objConn.execute(sql)
'아이디없을경우
if MemberCnt(0) = 0 then
    Response.Write " 존재하지 않는 아이디거나 비밀번호가 틀립니다. " & _
        "<a href=./index.asp>돌아가기</a>"
'아이디가 있을 때
else
    Session("User") = id
    Response.Redirect "./index.asp"
end if

%>


(4) 다음은 로그인 성공화면과 실패화면입니다.





(5) 두번째 그림처럼 로그인된 화면에서 1분이 경과한후(섹션유지시간이 지난후) 다시 index.asp 문서를 로딩하면 다음 그림과 같이 초기 화면으로 돌아가야 정상입니다.