ASP fixed-scale crop thumbnails

This article mainly introduces the method of cropping thumbnails with fixed proportions of ASP. Friends who need it can refer to it.

There are two general methods to generate thumbnails:

The first type: Scale into a fixed-size small picture

The second type: small pictures that scale to equal proportions

The disadvantage of the first method is that it will deform the picture, such as a slim girl turning into a fat girl

The disadvantage of the second method is that if the picture is displayed in a table and the aspect ratio of the picture is different from this table, it cannot fill the entire table, leaving a gap, which is not good-looking.

The method introduced here is to fix the scale cropping , using the aspjpeg component, that is, the aspect ratio of the generated thumbnail is fixed, but will not deform. If the aspect ratio of the original image is greater than the set aspect ratio, the excess pictures on both sides will be automatically cut out; if the aspect ratio of the original image is less than the set aspect ratio, the excess pictures on the upper and lower sides will be automatically cut out; if the aspect ratio of the original image is less than the set aspect ratio, the excesses on the upper and lower sides will be automatically cut out. picture.

1. FunctionMakePic(sourcpic,newwidth,newheight,destpic)
2. Onerrorresumenext
3. MakePic=false
4. SetJpeg=Server.CreateObject(Persits.Jpeg)
5. ifErrthen
6. response.Write (Error: The aspjpeg component is not installed in the space)
7. response.end
8. endif
9. Jpeg.Quality=100
10. Jpeg.Opensourcpic
11. jpeg.PreserveAspectRatio=True' equal ratio scaling
12. ifjpeg.OriginalWidth/jpeg.OriginalHeight>newwidth/newheightthen'It's too flat, you need to cut off the left and right parts
13. jpeg.Height=newheight
14. jpeg.cropCInt((jpeg.Width–newwidth)/2),0,CInt((jpeg.Width–newwidth)/2)+newwidth,newheight
15. else'It's too high, cut off the upper and lower parts
16. jpeg.Width=newwidth
17. jpeg.crop0,CInt((jpeg.Height–newheight)/2),newwidth,CInt((jpeg.Height–newheight)/2)+newheight
18. endif
19. Jpeg.Savedestpic
20. iferr.number=0thenMakePic=True
21. Jpeg.Close
22. SetJpeg=Nothing
23. Endfunction