|
|
|
|
 |
|
오정석 / 2000-07-12 / 오후 4:58:26 / 203.251.13.116
조회수 : 121
|
| [질문] 안돼는데요. 어떻게 해야죠... 도와주세요.. |
> > 안녕하세요..
> > 자료실 땜에 그러는데요..
> > 제컴에서는 됐었거든요..
> > 그래서 서버에 올리는데..
> > 파일업로드가 에러가 뜨네요..
> > 간만에 소스를 봐서 잘 모르겠네요..
> >
> > 에러내용은요
> > =======================
> > SiteGalaxyUpload.Form.1 error '80070006'
> >
> > Failed to write to the file
> >
> > /diy-kit.co.kr/diykitfreeepds/write_ok.asp, line 92
> > ========================
> > 이구요..
> >
> > 주변 소스는 요..
> >
> > ========================
> > if Len(ImageFile) > 0 then ' 첨부파일이 있을 때만 업로드
> >
> > Set FSO = CreateObject("Scripting.FileSystemObject")
> >
> > 'strDirectory = "c:/local project/brand/brand_local/brand114v3/file_brand114/bbsUpfiles/" ' 서버내 파일이 저장되는 위치
> > strDirectory = "d:/diy-kit.co.kr/diykitfreepds/bbsUpfiles/"
> > ' 같은 파일명이 있을 경우 처리 시작(올리는 파일명 뒤에 일련번호를 넣어준다.)
> >
> > attach_file = UploadForm("ImageFile").FilePath '저장될 파일의 이름을 얻는다.
> > FileSize = UploadForm("ImageFile").Size '저장될 파일의 Size를 얻는다.
> >
> > FileName = Mid(attach_file, InstrRev(attach_file, "\") + 1) ' 파일명을 얻는다.
> >
> > 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
> > ' 같은 파일명이 있을 경우 처리 시작 끝
> >
> > 여기=>92라인 UploadForm("ImageFile").SaveAs strFileName ' 파일을 실제로 저장한다.
> > end if
> > '파일 업로드 끝
> > ===================================
> > 입니다.. 급합니다. 좀 도와주세요...
> >
> -----------------------------------------------------------
>
> 해당디렉토리에 마우스 오른쪽 단추 눌러서 등록정보에 보안에서
>
> everybody에 모든권한 주세요....
>
> 그리고 하위디렉토리에 모두 적용도 하시구요...
>
> 그럼...
>
-----------------------------------------------------------
|
|
|
|