Questo script ci permette di creare un'immagine con dimensioni ridotte, partendo da una con dimensioni grandi. Questo meccanismo è utile quando dobbiamo creare delle immagini che cliccando si ingrandiscono.

<%
'##################################
'#Come creare delle immagini
'#formato thumbnail (ridotto)
'##################################

Const MinPixels = 100

Set objImageSize = Server.CreateObject("ImgSize.Check")

objImageSize.FileName = Server.MapPath("immagine.jpg")

ImageHeight = objImageSize.Height
ImageWidth = objImageSize.Width

If ImageHeight > ImageWidth Then
    NewHeight = CInt(ImageHeight * MinPixels / ImageWidth)
    NewWidth = MinPixels
Else    
    NewWidth = CInt(ImageWidth * MinPixels / ImageHeight)
    NewHeight = MinPixels
End If

Set objImageSize = Nothing

Set Image = Server.CreateObject("ASPImage.Image")

Image.LoadImage(Server.MapPath("immagine.jpg")
Image.FileName = Server.MapPath(immagine_ridotta.jpg")
Image.Format = 1
Image.JPEGQuality = 70
Image.Resize NewWidth, NewHeight
Image.SaveImage

Set Image = Nothing
%>