Resize med ASPImage
Jeg skal have genereret en thumbnail og til det har jeg forsøgt at anvende ASPImage.Men det virker ikke.
Jeg får ikke nogen fejlmeddelelse, blot et 'broken image rødt kryds'
Jeg har på fornemmelsen, at jeg har lavet en idiotisk fejl, men jeg kan ikke spotte den...
Der hvor thumbnailen skal vises har jeg følgende:
<img src=thumbnail.asp?FileName=pics/0003_MimeFishies.JPG&Size=200>
Og i thumbnail.asp følgende:
<%
If Request("FileName") <> "" Then
Set FileObject = CreateObject("Scripting.FileSystemObject")
If FileObject.FileExists(Request("FileName")) Then
If Request("Size") <> "" Then
Size = Int(Request("Size"))
Else
Size = 418
End If
Response.Expires = 0
Set Image = Server.CreateObject("AspImage.Image")
Response.ContentType = "image/jpeg"
Image.LoadImage (Request("FileName"))
Width = Image.MaxX
Height = Image.MaxY
If Width < Size Then Size = Width
If Width > Height Then
NewWidth = Round(Size/Width,2)
NewHeight = Int(NewWidth*Height)
Image.Resize Size,NewHeight
Else
NewHeight = Round(Size/Height,2)
NewWidth = Int(NewHeight*Width)
Image.Resize NewWidth,Size
End If
Image.ImageFormat = 1
Image.JPEGQuality = 50
ProgressiveJPEGEncoding = true
Response.BinaryWrite Image.Image
Set Image = nothing
End If
Set FileObject = nothing
End If
%>
(Indholdet af thumbnail.asp har jeg personligt tyvstjålet fra http://www.mpa-lifetech.de/Forum/aspObjects/Dynamic%20Image%20Thumbnails%20Using%20ASPImage%20and%20the%20FileSystemObject.htm , som der i en anden post om ASPImage henvises til)