<!--#include File="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->

<% 
''將當前的日期和時間轉為文件名
Function makefilename()
  Dim fname
  fname = now()
  fname = trim(fname)
  fname = replace(fname,"-","")
  fname = replace(fname,"/","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname
End Function 

Dim id

id = Request.QueryString("id")

Dim upload,file,formName,formPath
Dim i,l,fileType,newfilename,filenamelist
'創建新文件名稱
newfilename = makefilename()
'建立上傳對象
Set upload = New upload_5xsoft 
'上傳文件目錄
formPath = Server.mappath("images")&"\"
'列出所有上傳了的文件
For Each formName In upload.objFile
 '生成一個文件對象
 Set file = upload.file(formName)  
 '如果 FileSize > 0 說明有文件數據
 If file.FileSize>0 Then
  '取得文件擴展名      
  fileType = file.FileName '文件名以及擴展名
  i = Instr(fileType,".")  '是否存在“.”
  l = Len(fileType)  
  If i>0 Then
    fileType = Right(fileType,l-i+1) '得到擴展名
  End If
  newfilename = newfilename & fileType
  filenamelist = formPath&newfilename  '新文件絕對地址和名稱
'   Response.Write filenamelist&"--<br>--"
  file.SaveAs filenamelist   ''保存文件
 End If
 Set file = Nothing
Next

Dim oldFile
Set rs = Server.CreateObject("ADODB.RECORDSET")
Set rs = Conn.Execute("Select * From Goods Where id="&id)
If Not rs.Eof Then
  oldFile = rs("ImageFile")
  '刪除舊的圖片，替換表Goods字段imageFile中舊圖片文件
  filename = Server.MapPath("images\"&oldFile)
  Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
  If (MyFileObject.FileExists(Trim(filename))) Then
	MyFileObject.DeleteFile Trim(filename)
  End If
  sql = "Update Goods Set imageFile='"&newfilename &"' Where id="&id
  Response.Write sql
  Conn.Execute(sql)
End If		  
Set upload = Nothing  '刪除此對象

%>
<script language="javascript">
  opener.location.reload();
  window.close();
</script>