CREATE TABLE login_test (
id VARCHAR(12) PRIMARY KEY,
password VARCHAR(12) NOT NULL
)

INSERT INTO login_test VALUES ( 'testuid', '12341234' )

<%
   id = Trim(request("id"))
   password = Trim(request("password"))
   Tblname = "login_test" //--- 회원또는 멤버가 등록된 테이블 명

    '//--- 데이타베이스에 연결
   Dim strConnect, dbCon, rs
   strConnect = "DSN=testOK;UID=testOK;PWD=1234;" '//--- 이 부분을 자신의 환경에 맞게 변경
   set dbCon = Server.CreateObject ("ADODB.Connection")
   dbCon.Open strConnect

   '//--- MSSQL UPPER 함수는 소문자를 대문자로 반환 
   QUERY = "SELECT id, password FROM " & Tblname & " WHERE UPPER(id)='"& UCase(id) &"'"

   SET rs = dbCon.execute(QUERY)


   If ( rs.bof OR rs.eof ) Then
      response.write "<script>alert('존재하지 않는 아이디입니다.!\n\n아이디를 확인하세요!');history.go(-1);</script>"
   Else 
      If Trim(rs("password")) <> password Then
      response.write "<script>alert('비밀번호가 틀립니다.\n\n비밀번호를 확인해 주세요!');history.go(-1);</script>"
      Else
      '//--- user id를 세션에 할당한다.
      session("id") = trim(rs("id"))
      rs.close
      Set rs= Nothing

      dbCon.Close
      Set dbCon= Nothing

      '/* -- id와 password가 일치하면 처리하는 부분
      '이 부분에 로그인후 되돌릴 페이지를 기술한다 예)response.redirect "../index.asp"
      '로그인전 페이지의 referere를 구해서 로그인 후 해당 페이지로 이동시킬수도 있음
      '예)preUrl = request.Servervariables("HTTP_REFERER") -- */
      response.write "로그인 되셨습니다"

      End If

   End If
%>