Mika3l
2005-08-19, 23:05
När jag laddar upp bilder m.h.a aspUpload och sedan förminskar dom och sparar med annat namn så är dom gamla bilderna kvar på servern, hur ska jag göra för att bli av med dom? Testade att ladda upp i en annan mapp och sen ta bort alla filer i den m.h.a FSO men det var inte så lyckat.
Någon som kan hjälpa mig få ihop det hela? :)
objUpload.Save Server.MapPath("../images/archive")
For Each File in objUpload.Files
If File.ImageType <> "JPG" Then
Response.Write "Ogiltigt filformat! Det måste vara JPG din dumpung (" & File.Name & ")!<br /><br />"
File.Delete
Response.End
Else
SQLNewImage = "INSERT INTO tblImages (f_event) VALUES(" & objUpload.Form("event") & ")"
Connection.Execute(SQLNewImage)
Set rsGetID = Connection.Execute("select @@identity")
File.SaveAs Server.MapPath("../images/archive/" & rsGetID(0) & ".jpg")
rsGetID.Close : Set rsGetID = Nothing
objJpeg.Open File.Path
If objJpeg.OriginalWidth > objJpeg.OriginalHeight Then
objJpeg.Width = 400
objJpeg.Height = 300
Else
objJpeg.Width = 400
objJpeg.Height = 300
End If
objJpeg.Save File.Path
End If
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
'Set folder = Fso.GetFolder(Server.MapPath("../images/archive/tempupload"))
'Set files = Folder.Files
'For each Item In Files
'Item.Delete
'Next
'Set files = Nothing : Set folder = Nothing : Set fso = Nothing
Next
Response.Write("Bilderna har laddats upp!<br /><a href=""?page=images&action=upload"">Ladda upp fler --></a>")
Någon som kan hjälpa mig få ihop det hela? :)
objUpload.Save Server.MapPath("../images/archive")
For Each File in objUpload.Files
If File.ImageType <> "JPG" Then
Response.Write "Ogiltigt filformat! Det måste vara JPG din dumpung (" & File.Name & ")!<br /><br />"
File.Delete
Response.End
Else
SQLNewImage = "INSERT INTO tblImages (f_event) VALUES(" & objUpload.Form("event") & ")"
Connection.Execute(SQLNewImage)
Set rsGetID = Connection.Execute("select @@identity")
File.SaveAs Server.MapPath("../images/archive/" & rsGetID(0) & ".jpg")
rsGetID.Close : Set rsGetID = Nothing
objJpeg.Open File.Path
If objJpeg.OriginalWidth > objJpeg.OriginalHeight Then
objJpeg.Width = 400
objJpeg.Height = 300
Else
objJpeg.Width = 400
objJpeg.Height = 300
End If
objJpeg.Save File.Path
End If
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
'Set folder = Fso.GetFolder(Server.MapPath("../images/archive/tempupload"))
'Set files = Folder.Files
'For each Item In Files
'Item.Delete
'Next
'Set files = Nothing : Set folder = Nothing : Set fso = Nothing
Next
Response.Write("Bilderna har laddats upp!<br /><a href=""?page=images&action=upload"">Ladda upp fler --></a>")