<!--#include virtual="/new/common/pageincode.asp" -->
<!--#include virtual="/_Lib/config.asp" -->
<!--#include virtual="/new/common/util.asp" -->
<%
'//테이블 변수
tbl_name = "TBL_MEMBER"

'-----------------------------------------------------------
'  변수값 전달
'-----------------------------------------------------------
Dim message, goUrl
Dim req_mode : req_mode = getReplaceInput(fncDefault(request.form("mode"),""),"")
Dim req_user_pass : req_user_pass = getReplaceInput(fncDefault(request.form("user_pass"),""),"")

message = "탈퇴처리 중 오류가 발생하였습니다.\n정보가 정확한지 다시한번 확인해 주세요."
goUrl = "http://www.uni114.co.kr/new/mbr/join.asp"

If req_mode="L" Then			'//탈퇴모드

	sql = "SELECT count(*) FROM " & tbl_name
	sql = sql & " WHERE user_id = '" & session("user_id") & "' AND user_pass = '" & req_user_pass & "'"
	Set rs = DbCon.execute(sql)

	If rs(0) > 0 Then
		'계정삭제
		sql = "DELETE " & tbl_name
		sql = sql & " WHERE user_id = '" & session("user_id") & "' AND user_pass = '" & req_user_pass & "'"
		DbCon.execute(sql)

		'세션 초기화
		intRtnValue = 0
		Session("user_id")=""
		Session("user_name")=""
		Session("admin_div") = 0
		Session.Abandon

		message = "회원탈퇴가 완료되었습니다.\n이용해주셔서 감사합니다."
		goUrl = "http://www.uni114.co.kr/new/index.asp"
	End If		

	' // 객체 연결 끊기
	Set rs = Nothing
	Call SubObjClose(DbCon)

End If

Call MoveJavaAlert(message, goUrl)
Response.End
%>