|
|
|
|
 |
|
채영이 / 2000-06-06 / 오후 6:26:40 / 203.255.3.190
조회수 : 136
|
| [질문] 감사..감사..꾸벅..dsn설정을 잘 못 했네요..히히..용서를.. |
> 감사합니다..
> 이 어리석은 놈을 용서해 주세요..
> 근데..
> 그 에러를 잡으니.. 또다른 에러가..
> SiteGalaxyUpload.Form.1 error '80070006'
>
> Failed to write to the file
>
> /bbs/write_ok.asp, line 92
> ============================
> 위와 같은 에러가 뜨네요..
> 92라인 주변소스는요
> =============================================
> if Len(ImageFile) > 0 then ' 첨부파일이 있을 때만 업로드
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
>
> strDirectory = "c:/local project/brand/brand_local/brand114v3/file_brand114/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
> '파일 업로드 끝
>
> =============================================
> 입니다.. 좀 봐주세요..
-----------------------------------------------------------
에러 내용으로 볼때 해당디렉토리에 쓰기권한이 없는것 같은데요....
파일을 쓸 디렉토리에 쓰기 권한을 주세요...
그럼...
|
|
|
|