[ASP] 이미지 업로드 DEXT Upload

[ASP] 이미지 업로드 DEXT Upload

 

 

<!--#include virtual = "/include/i_dbconn.asp" -->
<!--#include virtual = "/include/i_func_upload.asp" -->
<%
dir_name = "/imagedatas/cozzle/book"    이미지가 저장될경로

 

Set UploadForm = server.CreateObject("DEXT.FileUpload")

UploadForm.UploadTimeout = 1800  '- 1800sec(30min)
UploadForm.DefaultPath = Server.MapPath(dir_name)

 

mode = UploadForm("mode")
idx = UploadForm("idx")
title = UploadForm("title")
writer = UploadForm("writer")
part = UploadForm("part")
cost = UploadForm("cost")
cate = UploadForm("cate")
url_link = UploadForm("url_link")

title = trim(replace(title, "'", "''"))

 

If mode ="edit" Then

 file_name = UploadForm("imgfile")
 if len(file_name) > 0 then
  file_origin = uploadform("imgfile")
  if len(file_origin) > 0 then  call funDeleteFile(dir_name,file_origin)

  OrgFileName = UploadForm("imgfile").FileName
  OrgFileName= replace(OrgFileName," ","_")

  uploadform("imgfile").SaveAs uploadform.DefaultPath & "\" & OrgFileName,False
  filename = uploadform("imgfile").LastSavedFileName
 End If

 

table_name = "dbo.t_name"
sql = "update "& table_name & " set "
If filename<>"" Then
sql  = sql & "imgfile = '"&filename&"',"
End if

sql = sql & "title ='"&title&"',"
sql = sql & "writer ='"&writer&"',"
sql = sql & "part ='"&part&"',"
sql = sql & "cost ="&cost&","
sql = sql & "category ='"&cate&"',"
sql = sql & "url_link ='"&url_link&"'"
sql = sql & "  where idx="&idx

'response.write sql
'response.end
dbconn.execute(sql)
response.write "<script>alert('수정되었습니다'); opener.location.href='book_list.asp'; self.close();</script>"
Else
 file_name = UploadForm("imgfile")
 if len(file_name) > 0 then
  file_origin = uploadform("imgfile")
  if len(file_origin) > 0 then  call funDeleteFile(dir_name,file_origin)

  OrgFileName = UploadForm("imgfile").FileName
  OrgFileName= replace(OrgFileName," ","_")

  uploadform("imgfile").SaveAs uploadform.DefaultPath & "\" & OrgFileName,False
  filename = uploadform("imgfile").LastSavedFileName
 End If

table_name = "dbo.t_name"
sql = "insert into " & table_name & " (title,writer,part,cost,category,url_link,imgfile) values('" &title&"','"
sql  = sql &writer&"',' "&part&"', " &cost& ", '" & cate & "','"
sql  = sql & url_link&"','"&filename&"')"
'response.write sql
'response.end
dbconn.execute(sql)
response.write "<script>alert('입력되었습니다'); opener.location.href='book_list.asp'; self.close();</script>"
End if
%>
<!--#include virtual = "/include/i_dbclose.asp" -->