|
|
 |
|
채널이 / 2002-02-09 / 오전 8:32:23 / 210.205.142.22
조회수 : 165
|
| [질문] 리더님 질문(다른분들도 아시면 답변부탁합니다.) |
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
%>
------------------------------------------------
소스원문입니다. 조금 무식한 방법을 택했지만
확실하게 할려고 위와 같이 코딩했구요
파일이 있으면 이미지의 가로 및 세로크기
구하지 않고 업로드도 안하는 밥법입니다.
|
|
|
|