<% '//¹®Àڼ ¼³Á¤ Const CHRSET = "euc-kr" '//¼³Á¤ ¹× ÃʱâÈ­ %> <% Dim telnum() Dim hpnum() '//ÆÄÀϾ÷·Îµå °ü·Ã Dim objFile(2) Dim fileName(2), fileNameOrigin(2) Dim fileSize(2) Dim fileType(2) Dim delAttachFile(2) '//Àû¿ë¸ðµå mode = Replace(Trim(Request.QueryString("mode")), "'", "''") '//°Ô½ÃÆǾÆÀ̵ð id = InjectionDefender(Request.QueryString("id")) '//ȸ¿øÆÄÀÏ À¥°æ·Î uploadedpath = FSBOARD_PATH & "./data/__IMG_MEMBERS" '//ȸ¿øÆÄÀÏ ¼­¹ö°æ·Î directorypath = Server.MapPath(uploadedpath) '//°Ô½ÃÆÇ °ü¸® µ¥ÀÌÅÍ If id<>"" Then Sql = "SELECT lang,uploadComponent FROM " & AdminTblName & " WHERE board_id='" & id & "';" rs.Open Sql,dbConn If Not rs.EOF Then lang = rs.Fields("lang") uploadComponent = rs.Fields("uploadComponent") End If rs.Close End If If lang="" Then lang = "korean" If uploadComponent="" Then uploadComponent = "Built-in" fileMaxNum = 3 fileMaxLimit = 4194304 Set cx = New BsfCode Set md5 = New MD5Code Set sha = New SHA256Code '//µðÀÚÀÎÆÄÀÏ Àû¿ë È®ÀÎ strFullPath = Request.ServerVariables("URL") strFileNameOnly = Right(strFullPath, (Len(strFullPath)-InStrRev(strFullPath, "/"))) If strFileNameOnly<>"members.asp" Then CombinedDesign = True Else CombinedDesign = False %> ´ëÇѺұ³Á¶°èÁ¾ ºÒ±³»çȸ¿¬±¸¼Ò
<% If Session("MemId") <> "" and Session("MemLevel")=0 Then %> <% Else %> <% End If %>
 
<% mem_id = InjectionDefender(Trim(Request.QueryString("mem_id"))) If Session.Contents("MemId")<>mem_id Then Response.Redirect "?mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"À߸øµÈ Á¢±ÙÀÔ´Ï´Ù." Response.End End If mem_id = Replace(mem_id, "'", "''") Sql = "SELECT * FROM " & MemTblName & " WHERE mem_id='" & mem_id & "';" rs.Open Sql,dbConn If rs.EOF Then Response.Redirect "?mode=error&msg=" & Server.UrlEncode(MsgExtract("MsNoMemInfo")) '"ȸ¿ø Á¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù." Response.End Else With rs idx = .Fields("idx") mem_id = .Fields("mem_id") mem_passwd = .Fields("mem_passwd") mem_name = .Fields("mem_name") mem_nickname = .Fields("mem_nickname") mem_email = .Fields("mem_email") mem_homepage = .Fields("mem_homepage") mem_zipcode = .Fields("mem_zipcode") mem_addr1 = .Fields("mem_addr1") mem_addr2 = .Fields("mem_addr2") mem_telnum = .Fields("mem_telnum") mem_hpnum = .Fields("mem_hpnum") mem_job = .Fields("mem_job") mem_part = .Fields("mem_part") mem_grade = .Fields("mem_grade") mem_picture = .Fields("mem_picture") mem_mailing = .Fields("mem_mailing") mem_regdate = .Fields("mem_regdate") public_id = .Fields("public_id") public_name = .Fields("public_name") public_email = .Fields("public_email") public_homepage = .Fields("public_homepage") public_addr = .Fields("public_addr") public_telnum = .Fields("public_telnum") public_hpnum = .Fields("public_hpnum") public_job = .Fields("public_job") public_part = .Fields("public_part") public_picture = .Fields("public_picture") public_memo = .Fields("public_memo") public_regdate = .Fields("public_regdate") mem_memo = .Fields("mem_memo") End With If mem_zipcode<>"" Then mem_zipcode1 = Trim(Left(mem_zipcode,3)) mem_zipcode2 = Trim(Right(mem_zipcode,3)) Else mem_zipcode1 = "" mem_zipcode2 = "" End If ReDim telnum(2) If mem_telnum<>"" Then telnumdiv = Split(mem_telnum,"-") For i=0 To 2 telnum(i) = telnumdiv(i) Next Else For i=0 To 2 telnum(i) = "" Next End If ReDim hpnum(2) If mem_hpnum<>"" Then hpnumdiv = Split(mem_hpnum,"-") For i=0 To 2 hpnum(i) = hpnumdiv(i) Next Else For i=0 To 2 hpnum(i) = "" Next End If mem_memo = eregi_replace("<(textarea|\/textarea)+","<$1", mem_memo) End If %>

<%=MsgExtract("MsLabelNotifyMsg")%>

  • <%=MsgExtract("MsLabelID")%>

    <%=mem_id%> checked="checked"<%End If%> /><%=MsgExtract("MsLabelPublicChk")%>

  • <%=MsgExtract("MsLabelEditPassword")%>

    <%=MsgExtract("MsLabelEditPwdAdvice")%>

  • <%=MsgExtract("MsLabelEditPwdRetry")%>

  • <%=MsgExtract("MsLabelName")%>

    checked="checked"<%End If%> /><%=MsgExtract("MsLabelPublicChk")%>

  • <%=MsgExtract("MsLabelEmail")%>

    checked="checked"<%End If%> /><%=MsgExtract("MsLabelEmailReceive")%> checked="checked"<%End If%> /><%=MsgExtract("MsLabelPublicChk")%>

  • <%=MsgExtract("MsLabelNickname")%>

    <%=MsgExtract("MsLabelNicknameAdvice")%>

  • <%=MsgExtract("MsLabelPostNum")%>

    -<%=MsgExtract(" />

  • <%=MsgExtract("MsLabelAddress")%>

    checked="checked"<%End If%> /><%=MsgExtract("MsLabelPublicChk")%>

  • <%=MsgExtract("MsLabelRemainAddress")%>

  • <%=MsgExtract("MsLabelHPhoneNumber")%>

    -- checked="checked"<%End If%> /><%=MsgExtract("MsLabelPublicChk")%>

<% Sql = "SELECT * FROM _members_opt WHERE mem_id='" & mem_id & "';" rs.Close rs.Open Sql,dbConn If rs.EOF Then Else With rs mem_id = .Fields("mem_id") name = .Fields("name") name2 = .Fields("name2") gubun = .Fields("gubun") birth = .Fields("birth") sosok = .Fields("sosok") sosok2 = .Fields("sosok2") danche = .Fields("danche") gubun2 = .Fields("gubun2") End With temp=split(birth,"/") %>

Ãß°¡ Á¤º¸ ÀÔ·Â

  • ¹ý¸í

    (ÇѱÛ)(ÇÑÀÚ)

  • ȸ¿ø±¸ºÐ

    >ÀϹÝ>½º´Ô(µî·ÏÀÚ°¡ ½º´ÔÀÎ °æ¿ì´Â üũ ÇϽñ⠹ٶø´Ï´Ù.)

  • »ý³â¿ùÀÏ

    ³â¿ùÀÏ >¾ç>À½

  • ¼Ò¼Ó»çÂû

     (ÇÑÀÚ)

  • ¼Ò¼Ó´Üü

  • ÀÚ±â¼Ò°³

  • Á¾´Ü¼Ò¼Ó

    Á¾´Ü¼Ò¼Ó ¼ÒÀÓ½º´ÔÀ̳ª Á¾¹«¿øÀ̽ʴϱî?>¾Æ´Ï¿ä(N)>¿¹(Y)

<% End If %>