<%
'//���̺� ����
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
%>