Image resize samt thumbnail
Hejsa eksperter!Jeg har et script som der uploader billeder til server, men jeg ville gerne have det til at resize billedet samt lave et thumbnail såldedes der er to billeder!
Mit script er forneden - hvad skal der indsættes før den resizer og laver et thumbnail?
På forhånd tak! der er foresten installeret aspimage v2
-------------------------------------
<%
' Dynamically rename an uploaded file according to a HIDDEN field.
' First upload to memory, then call File.SaveAs
' to save the file under a name specified by a hidden field..
Set Upload = Server.CreateObject("Persits.Upload.1")
' Optional: make sure file names are unique when calling File.SaveAs
Upload.OverwriteFiles = True
Count = Upload.SaveToMemory
If Count > 0 Then ' 1 file uploaded
Set File = Upload.Files(1)
Path = "D:\home\website\www\billeder\design\" & Upload.Form("Filename")
' Side effect: SaveAs sets changes File.Path property to a new value.
File.SaveAs Path
Response.redirect ("indexin.asp")
Else
Response.redirect ("indexin.asp")
End If
%>
