Hjælp til resize med aspimage
HejJeg ville frygtelig gerne have hjælp til at bruge aspimage til at resize nogle billeder mens de vises i et link.
Ideen er at jeg har følgende:
<td><a href="<% =rs("link")%>" target="_blank"><img src="<% =rs("link")%>" width="NYRESIZED" height=NYRESIZED"></a></td>
hvor rs("link") fx er images\fordt.jpg
Jeg ville så gerne have det sådan at jeg kunne angive en størrelse som de her thumbnail skal være. Herunder er noget standard kode til aspimage som jeg har fundet. Men jeg kan ikke lige gennemskue at rette det til. Hjælp?
<%
FileName=request.querystring("FileName")
size=Cint(request.querystring("size"))
PWidth=Cint(request.querystring("Width"))
PHeight=Cint(request.querystring("Height"))
Response.ContentType = "image/jpeg"
'*** get width/height of original image
Set Image = Server.CreateObject("AspImage.Image")
Myfolder ="images"
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "aspimage\" & FileName
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.CreateButton 5,true
Image.ImageFormat = 1
Image.JPEGQuality = 80
if size>0 AND ImageWidth > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
if PWidth >0 AND ImageWidth > PWidth then
NewHeight = Cint(ImageHeight*PWidth/ImageWidth)
NewWidth = PWidth
Image.ResizeR NewWidth,NewHeight
end if
if PHeight >0 AND ImageHeight > PHeight then
NewWidth = Cint(ImageWidth*PHeight/ImageHeight)
NewHeight = PHeight
Image.ResizeR NewWidth,NewHeight
end if
Response.BinaryWrite Image.Image
Set Image = Nothing
%>
<td><a href="<% =rs("link")%>" target="_blank"><img src="<% =rs("link")%>" width="100" height=60"></a></td>