|
|
|
|
 |
|
채영이 / 2000-07-06 / 오후 4:58:30 / 203.255.3.190
조회수 : 158
|
| [질문] 업로드 권한 에러좀 ...설명해주세요 |
> 사이트 갤럭시를 이용해서 업로드를 만들고 있는데,다음과 같은 메세지가 뜹니다.
> 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에 모든권한을 줘보시기 바랍니다...
그럼....
|
|
|
|