ASPImage billedstørelse
HejsaJeg har et script (Se nedenstående) som "krymper" billeder på en hjemmeside og beholder billedets "constraints". Dette er og helt fint hvis billedet er f.eks 800x600 pixels, men ikke hvis billedet er f.eks 450x41 pixels og scriptet har sat at højde skal være 100 pixels, så har jeg pludseligt et MEGET stort billed på siden. Jeg ville gerne at der i nedenstående script kunne difeneres at billedet skal holde sig inden for width 120 pixels og height 100 pixels!
Er dette muligt??
SCRIPTET ER:
<%
Dim ImageName, DummyPic
'Create a Random Number called Random_Number
Randomize
'Set your Min and Max Values
Random_Number_Min = 2
Random_Number_Max = 9999
'Call the RND Command
Random_Number = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min)
DummyPic = "../../img/nopic.jpg"
ImageName = "/admin/frame/shop/prodimg/" & prodrs("image")
if Len(ImageName) < 1 then
ImageName = DummyPic
end if
ImageName = Server.MapPath(ImageName)
'response.write(ImageName)
'*** get width/height of original image
Set objImageSize = Server.CreateObject("ImgSize.Check")
objImageSize.FileName = ImageName
ImageHeight = objImageSize.Height
ImageWidth = objImageSize.Width
If ImageHeight < 1 then ImageHeight = 1 end if
If ImageWidth < 1 then ImageWidth = 1 end if
'*** calculate aspect ratio based on MINPIXELS
If ImageHeight > ImageWidth Then
NewHeight = (ImageHeight*(MINPIXELS2/ImageWidth)) '###CInt
NewWidth = MINPIXELS2
Else
NewWidth = (ImageWidth*(MINPIXELS2/ImageHeight)) '###CInt
NewHeight = MINPIXELS2
End If
Set objImageSize = Nothing
'*** create thumbnail image
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(ImageName)
newPicFileNameOnDisk = ""
NewPicLogicalFileName = ""
NewPicLogicalFileName = "/admin/frame/shop/prodimg/small/small_" & Random_Number & ".jpg"
newPicFileNameOnDisk = Server.MapPath(NewPicLogicalFileName)
newPicFileNameOnDisk = trim(newPicFileNameOnDisk)
response.write(newPicFileName)
Image.FileName = newPicFileNameOnDisk
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing
Response.Write "<img src=""" & newPicLogicalFileName & """ border=""0"">"
'wend
%>
Hilsen
Stig :-)
