<!--#include file="../include/connstr.asp"-->
<!--#include file="../Include/CnpvUpFile.inc"-->
<!--#include file="../include/DefFunction.asp"-->
<%
 dim upload,file1,file2,formName,formPath,T_comment,fso
 set upload=new upload_5xSoft ''建立上傳對象
  
 if not isdate(upload.form("T_AddTime")) then
   response.write "<script>alert('錯誤的時間格式，請重新填寫！');history.back();</script>"
   response.end
 end if
  
 formPath="/UploadFile/ProductFile"'得到上傳目錄
 if right(formPath,1)<>"/" then formPath=formPath&"/"  ''在目錄后加(/)

 set file1=upload.file("T_ProductPic")  ''生成一個文件對象
 set file2=upload.file("T_OtherFile")  
 FileName1=makefilename()&"_Pic."&GetExtendName(file1.FileName)
 FileName2=makefilename()&"_File."&GetExtendName(file2.FileName)

 if file1.FileSize>200000 then
    response.write "<script>alert('上傳文件不能大于200K，請重新選擇！');history.back();</Script>"
    response.end
 end if
 if file2.FileSize>1000000 then
    response.write "<script>alert('上傳文件不能大于1M，請重新選擇！');history.back();</Script>"
    response.end
 end if

'--------------------------------------------刪除無用的文件或圖片
  Set fso = CreateObject("Scripting.FileSystemObject")
  arrUploadFiles=split(upload.form("UploadFile"),"$")
  UploadFile=""
  for intTemp=0 to ubound(arrUploadFiles)
    if instr(upload.form("Content"),arrUploadFiles(intTemp))<=0 then
      strRubbishFile=server.MapPath("/UploadFile/ProductFile/" & arrUploadFiles(intTemp))
      if fso.FileExists(strRubbishFile) then
        fso.DeleteFile(strRubbishFile)
      end if
    else
      if intTemp=0 then
         UploadFile=arrUploadFiles(intTemp)
      else
         UploadFile=UploadFile & "$" & arrUploadFiles(intTemp)
      end if
    end if
  next
  
 if file1.FileSize>0 then file1.SaveAs Server.mappath(formPath&FileName1) else FileName1=""  ''如果 FileSize > 0 說明有文件數據,保存文件  
 if file2.FileSize>0 then file2.SaveAs Server.mappath(formPath&FileName2) else FileName2=""   ''如果 FileSize > 0 說明有文件數據,保存文件   
 set file1=nothing
 set file2=nothing
 conn.execute("insert into tenProduct(Title,ProductPic,OtherFile,CateID,Price,Content,UploadFile,IsHot,Hits,AddTime,StateFlag) values('"&MyRequest(upload.form("T_Title"))&"','"&FileName1&"','"&FileName2&"',"&upload.form("S_CateID")&",'"&upload.form("T_Price")&"','"&MyRequest(upload.form("Content"))&"','"&UploadFile&"',"&upload.form("R_IsHot")&",0,'"&upload.form("T_AddTime")&"',"&upload.form("R_StateFlag")&")")

 response.write "<script>alert('恭喜您，產品已經成功發布，按確定返回！');location.replace('enProductManageAdd.asp?S_CateID="&upload.form("S_CateID")&"');</script>"
 set upload=nothing

%>