SiteGalaxyUpload 에러 문의 드려요. > 자유게시판

자유게시판

SiteGalaxyUpload 에러 문의 드려요. 정보

SiteGalaxyUpload 에러 문의 드려요.

본문

얼마전에 돌아가던 서버가 DDOS공격으로 서버를 다른 서버로 옮겼는데요.

다 돌아가는데 사이트갤럭시 업로드에서 문제가 생기네요.
자료 검색해 보았지만 무엇이 문제인지 모르겠습니다.

우선 등록시 파일을 첨부하면 올바르게 등록됩니다.
하지만 파일을 첨부하지 않고 등록하면 아래와 같이 오류가 발생합니다.

 SiteGalaxyUpload.Form.1 오류 '80004005'

Field is not a file

/admin/event/event_board_save.asp, 줄 100

그줄에 가서 확인하면 아래 소스 부분에서 에러가 발생합니다.
if upload(fn).Size > 0 Then     ----> 이 부분에서 에러가 나네요.
    ' 파일 업로드 처리
End If

참고로 이전 서버에서는 올바르게 작동된 소스입니다.

추천
0
  • 복사

댓글 4개

용량제한부분 문제입니다....(서버이전후에 서버내 세팅이 안된모양입니다.)
ASP 파일 업로드 용량 설정문제로

1. IIS 서비스 중지
2. c:\windows\system32\inetsrv\MetaBase.xml (MetaBase.xml 저장시 UTF-8로 저장해야됨...)

ASPMaxRequestEntityAllowed="204800" <-- 업로드 용량제한을 200KB에서 수정해준다
ASPBufferingLimit="204800"


--으흐흐흐 아이졸려라.~~ -----------
음.. 저도 자료 찾아 보니. 대부분 사람들이 업로드 용량제한쪽을 말씀 하시더라구요..
그쪽 부분도 수정해서 적용했습니다.
하지만 똑같은 문제가 발생하더러구요.. 답변 감사드립니다.
으이구..
관련 소스입니다. DB처리만 빼고 모두 올립니다.
<%
set uploadform = Server.CreateObject("sitegalaxyupload.form")
set FSO = Server.CreateObject("scripting.fileSystemObject")
Dim arr_F
dim PATH : PATH = Server.MapPath("/upload")

'uploadform.DefaultPath = PATH

no        = SQL_injection(Server.HTMLEncode(uploadform("no")))
title    = SQL_injection(Server.HTMLEncode(uploadform("title")))
name      = SQL_injection(Server.HTMLEncode(uploadform("name")))
top_level = SQL_injection(Server.HTMLEncode(uploadform("top_level")))
content  = Replace(uploadform("content"),"'","&#39;")
replydata = Replace(uploadform("replydata"), "'", "&#39;")
mode      = SQL_injection(Server.HTMLEncode(uploadform("mode")))
p_no      = SQL_injection(Server.HTMLEncode(uploadform("p_no")))
'pass      = SQL_injection(Server.HTMLEncode(uploadform("pass")))
pass_chk  = SQL_injection(Server.HTMLEncode(uploadform("pass_chk")))
' parameter
sel  = Server.HTMLEncode(uploadform("search"))
ser  = Server.HTMLEncode(uploadform("word"))
page = Server.HTMLEncode(uploadform("page"))

FILE()

sub FILE()
if uploadform("fn").Size > 0 then
dim FN : FN = uploadform("fn").FilePath
            szFileName  = Mid(FN, InstrRev(FN, "\")+1)
dim FL : FL = uploadform("fn").Size
            szFile      = Mid(szFileName, 1, Instr(szFileName, ".")-1)
dim EXT : EXT = LCASE(MID(szFileName, instrRev(szFileName,".")+1))

if FL > 15000000 then
Response.Write "<script language='javascript'>"
Response.Write "alert('파일용량이 초과 되셨습니다');"
Response.Write "history.back(-1);"
Response.Write "</script>"
' DEL()
end if


            countfilename = 0

          Set fso = CreateObject("Scripting.FileSystemObject")
      bExist = True
      strFileNameTemp = PATH & "\" & szFileName

      while bExist = True
          If (fso.FileExists(strFileNameTemp)) Then
              countfilename = countfilename + 1
          strFileNameTemp = PATH & "\" & szFile & countfilename &"." & EXT
              Else
              szFile = szFile & countfilename
          bExist = False
          End If
      Wend
      Set fso = nothing
          szFileName = szFile &"."& EXT


uploadform("fn").SaveAs PATH & "\" & szFileName

arr_F = szFileName
else
arr_F = uploadform("file_name")
end if
end sub

set FSO = nothing
set uploadform = nothing
© SIRSOFT
현재 페이지 제일 처음으로