<% Session("daum_cts")="1" '#´ÙÀ½ CTS %> <% '=========================================================== ' ÆäÀÌÁö : /member/join_ok.asp ' TABLE : TBL_MEMBER ' ¼³ ¸í : »ç¿ëÀÚ>ȸ¿ø°¡ÀÔ/¼öÁ¤ ' ÀÛ¼ºÀÚ : ' ÀÛ¼ºÀÏ : 2011-05-14 '----------------------------------------------------------- ' ¼öÁ¤ÀÏ | ÀÛ¼ºÀÚ | ³»¿ë '----------------------------------------------------------- ' 2011-05-14 | | initialize '=========================================================== Dim reg_ip '//Å×ÀÌºí º¯¼ö tbl_name = "TBL_MEMBER" '----------------------------------------------------------- ' º¯¼ö°ª Àü´Þ '----------------------------------------------------------- Dim req_mode : req_mode = getReplaceInput(fncDefault(request.form("mode"),""),"") Dim req_user_id : req_user_id = getReplaceInput(fncDefault(request.form("user_id"),""),"") Dim req_user_pass : req_user_pass = getReplaceInput(fncDefault(request.form("user_pass"),""),"") Dim req_user_name : req_user_name = getReplaceInput(fncDefault(request.form("user_name"),""),"") Dim req_user_ssn1 : req_user_ssn1 = getReplaceInput(fncDefault(request.form("user_ssn1"),""),"") Dim req_user_ssn2 : req_user_ssn2 = getReplaceInput(fncDefault(request.form("user_ssn2"),""),"") Dim req_user_tel1 : req_user_tel1 = getReplaceInput(fncDefault(request.form("user_tel1"),""),"") Dim req_user_tel2 : req_user_tel2 = getReplaceInput(fncDefault(request.form("user_tel2"),""),"") Dim req_user_tel3 : req_user_tel3 = getReplaceInput(fncDefault(request.form("user_tel3"),""),"") Dim req_user_mobile1 : req_user_mobile1 = getReplaceInput(fncDefault(request.form("user_mobile1"),""),"") Dim req_user_mobile2 : req_user_mobile2 = getReplaceInput(fncDefault(request.form("user_mobile2"),""),"") Dim req_user_mobile3 : req_user_mobile3 = getReplaceInput(fncDefault(request.form("user_mobile3"),""),"") Dim req_user_email1 : req_user_email1 = getReplaceInput(fncDefault(request.form("user_email1"),""),"") Dim req_user_email2 : req_user_email2 = getReplaceInput(fncDefault(request.form("user_email2"),""),"") Dim req_user_post1 : req_user_post1 = getReplaceInput(fncDefault(request.form("user_post1"),""),"") Dim req_user_post2 : req_user_post2 = getReplaceInput(fncDefault(request.form("user_post2"),""),"") Dim req_user_addr : req_user_addr = getReplaceInput(fncDefault(request.form("user_addr"),""),"") Dim req_user_addr_detail : req_user_addr_detail = getReplaceInput(fncDefault(request.form("user_addr_detail"),""),"") Dim req_user_email_flag : req_user_email_flag = getReplaceInput(fncDefault(request.form("user_email_flag"),"0"),"") reg_ip = Request.ServerVariables("REMOTE_ADDR") If Trim(req_user_email1&"")<>"" And Trim(req_user_email2&"")<>"" Then req_user_email = req_user_email1 & "@" & req_user_email2 End IF '----------------------------------------------------------- ' µ¥ÀÌŸ µî·Ï ó¸® '----------------------------------------------------------- If req_mode="U" Then '//¼öÁ¤¸ðµå '----------------------------------------------------------- ' µ¥ÀÌŸ ¼öÁ¤Çϱâ '----------------------------------------------------------- sql = "" sql = sql & " UPDATE " & tbl_name & " SET " sql = sql & " user_name = '" & req_user_name & "'" sql = sql & " , user_tel1 = '" & req_user_tel1 & "'" sql = sql & " , user_tel2 = '" & req_user_tel2 & "'" sql = sql & " , user_tel3 = '" & req_user_tel3 & "'" sql = sql & " , user_mobile1 = '" & req_user_mobile1 & "'" sql = sql & " , user_mobile2 = '" & req_user_mobile2 & "'" sql = sql & " , user_mobile3 = '" & req_user_mobile3 & "'" sql = sql & " , user_email_flag = " & req_user_email_flag & "" sql = sql & " , user_post1 = '" & req_user_post1 & "'" sql = sql & " , user_post2 = '" & req_user_post2 & "'" sql = sql & " , user_addr = '" & req_user_addr & "'" sql = sql & " , user_addr_detail = '" & req_user_addr_detail & "'" sql = sql & " , edit_ip = '" & reg_ip & "'" sql = sql & " , edit_dt = getdate() " If Trim(req_user_pass&"")<>"" Then sql = sql & " ,user_pass = '" & req_user_pass & "'" End If sql = sql & " WHERE user_email= '" & session("user_id") &"'" Else '//½Å±Ô µî·Ï '//Çʼö°ª üũ If Trim(req_user_name&"")="" Or Trim(req_user_pass&"")="" Then response.write DisplayJavaAlert("Á¤º¸°¡ Á¤È®ÇÏÁö ¾Ê½À´Ï´Ù.","1") response.End End If '//Áߺ¹À̸ÞÀÏ Ã¼Å© If CInt(f_chkId(req_user_email)) > 0 Then response.write DisplayJavaAlert("ÀÌ¹Ì µî·ÏµÈ À̸ÞÀÏÀÔ´Ï´Ù. \n´Ù½Ã È®ÀÎÇØÁÖ¼¼¿ä.","1") response.End End If '//Áߺ¹ ȸ¿ø°¡ÀÔ Ã¼Å© 'If CInt(f_chkUser(req_user_name, req_user_ssn1, req_user_ssn2)) > 0 Then ' response.write DisplayJavaAlert("ÀÌ¹Ì µî·ÏµÈ ȸ¿øÀÔ´Ï´Ù. \n´Ù½Ã È®ÀÎÇØÁÖ¼¼¿ä.","1") ' response.End 'End If '----------------------------------------------------------- ' µ¥ÀÌŸ ÀÔ·ÂÇϱâ '----------------------------------------------------------- sql = "" sql = sql & " INSERT INTO " & tbl_name & " ( " sql = sql & " user_id,user_pass,user_name" sql = sql & " ,user_ssn1,user_ssn2" sql = sql & " ,user_tel1,user_tel2,user_tel3" sql = sql & " ,user_mobile1,user_mobile2,user_mobile3" sql = sql & " ,user_email,user_email_flag" sql = sql & " ,user_post1,user_post2" sql = sql & " ,user_addr,user_addr_detail" sql = sql & " ,reg_ip,reg_dt,edit_ip,edit_dt,login_dt " sql = sql & " )VALUES ( " sql = sql & " '" & req_user_email & "', '" & req_user_pass & "','" & req_user_name & "'" sql = sql & " ,'" & req_user_ssn1 & "','" & req_user_ssn2 & "'" sql = sql & " ,'" & req_user_tel1 & "','" & req_user_tel2 & "','" & req_user_tel3 & "'" sql = sql & " ,'" & req_user_mobile1 & "','" & req_user_mobile2 & "','" & req_user_mobile3 & "'" sql = sql & " ,'" & req_user_email & "'," & req_user_email_flag & "" sql = sql & " ,'" & req_user_post1 & "','" & req_user_post2 & "'" sql = sql & " ,'" & req_user_addr & "','" & req_user_addr_detail & "'" sql = sql & " ,'" & reg_ip & "', getdate() ,'" & reg_ip & "', getdate(), getdate()" sql = sql & " )" ' °¡ÀÔÃàÇÏ ¸ÞÀÏ º¸³»±â mailtxt = "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "" mailtxt = mailtxt & "
"&req_user_name&"´ÔÀÇ È¸¿ø°¡ÀÔÀ» Áø½ÉÀ¸·Î ȯ¿µÇÕ´Ï´Ù
" Call sendmail(req_user_email, "help@uni114.co.kr", "À¯¾Ø¾ÆÀÌ È¸¿ø°¡ÀÔÀ» ÃàÇϵ帳´Ï´Ù.", mailtxt) End If If Trim(sql&"")<>"" Then '//transaction begin DbCon.BeginTrans 'Response.write sql DbCon.Execute sql '//TRANSACTION COMMIT If DbCon.Errors.Count = 0 Then DbCon.CommitTrans Session("user_id") = req_user_email Session("user_name") = req_user_name Else DbCon.RollbackTrans message = "Á¤º¸ ÀúÀå½Ã ¹®Á¦°¡ »ý°å½À´Ï´Ù. \n´Ù½Ã È®ÀÎÇØ ÁÖ¼¼¿ä." End If End If ' // °´Ã¼ ¿¬°á ²÷±â Call SubObjClose(DbCon) '----------------------------------------------------------- ' ÆäÀÌÁö À̵¿ '----------------------------------------------------------- %> <% If Trim(req_mode&"") = "I" Then message = "ȸ¿ø µî·ÏµÇ¾ú½À´Ï´Ù." goUrl = "http://www.uni114.co.kr/new/mbr/join_done.asp" Else message = "ȸ¿øÁ¤º¸°¡ ¼öÁ¤µÇ¾ú½À´Ï´Ù." goUrl = "http://www.uni114.co.kr/new/index.asp" End If Call MoveJavaAlert(message, goUrl) Response.End %>