%
'//¹®Àڼ ¼³Á¤
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
%>