brug af aspimage i en løkke
Jeg har en løkke som resizer x antal billeder i thumbnails og et stort billede, det gør jeg på følgende måde:Set Image = Server.CreateObject("AspImage.Image")
' Billede hentes
Image.LoadImage sti & "\" & file.name
' Vi laver et thumbnail og gemmer det imappen med thumbnails
intRatio = ((75 * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.Resize 75, intNewY
Image.ImageFormat = 1
Image.JPEGQuality = 72
Image.filename = sti & "\thumbnails\" & filnavn
Image.SaveImage
Set Image = nothing
Response.ContentType = "image/jpeg"
Set Image = Server.CreateObject("AspImage.Image")
' Billede hentes
Image.LoadImage sti & "\" & file.name
' Der laves et billede stort billede til nettet
intRatio = ((300 * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.Resize 300, intNewY
Image.ImageFormat = 1
Image.JPEGQuality = 72
Image.filename = sti & "\images\" & filnavn
Image.SaveImage
Set Image = nothing
Response.ContentType = "image/jpeg"
Kan jeg ikke lave dette på en pænere måde, jeg tænker på at jeg skal sætte "Set Image = Server.CreateObject" for hvergang jeg resizer for at det virker.
