Resize billede med aspimage
Hejsa eksperter,Jeg har et website hos web10 - hvor jeg bruger aspimage til at automatisk resize nogle billeder.. det virker umiddelbart også godt, men mange af billederne bliver meget grumset når de bliver mindre??? jeg har prøvet aspjpeg som er super godt, men det har web10 ikke på deres server.. er der evt. noget jeg kan gøre anderledes for at få et bedre resultat end det jeg gør nu???
På forhånd tak
ImageDir = "../../upload/billeder/"
ImageIn=server.mappath(ImageDir) &"\"
ImageOut=server.mappath(ImageDir&"thum") &"\"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
For Each Image In objFiles
img = Image.Name
Set Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = false
Image.LoadImage(ImageIn& img )
X = Image.MaxX
Y = Image.MaxY
If X > 220 Then
ResizedX = 220
ResizedY = (ResizedX * Y/X)
else
ResizedX = X
ResizedY = Y
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = (ImageIn & img )
Image.SaveImage
Image.LoadImage(ImageIn& img )
X = Image.MaxX
Y = Image.MaxY
If X > 80 Then
ResizedX = 80
ResizedY = (ResizedX * Y/X)
else
ResizedX = X
ResizedY = Y
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = (ImageOut & img )
Image.SaveImage
Set Image = nothing
Next
Set objFS = Nothing
