Bjarne wrote in dk.edb.internet.webdesign.serverside.asp:
> Hvordan laver man thumbnail med aspimage af eksisterende billeder på
> serveren ?
Her er et eksempel, som er skabt af en anden fyr her i gruppen. Den er
modificeret lidt af mig, så thumbnails bliver vist med korrekte
proportioner.
Fidusen er, at du linker til filen herunder på din side med thumbnails.
Hvis filen herunder kaldes 'makethumb.asp', kan koden se sådan her ud:
<a href="visbillede.asp?billede=/images/P0014014.jpg"><img
src="makethumb.asp?path=/images/&file=p0014014.jpg"></a>
Makethumb.asp kan se sådan her ud:
<%
Dim strFuldeSti, strFilNavn, intSize, intQuality
'disse variabler henter stien og filnavnet i adressen:
strFuldeSti = Request("Path")
strFilNavn = Request("File")
'Størrelsen og kvaliteten af billederne:
intSize = 50
intQuality = 90
'Kalder ASPimage-objektet:
Set MyImage = Server.CreateObject("AspImage.Image")
Dim strOriginal
strOriginal = strFuldeSti & strFilNavn
MyImage.LoadImage strOriginal
'Følgende kode beregner, hvilken side der er størst, og sætter
størrelsen derefter
If Myimage.MaxX > MyImage.MaxY then
IntYSize = 100
IntXSize = (intYSize / MyImage.MaxY) * MyImage.MaxX
Else
IntXSize = 100
IntYSize = (intXSize / MyImage.MaxX) * MyImage.MaxY
End if
'thumbnailen bliver skrevet i binært format:
MyImage.Resize intXSize, intYSize
MyImage.ImageFormat = 1
MyImage.JPEGQuality = intQuality
ProgressiveJPEGEncoding = true
Response.BinaryWrite MyImage.Image
Set MyImage = Nothing
End If
%>
Mvh. Troels
--
http://www.troelsweb.dk