<%@Language="VBScript"%>
<%
// 로그아웃 처리
if Request("mode") = "logout" then
Session.contents("user_id") = ""
Session.contents("user_name") = ""
Response.Redirect "http://www.nzc.co.kr/korean/main/main.htm"
end if
// 세션값이 남아 있을경우 바로 메인페이지로 돌림
if Session.Contents("user_id") <> "" then
Response.Redirect "http://www.nzc.co.kr/korean/main/main.htm"
end if
// 로그인 처리
mem_id = Request("mem_id")
pwd = Request("pwd")
nextpath = Request("nextpath")
if Request("mode") = "go" then
str_sql = ""
str_sql = str_sql & " select * "
str_sql = str_sql & " from member "
str_sql = str_sql & " where mem_id = '" & mem_id & "' and mem_del<>'Y'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open str_sql,Conn,1
//response.write str_sql
if rs.EOF then
err_msg = " 해당하는 ID가 존재하지 않습니다 "
else
d_id = rs("mem_id")
d_pwd = rs("pwd")
a_id = Request("id")
a_pwd = Request("pwd")
if d_pwd <> a_pwd then
err_msg = " 비밀번호가 일치하지 않습니다. "
else
err_msg = "OK"
Session.contents("user_id") = rs("mem_id")
Session.contents("user_name") = rs("name")
Session.contents("jumin_id") = rs("jumin_id")
session.contents("user_type") = rs("mem_type")
sql = "update com_member set me_lastdate = getdate() where me_id='"&rs("mem_id")&"'"
conn.execute(sql)
if nextpath = "" then
Response.Redirect "../main/main.htm"
else
Response.Redirect nextpath
end if
end if
end if
end if
%>
Creative New Zealand Centre
<%
if err_msg <> "" then
Response.Write ""
end if
%>
