<% Dim arrRs Sub load() ' conn.Open(strConn) End Sub Sub unload() Set arrRs = nothing End Sub Sub getRs() Dim strSql, rs strSql = "SELECT mem_num, mem_id, mem_name, mem_pwd, mem_nickname, mem_jumin1, mem_jumin2, mem_tel1, mem_tel2, " strSql = strSql & " mem_tel3, mem_hp0, mem_hp1, mem_hp2, mem_hp3, mem_email, mem_zip, mem_addr1, mem_addr2, " strSql = strSql & " mem_job_tel1, mem_job_tel2, mem_job_tel3, mem_job_zip, mem_job_addr1, mem_job_addr2, mem_birth, mem_disabled, " strSql = strSql & " mem_school1, mem_school2, mem_school3, rou_dir, mem_join_date, mem_lvl, mem_point, mem_content, last_login_date, " strSql = strSql & " mem_work1, mem_work2, mem_work3, hope, hope_etc, send_sms, send_email, send_letter, mem_memo" strSql = strSql & " FROM member WHERE mem_id = '" & request.Cookies(appVendorDB)("member_id") & "'" Set rs = conn.Execute(strSql) 'Response.write strSql If Not rs.BOF AND Not rs.EOF Then arrRs = rs.getRows() End If rs.Close() Set rs = nothing End Sub Sub showEditForm() Dim email1, email2 If arrRs(14, 0) <> "" Then email1 = left(arrRs(14, 0), InStr(arrRs(14, 0), "@")-1) email2 = right(arrRs(14, 0), len(arrRs(14, 0)) - InStr(arrRs(14, 0), "@")) End If %>

* 이름	<%=arrRs(2,0)%> * 이름 변경 요청시 본 교육원 학사관리팀으로 연락 바랍니다.
* 아이디	<%=request.Cookies(appVendorDB)("member_id")%>
* 생년월일	예시) 19830101
* 추천인
* 이메일	@
* 핸드폰번호	- -
주소	* 우편번호는 숫자만 가능합니다

회원탈퇴

<% End Sub Sub showEditForm2() Dim email1, email2 If arrRs(14, 0) <> "" Then email1 = left(arrRs(14, 0), InStr(arrRs(14, 0), "@")-1) email2 = right(arrRs(14, 0), len(arrRs(14, 0)) - InStr(arrRs(14, 0), "@")) End If %> <% dim or_name, permit_num, owner_name, or_email, or_email2, or_email3, or_tel1, or_tel2, or_tel3, or_fax1, or_fax2, or_fax3, damdang_name, damdang_email, damdang_tel1, damdang_tel2, damdang_tel3, damdang_hp1, damdang_hp2, damdang_hp3, or_file, mem_id dim or_email_a , damdang_email_b dim sql, rs sql = "select count(*) as totalcount from member_organ where mem_id = '"& request.Cookies(appVendorDB)("member_id") &"'" Set rs = conn.execute(sql) totalcount = rs("totalcount") if totalcount > 0 then dim sql2, rs2 sql2 = "select * from member_organ where mem_id = '"& request.Cookies(appVendorDB)("member_id") &"'" Set rs2 = conn.execute(sql2) or_name = rs2("or_name") permit_num = rs2("permit_num") owner_name = rs2("owner_name") or_email = rs2("or_email") or_tel1 = rs2("or_tel1") or_tel2 = rs2("or_tel2") or_tel3 = rs2("or_tel3") or_fax1 = rs2("or_fax1") or_fax2 = rs2("or_fax2") or_fax3 = rs2("or_fax3") damdang_name = rs2("damdang_name") damdang_email = rs2("damdang_email") damdang_tel1 = rs2("damdang_tel1") damdang_tel2 = rs2("damdang_tel2") damdang_tel3 = rs2("damdang_tel3") damdang_hp1 = rs2("damdang_hp1") damdang_hp2 = rs2("damdang_hp2") damdang_hp3 = rs2("damdang_hp3") or_file = rs2("or_file") if or_email <> "" then or_email_n = split(or_email,"@") or_email_n1 = or_email_n(0) or_email_n2 = or_email_n(1) end if if damdang_email <> "" then damdang_email_n = split(damdang_email,"@") damdang_email_n1 = damdang_email_n(0) damdang_email_n2 = damdang_email_n(1) end if if or_file <> "" then or_file_n = split(or_file,"/") or_file_n4 = or_file_n(3) end if end if %>

* 기관명

* 사업자등록번호

* 대표자

* 기관 E-mail

* 기관 Tel

- -

* 기관 Fax

- -

* 담당자명

* 담당자 E-mail

* 담당자 Tel

- -

* 담당자 Hp

- -

* 첨부파일

*사업자등록증
파일 다운로드 : <%=or_file_n4%>

<%if totalcount = 0 then%>

<%else%>

<%end if%>

<% End Sub Sub showRoute(strRoute) '알게된 경로 뿌리기(관리자 추가기능-DB사용) Dim strSql, objRs, arrRs, i Dim selRoute strSql = "SELECT rou_dir FROM mem_route WHERE is_del='no'" Set objRs = conn.Execute(strSql) If NOT objRs.BOF AND NOT objRs.EOF Then arrRs = objRs.getRows() selRoute = "" response.write selRoute Else response.write(" ") End If objRs.Close() Set objRs = nothing End Sub %> <% Call load() Call getRs() %>

<%if request.ServerVariables("REMOTE_HOST") = "121.186.19.33" then%> <%end if%> <%Call getHiddens(Array("mem_id", "menu_num", "step1_num", "step2_num"), Array(request.Cookies(appVendorDB)("member_id"), trimReq("menu_num"), trimReq("step1_num"), trimReq("step2_num")))%> <%Call getHiddens(Array("gm_num"), Array(""))%>

<%Call showEditForm2()%>

<%Call showEditForm()%>

<%Call unload()%>