´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net) ÀÔ±¹Çϱâ | ¿µÁÖ±Ç ½Åû
  • ¸öºÎ¸² °ñ¶ó°ñ¶ó
  • ¼Ò±Ù¼Ò±Ù
  • µµ¶õµµ¶õ
  • ³«¼­¸¶´ç
  • Âø°¢ÇѾÆÀÌ
  • ¼ýÀÚ¸ÂÃß±â
  • ¼Ò¿øºô±â
  • ÈçÀû³²±â±â
  • ²Þ¼Ó¿©Çà
  • Ä£±¸Áý ³î·¯°¡±â
  • ¸ðµÎµå¸²´ÔÀÇ È¨
  • î¤éÞ´ÔÀÇ È¨
  • Çö¿ì´ÔÀÇ È¨
  • º°¾ÆÇØ´ÔÀÇ È¨
  • ÇÞ»ì´ÔÀÇ È¨
  • À̳ª´Ï´ÔÀÇ È¨
  • À¯¸®¾Ë´ÔÀÇ È¨
  • ³È³ÈÀÌ´ÔÀÇ È¨
  • ²ÀÁö´ÔÀÇ È¨
  • ´ë¼º´ÔÀÇ È¨
  • ¹®Èñö / 2000-07-06 / ¿ÀÈÄ 6:00:22 / 211.51.20.144
    Á¶È¸¼ö : 112
    [Áú¹®] °¨»çÇÕ´Ï´Ù.ÇØ°áµÆ½À´Ï´Ù.
    > > »çÀÌÆ® °¶·°½Ã¸¦ ÀÌ¿ëÇؼ­ ¾÷·Îµå¸¦ ¸¸µé°í Àִµ¥,´ÙÀ½°ú °°Àº ¸Þ¼¼Áö°¡ ¶å´Ï´Ù.
    > > SiteGalaxyUpload.Form.1 error '80070006'
    > >
    > > Failed to write to the file
    > >
    > > /sellup/write_ok.asp, line 81
    > >
    > > ÀÌ °÷¿¡ ´ëÇÑ ¼Ò½º´Â È­ÀÏÀ» ÁöÁ¤ÇØÁÖ´Â °æ·ÎÀ̰ŵç¿ä...
    > > Àüü ¾÷·Îµå ºÎºÐÀÇ ¼Ò½º´Â
    > > #############################
    > > '÷ºÎ ±×¸²È­ÀÏ ¾÷·Îµå ½ÃÀÛ=====================
    > > file = UploadForm("AttachImage")
    > >
    > > If Len(file) > 0 then '÷ºÎ È­ÀÏÀÌ ÀÖÀ»¶§¸¸ ¾÷·Îµå============
    > > 'ÆÄÀÏ Çڵ鸵 ÀνºÅϽº »ý¼º
    > > Set FSO = CreateObject("Scripting.FileSystemObject")
    > > strDirectory = "" ' ¼­¹ö³» ÆÄÀÏÀÌ ÀúÀåµÇ´Â À§Ä¡
    > >
    > > ' °°Àº ÆÄÀϸíÀÌ ÀÖÀ» °æ¿ì ó¸® ½ÃÀÛ(¿Ã¸®´Â ÆÄÀÏ¸í µÚ¿¡ ÀϷùøÈ£¸¦ ³Ö¾îÁØ´Ù.)
    > >
    > > attach_file = UploadForm("AttachImage").FilePath 'ÀúÀåµÉ ÆÄÀÏÀÇ °æ·Î¸¦ ¾ò´Â´Ù.
    > >
    > > FileSize = UploadForm("AttachImage").Size 'ÀúÀåµÉ ÆÄÀÏÀÇ Size¸¦ ¾ò´Â´Ù.
    > >
    > > FileName = Mid(attach_file, InstrRev(attach_file, "\") + 1) ' ÆÄÀϸíÀ» ¾ò´Â´Ù.(Àüü C:\Inetpub\wwwroot\...)
    > >
    > > strName = Mid(FileName, 1, Instr(FileName, ".") - 1) ' È®ÀåÀÚ¸¦ Á¦¿ÜÇÑ ÆÄÀϸíÀ» ¾ò´Â´Ù.
    > >
    > > strExt = Mid(FileName, Instr(FileName, ".") + 1) 'È®ÀåÀÚ¸¦ ¾ò´Â´Ù.
    > >
    > > bExist = True ' ¿ì¼± °°ÀºÀ̸§ÀÇ ÆÄÀÏÀÌ Á¸ÀçÇÑ´Ù°í °¡Á¤
    > >
    > > strFileName = strDirectory & strName & "." & strExt ' ÀúÀåÇÒ ÆÄÀÏÀÇ ¿ÏÀüÇÑ À̸§À» ¸¸µê
    > >
    > > countFileName = 0 ' ÆÄÀÏÀÌ Á¸ÀçÇÒ °æ¿ì, À̸§ µÚ¿¡ ºÙÀÏ ¼ýÀÚ¸¦ ¼¼ÆÃÇÔ.
    > >
    > > Do While bExist ' ¿ì¼± ÀÖ´Ù°í »ý°¢ÇÔ.
    > > If (FSO.FileExists(strFileName)) Then ' °°Àº À̸§ÀÇ ÆÄÀÏÀÌ ÀÖÀ» ¶§
    > > countFileName = countFileName & 1 'ÆÄÀÏ¸í¿¡ ¼ýÀÚ¸¦ ºÙÀÎ »õ·Î¿î ÆÄÀÏ À̸§ »ý¼º
    > > FileName = strName & "_" & countFileName & "." & strExt
    > > strFileName = strDirectory & FileName
    > > Else '°°Àº À̸§ÀÇ ÆÄÀÏÀÌ ¾øÀ» ¶§
    > > bExist = False
    > > ' ÆÄÀÏÀÌ Á¸ÀçÇÏÁö ¾ÊÀ¸¹Ç·Î.
    > > End If
    > > Loop
    > > ' °°Àº ÆÄÀϸíÀÌ ÀÖÀ» °æ¿ì ó¸® ½ÃÀÛ ³¡
    > >
    > > 'Response.Write strfilename
    > >
    > > UploadForm ("AttachImage").SaveAs "C:\Inetpub\wwwroot\up\data\"& strfilename ' ÆÄÀÏÀ» ½ÇÁ¦·Î ÀúÀåÇÑ´Ù.<====¿¡·¯ºÎºÐ
    > > end if
    > > ##########################
    > > À§¿Í °°½À´Ï´Ù.¶ÇÇÑ IUSER_WWW¿¡°Ô ¹Ù²Ù±â ±ÇÇѵµ ÁÖ¾ú°Åµç¿ä
    > >
    > -----------------------------------------------------------
    >
    > ÇØ´ç µð·ºÅ丮¿¡ °¡¼Å¼­ ¿À¸¥ÂÊ ¸¶¿ì½º¸¦ ´©¸£½Å´ÙÀ½
    >
    > µî·ÏÁ¤º¸¿¡¼­ º¸¾ÈÀ» ¼±ÅÃÇϽŠ´ÙÀ½
    >
    > »ç¿ë±ÇÇÑÀ» ¼±ÅÃÇϽðí
    >
    > Everbody¿¡ ¸ðµç±ÇÇÑÀ» Áຸ½Ã±â ¹Ù¶ø´Ï´Ù...
    >
    > ±×·³....
    >
    -----------------------------------------------------------

    °¨»çÇÕ´Ï´Ù.
    ÇØ°áÇß½À´Ï´Ù....±ÇÇÑÀÌ »ó´çÈ÷ ¸¹Àºµ¥,Ȥ½Ã ¾î¶² ±ÇÇÑÀ» ÁÙ °æ¿ì º¸¾ÈÀÌ ¶Ô¸®´ÂÁö ¾Æ½Ã¸é °¥ÄÑÁÖ¼¼¿ä.
    ¾Æ¹«¸® Ã¥À» µÚÁ®ºÁµµ ÀÚ¼¼È÷ ³ª¿Í Àִ°ÍÀÌ ¾ø´õ¶ó±¸¿ä.Á¦°¡ ¾ÆÁ÷ Ãʺ¸¶ó¼­¸® ´ÔÀ» »ó´çÈ÷ ±«·ÓÈ÷ÁÒ...ÇìÇì.±Ùµ¥ SQL°ú mdb»ç¿ë ÇÒ¶§ Äõ¸® ¹®ÀÌ ¸¹ÀÌ ´Ù¸¥°¡¿ä...´ÔÀÇ ¼Ò½º¸¦ º¸°íÇÏ·Á´Ï±î,³Ê¹« ¾î·Á¿ö¼­¿ä.±×°Ç ¶Ç ¾ðÁ¦ °øºÎÇÒÁö.....*^_^*
    Ç×»ó ÁÁÀº Á¶¾ð °¨»çµå¸®¸ç ¹«´õ¿î ¿©¸§ °Ç°­ Á¶½ÉÇϽðí¿ä.À̸¸ ¹°·¯°©´Ï´Ù.
    Byte * 200 Byte À̳»·Î ÀÔ·ÂÇϼ¼¿ä À̸§ : Æнº¿öµå :