¾È³ç Çϼ¼¿ä?

¾÷·ÎµåÄÄÆ÷³ÍÆ®(ECAM_KSFileUpLoad.FileUpLoad)°¡ ¼³Ä¡ µÇ¾î ÀÖÁö ¾Ê¾Æ¼­ ȸ¿ø °¡ÀÔÀÌ ¾ÈµÇ°í ÀÖ½À´Ï´Ù.

ECAM_KSFileUpLoad ¸¦ ±¸ÇÏ·Á°í ÀÏÁÖÀÏ° Çì¸Å¿´Áö¸¸ ¼ÒµæÀÌ ¾ø¾î¼­ Æ÷±âÇÏ°í,

 TABS¾÷·ÎµåÄÄÆ÷³ÍÆ®·Î ¹Ù²Ù·Á°í Çϴµ¥¿ä...

¾îµð¸¦ ¾î¶»°Ô °íÃÄ¾ß Çϳª¿ä? Âü Ȳ´çÇÑ Áú¹®À¸·Î µé¸®½Ã°ÚÁö¸¸...¸çÄ¥°£ µµ¼­°ü¿¡ Àִ åµéÀ» ´Ù µÚÁ® ºÃÁö¸¸...´Þ¸® ¹æµµ°¡ ¾ø¾î¼­¿ä... T,.T;

Á¶¾ð ºÎŹ µå¸³´Ï´Ù.

[¿¡·¯ ¸Þ¼¼Áö]

¼­¹ö °³Ã¼ error 'ASP 0177 : 800401f3'
Server.CreateObject ½ÇÆÐ
/member/member_insert.asp, line 40

À߸øµÈ ÇÁ·Î±×·¥ IDÀÔ´Ï´Ù. ÀÌ ¸Þ½ÃÁö¿¡ ´ëÇÑ Ãß°¡ Á¤º¸¸¦ º¸·Á¸é ´ÙÀ½ Microsoft ¿Â¶óÀÎ Áö¿ø »çÀÌÆ®¸¦ ¹æ¹®
ÇϽʽÿÀ: http://www.microsoft.com/contentredirect.asp.
================================================================================

<% @LANGUAGE = "VBSCRIPT" %>
<% OPTION EXPLICIT %>
<% RESPONSE.BUFFER = TRUE %>
<% RESPONSE.EXPIRES = 0 %>
<!--#include file = "../LIB/ADOVBS.INC" -->
<!--#include file = "../LIB/DEFAULT.ASP" -->
<%
dim FU
dim strDirectory
dim id , name , reg_id , gender , pwd , phone , fax , handphone , birthday , birthsollu , homepage , email , zip_code
dim address , merried , dcode , school , major , job , picture , reader_yn, reader_id, good_s_dt, good_e_dt
dim attached , strfile , strRet
dim CHK_FLAG, MSG
dim file_nm, file_ext, make_file_nm, tailNum
dim Retval
dim cnt

''''''''''''''''''''''''''''''
'Á¸ÀçÇÏ´Â ¾ÆÀ̵ðÀÎÁö °Ë»ç
function id_exist(member)
 dim count
 Call connectDatabase()  'DB Connect

 SQL = " "
 SQL = SQL & "  select count(id) "
 SQL = SQL & "  from member  "
 SQL = SQL & "  where id = '" & member & "'"

 Set rs = cn.Execute (SQL)
 count =  trim(rs(0))
 rs.close

 Call disconnectDatabase() 'DB disConnect
 id_exist = count
end function
''''''''''''''''''''''''''''''

Server.ScriptTimeOut = 99999999

Set FU = Server.CreateObject("ECAM_KSFileUpLoad.FileUpLoad")  'Create FileUpload Object

strDirectory = Server.MapPath("design1")

id   = Trim(FU.getValueName("id"))
name  = Trim(FU.getValueName("name"))
reg_id   = Trim(FU.getValueName("reg_id_1")) & Trim(FU.getValueName("reg_id_2"))
gender  = Trim(FU.getValueName("gender"))
pwd   = Trim(FU.getValueName("pwd_1"))
phone  = Trim(FU.getValueName("phone_1")) & "-" & Trim(FU.getValueName("phone_2")) & "-" &  Trim(FU.getValueName("phone_3"))
fax   = Trim(FU.getValueName("fax_1")) & "-" & Trim(FU.getValueName("fax_2")) & "-" & Trim(FU.getValueName("fax_3"))
handphone = Trim(FU.getValueName("handphone_1")) & "-" & Trim(FU.getValueName("handphone_2")) & "-" & Trim(FU.getValueName("handphone_3"))
birthday = Trim(FU.getValueName("birthday_1")) &  Trim(FU.getValueName("birthday_2")) &  Trim(FU.getValueName("birthday_3"))
birthsollu = Trim(FU.getValueName("birthsollu"))
homepage = Trim(FU.getValueName("homepage"))
email  = Trim(FU.getValueName("email"))
zip_code = Trim(FU.getValueName("zip_code"))
address  = Trim(FU.getValueName("address"))
merried  = Trim(FU.getValueName("merried"))
dcode  = Trim(FU.getValueName("dcode"))
school  = Trim(FU.getValueName("school"))
major  = Trim(FU.getValueName("major"))
job   = Trim(FU.getValueName("job"))
picture  = Mid(Trim(FU.getValueName("picture")), InstrRev(Trim(FU.getValueName("picture")), "\") + 1)
reader_yn = Trim(FU.getValueName("reader_yn"))
good_s_dt = Trim(FU.getValueName("good_s_dt"))
good_e_dt = Trim(FU.getValueName("good_e_dt"))

'response.write reader_yn
'response.end

'reader_id = Trim(FU.getValueName("reader_id"))

'¾ÆÀ̵ð Á¸Àç È®ÀÎ
cnt = id_exist(id)

if cnt >0  then
 Response.write "<script language='javascript'>alert('À̹ÌÁ¸ÀçÇÏ´Â ¾ÆÀ̵ð ÀÔ´Ï´Ù.\n´Ù¸¥ ¾ÆÀ̵𸦠¼±ÅÃÇØÁֽʽÿÀ.'); history.back();</script>"
end if

strfile = strDirectory & "\" & picture

If Len(picture) > 3 Then
 strRet  = FU.FileUpload("picture", CStr(strfile))
End If

'--------------------------------------------------------------------
'Deal By Return Value - Renaming Reupload Or Error Occurring
'--------------------------------------------------------------------
If (Len(strRet) < 10) And Len(picture) > 3 Then
 If strRet = "-101" Then  'File Is Null
  MSG = """¼±ÅÃÇϽŠÆÄÀÏÀº NullÆÄÀÏ ÀÔ´Ï´Ù."" & chr(13) & chr(13) & ""È®ÀÎÈÄ ´Ù½Ã ½ÃµµÇϽñ⠹ٶø´Ï´Ù."""
  response.write "<script language='vbscript'> msgbox " & MSG & ", 16, "" FileUpload Error : The File Is Null""</script>"
  CHK_FLAG  = "Fail"
 ElseIf strRet = "-102" Then  'Is Not A Object
  MSG = """ÁöÁ¤µÈ °´Ã¼°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù."" & chr(13) & chr(13) & ""È®ÀÎÈÄ ´Ù½Ã ½ÃµµÇϽñ⠹ٶø´Ï´Ù."""
  response.write "<script language='vbscript'> msgbox " & MSG & ", 16, "" FileUpload Error : The Object Is Not Exist""</script>"
  CHK_FLAG  = "Fail"
 ElseIf strRet = "-100" Then  'Exists Same File Name
  file_nm   = Mid(picture, 1, InStrRev(picture, ".") - 1)
  file_ext  = Mid(picture, InStrRev(picture, ".") + 1)
  make_file_nm = file_nm & "_" & Replace(date(),"-","") & Trim(Right(Replace(time(),":",""),6)) & "." & file_ext
  strfile   = strDirectory & "\" & picture

  Set FSO = CreateObject("Scripting.FileSystemObject")

  tailNum = 0
  Loop_chk = True

  Do While Loop_chk
   If (FSO.FileExists(strfile)) Then
    tailNum = tailNum + 1
    make_file_nm = file_nm & "~" & tailNum & "." & file_ext
    strfile = strDirectory  & "\" & make_file_nm
   Else
    Loop_chk = False
   End If
  Loop

  Set FSO  = Nothing
  strRet  = FU.FileUpload("picture", CStr(strfile))
  picture = make_file_nm
  CHK_FLAG = "Success"
 Else 'Unknown Problem
  MSG = """¾Ë ¼ö ¾ø´Â ÀÌÀ¯·Î ´õÀÌ»óÀÇ °úÁ¤À» ÁøÇàÇÒ ¼ö ¾ø½À´Ï´Ù."" & chr(13) & chr(13) ""È®ÀÎÈÄ ´Ù½Ã ½ÃµµÇϽñ⠹ٶø´Ï´Ù."""
  response.write "<script language='vbscript'> msgbox " & MSG & ", 16, "" FileUpload Error : Unknown Error""</script>"
  Set FU = Nothing 'Nothing FileUpload Object
  CHK_FLAG  = "Fail"
 End If
End If

'--------------------------------------------------------------------
'Save Row In Database
'--------------------------------------------------------------------
 If (Len(strRet) > 10) Or Len(picture) = 0 Then
  CHK_FLAG = "Success"

  Call connectDatabase()  'DB Connect

  Set cm = Server.CreateObject("ADODB.Command")

  cm.CommandText = "SP_MEMBER_SAVE"
  cm.CommandType = 4
  cm.ActiveConnection = cn
  cm.Parameters.Append cm.CreateParameter("@iretval",  adInteger,  adParamReturnValue)
  cm.Parameters.Append cm.CreateParameter("@id",   adVarChar,  adParamInput,  10,  id)
  cm.Parameters.Append cm.CreateParameter("@name",  adVarChar,  adParamInput,  50,  name)
  cm.Parameters.Append cm.CreateParameter("@reg_id",  adVarChar,  adParamInput,  20,  reg_id)
  cm.Parameters.Append cm.CreateParameter("@gender",  adVarChar,  adParamInput,  1,  gender)
  cm.Parameters.Append cm.CreateParameter("@pwd",   adVarChar,  adParamInput,  10,  pwd)
  cm.Parameters.Append cm.CreateParameter("@phone",  adVarChar,  adParamInput,  20,  phone)
  cm.Parameters.Append cm.CreateParameter("@fax",   adVarChar,  adParamInput,  20,  fax)
  cm.Parameters.Append cm.CreateParameter("@handphone", adVarChar,  adParamInput,  20,  handphone)
  cm.Parameters.Append cm.CreateParameter("@birthday", adVarChar,  adParamInput,  8,  birthday)
  cm.Parameters.Append cm.CreateParameter("@birthsollu", adVarChar,  adParamInput,  1,  birthsollu)
  cm.Parameters.Append cm.CreateParameter("@homepage", adVarChar,  adParamInput,  200, homepage)
  cm.Parameters.Append cm.CreateParameter("@email",  adVarChar,  adParamInput,  100, email)
  cm.Parameters.Append cm.CreateParameter("@zipcode",  adVarChar,  adParamInput,  10,  zip_code)
  cm.Parameters.Append cm.CreateParameter("@address",  adVarChar,  adParamInput,  200, address)
  cm.Parameters.Append cm.CreateParameter("@merried",  adVarChar,  adParamInput,  10,  merried)
  cm.Parameters.Append cm.CreateParameter("@dcode",  adVarChar,  adParamInput,  10,  dcode)
  cm.Parameters.Append cm.CreateParameter("@school",  adVarChar,  adParamInput,  100, school)
  cm.Parameters.Append cm.CreateParameter("@major",  adVarChar,  adParamInput,  100, major)
  cm.Parameters.Append cm.CreateParameter("@job",   adVarChar,  adParamInput,  10,  job)
  cm.Parameters.Append cm.CreateParameter("@picture",  adVarChar,  adParamInput,  100, picture)
  cm.Parameters.Append cm.CreateParameter("@auth_yn",  adVarChar,  adParamInput,  1,  "N") 
  cm.Parameters.Append cm.CreateParameter("@reader_yn", adVarChar,  adParamInput,  1,  reader_yn)
  cm.Parameters.Append cm.CreateParameter("@reader_id", adVarChar,  adParamInput,  20,  "")
  cm.Parameters.Append cm.CreateParameter("@good_s_dt", adVarChar,  adParamInput,  8,  "")
  cm.Parameters.Append cm.CreateParameter("@good_e_dt", adVarChar,  adParamInput,  8,  "")  
  cm.Execute

  Call disconnectDatabase() 'DB disConnect

 End If

 Set FU = Nothing 'Nothing FileUpload Object
 response.write "<script language='javascript'>alert('ÀúÀåµÇ¾ú½À´Ï´Ù.');</script>"
 response.write "<script language='javascript'>location.href='/content.asp';</script>"

%>