Finns det någon som använder detta och som skulle kunna vara snäll att lägga upp ett exempel på hur koden kan se ut om man skall hämta upp en fil från servern, ändra storlek enligt givna mått (t.ex 300 pix bred) och spara ner under nytt filnamn?
Har suttit och läst online dokumentationen men är nog lite för trött för att fatta riktigt. Tycker det mesta i den verkar hantera textbehandling. Men får jag bara ngt att utgå från lär jag nog greja det.
<%
function CreateThumbnail(strPath, strFilename, maxX, maxY)
Set image = server.createobject("aspimage.image")
if image.loadimage(strPath & "\" & strFilename) then
intWidth = image.MaxX
intHeight = image.MaxY
if (intWidth<MaxX) and (intHeight<MaxY) then
if intWidth>intHeight then
intRatio=(maxX/intWidth)
image.resizeR intWidth*intRatio, intHeight*intRatio
else
intRatio=(maxY/intHeight)
image.resizeR intWidth*intRatio, intHeight*intRatio
end if
end if
'Optimised for JPEG thumbnails - generally better than GIFs
Image.ImageFormat = 1
Image.PixelFormat = 6
strSfilename=split(strFilename,".")
Image.Filename=strPath & "\thumb_" & strSfilename(0)
picture="thumb_" & strSfilename(0)
if Image.SaveImage then
response.write "<img src=""pics/" & picture & ".jpg"">"
Set Image = nothing
else
'You may want to put some kind of error handler in here
Set Image = nothing
end if
else
'Error while loading, abort
Set Image = nothing
exit function
end if
end function
