% if is_write <> "Y" Then Call Back_back("쓰기권한이 없습니다.") End If ' 파라미터정보 ************************************************************************************* m_num = InputValue(request("m_num")) ' ************************************************************************************************** If m_num = "" then ' 등록 b_l_sdate = getDateFm(now,4) b_l_edate = getDateFm(now,4) ' 자동가입방지 randomize autoimg_str = Int((5 * Rnd) + 1) ' 01.png = DF4PH3 ' 02.png = HS42YP ' 03.png = S8VP3X ' 04.png = N4CW2U ' 05.png = 9SK6GR ' $autoimg_str = "1"; m_pwd_type = "password" reset_url = "write.asp" is_title_str = "신규 회원 생성" m_div = "0||0" else ' 수정 ' 레코드필드 R_Fields = "m_num, m_id, m_pwd, m_name, m_nickname, m_jumin, m_zipcode, m_addr1, m_addr2, m_phone1, m_phone2, m_phone3, m_email, m_mobile1, m_mobile2, m_mobile3, m_fax1, m_fax2, m_fax3, m_homepage, m_date, m_modymate, m_lastdate, m_chuchun, m_ip, m_level,m_autoimg_str, m_temp1, m_temp2, m_temp3" ', m_div1, m_div2, m_rank, m_work, m_etc, m_subname" R_tablename_str = "member" R_WHERE_str = " WHERE m_num=" & m_num Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str) disabled_opt = "disabled ='disabled'" m_pwd_type = "text" reset_url = "list.asp?"&page_info is_title_str = "회원 정보 수정" m_div = m_div1&"||"&m_div2 End if ' 회원환경설정 R_Fields = "mc_idx, mc_agree, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_agree_str, mc_jumin" R_tablename_str = "member_config" R_WHERE_str = " WHERE mc_idx=1" Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str) %>