<% '//문자셋 설정 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 %>