<% id = Trim(request("id")) password = Trim(request("password")) Tblname = "login_test" //--- 회원또는 멤버가 등록된 테이블 명 '//--- 데이타베이스에 연결 Dim strConnect, dbCon, rs strConnect = "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=testOK;User ID=testOK;Password=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 %> |