꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> DExtUpload컴포넌트의 수정시 에러입니다. > 등록하기에서는 아무문제 없이 등록이 되는데 > 유독 게시글을 불러와 수정을 하면은 아래와 같은 에러메시지가 나타답니다. > > ----------------------------------------- > 에러원문 > ----------------------------------------- > DEXTUpload (0x800A0034) > 파일 이름 또는 번호가 잘못되었습니다. > /admin/commodity_modify_end.asp, line 11 > > > ----------------------------------------- > 수정페이지 소스원문 > ----------------------------------------- > <%@ LANGUAGE="VBSCRIPT"%> > <!-- #include file="include/dsn.asp" --> > <% > 'Program by Sung-an, Park > 'ch2u@ch2u.net > 'Jan.2002 > 'Database : MS-SQL70~MS-SQL2000 > 'DextUpload Component > > Set uploadform = Server.CreateObject("DEXT.FileUpload") > > idx = uploadform("idx") > photo_check = uploadform("photo") > > if photo_check = "" then > > cardno = uploadform("cardno") > cardno = replace(cardno,"'","''") > > commodity = uploadform("commodity") > commodity = replace(commodity,"'","''") > > styleno = uploadform("styleno") > styleno = replace(styleno,"'","''") > > size = uploadform("size") > size = replace(size,"'","''") > > material = uploadform("material") > material = replace(material,"'","''") > > content = uploadform("content") > content = replace(content,"'","''") > > season = uploadform("season") > > > SQL = "Update csc Set " > SQL = SQL & "cardno='" & cardno & "'" > SQL = SQL & ",commodity='" & commodity & "'" > SQL = SQL & ",styleno='" & styleno & "'" > SQL = SQL & ",size='" & size & "'" > SQL = SQL & ",material='" & material & "'" > SQL = SQL & ",content='" & content & "'" > SQL = SQL & ",season='" & season & "' where idx=" & idx > > db.Execute SQL > > db.Close > set db = Nothing > else > uploadform.DefaultPath = filepath '제품사진이 저장될 절대 디렉토리 > filepath = uploadform.DefaultPath > image_file = uploadform("photo").FileName > > imgtype = uploadform("photo").ImageFormat > > imgwidth = uploadform("photo").ImageWidth > imgheight = uploadform("photo").ImageHeight > > 'Set fso = Server.CreateObject("Scripting.FileSystemObject") > > filespec = filepath & "\" & uploadform("deletephoto") '---수정시 기존파일삭제 시작 --- > > If uploadform.FileExists(filespec) Then > uploadform.DeleteFile filespec > end if '---수정시 기존파일삭제 끝 --- > > upfilepath = filepath & "\" & image_file > uploadedfile = uploadform.SaveAs(upfilepath, False) > image_up_file = mid(uploadedfile, instrrev(uploadedfile,"\")+1) '파일네임구하기 > '----------------------------------------------------------------------------------- > > cardno = uploadform("cardno") > cardno = replace(cardno,"'","''") > > commodity = uploadform("commodity") > commodity = replace(commodity,"'","''") > > styleno = uploadform("styleno") > styleno = replace(styleno,"'","''") > > size = uploadform("size") > size = replace(size,"'","''") > > material = uploadform("material") > material = replace(material,"'","''") > > content = uploadform("content") > content = replace(content,"'","''") > > season = uploadform("season") > > img_width = imgwidth > img_height = imgheight > > if img_width > img_height and img_width > 120 then > result_width = 120 > result_height = Cint(img_height * (120/img_width)) > elseif img_height > width and img_height > 120 then > result_width = Cint(img_width * (120/img_height)) > result_height = 120 > else > result_width = img_width > result_height = img_height > end if > > > SQL = "Update csc Set " > SQL = SQL & "cardno='" & cardno & "'" > SQL = SQL & ",commodity='" & commodity & "'" > SQL = SQL & ",styleno='" & styleno & "'" > SQL = SQL & ",size='" & size & "'" > SQL = SQL & ",material='" & material & "'" > SQL = SQL & ",photo='" & image_up_file & "'" > SQL = SQL & ",photowidth=" & img_width > SQL = SQL & ",photoheight=" & img_height > SQL = SQL & ",imgwidth=" & result_width > SQL = SQL & ",imgheight=" & result_height > SQL = SQL & ",content='" & content & "'" > SQL = SQL & ",season='" & season & "' where idx=" & idx > > db.Execute SQL > > db.Close > set db = Nothing > > end if > > Set uploadform = Nothing > Response.Redirect "modify_end_massage.asp?idx=" & idx > %> > ------------------------------------------------ > 소스원문입니다. 조금 무식한 방법을 택했지만 > 확실하게 할려고 위와 같이 코딩했구요 > > 파일이 있으면 이미지의 가로 및 세로크기 > 구하지 않고 업로드도 안하는 밥법입니다. > > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *