꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

등록하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	HTML 사용
제목 *
내용 *	> > > 안녕하세요.. > > > 자료실 땜에 그러는데요.. > > > 제컴에서는 됐었거든요.. > > > 그래서 서버에 올리는데.. > > > 파일업로드가 에러가 뜨네요.. > > > 간만에 소스를 봐서 잘 모르겠네요.. > > > > > > 에러내용은요 > > > ======================= > > > 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에 모든권한 주세요.... > > > > 그리고 하위디렉토리에 모두 적용도 하시구요... > > > > 그럼... > > > ----------------------------------------------------------- > > -----------------------------------------------------------

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *