ASPJPEG is shareware produced by Persits. The trial period is 30 days. You can download it here: http://www.persits.com/aspjpeg.exe . The latest version number is 1.3
ASPJPEG is a very powerful image processing component. You can use it to easily create thumbnails of pictures and add watermarks to pictures. Here is a brief introduction to how to use it:
You first need to execute the downloaded exe file to install the component
1. Create a thumbnail for the image
<% 'Create an instance
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Picture location
Path = Server.MapPath("images") & "clock.jpg"
' Open
Jpeg.Open Path
'Set the thumbnail size (here the ratio is set to 50%)
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' Save the thumbnail to the specified folder
Jpeg.Save Server.MapPath("images") & "clock_small.jpg"
' Log out of the instance
Set Jpeg = Nothing
%>
<IMG SRC="images/clock.jpg"><P>
<IMG SRC="images/clock_small.jpg">
2. Add watermark function to pictures
<%
Dim Jpeg
'Create an instance
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Open the target image
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
'Add text watermark
Jpeg.Canvas.Font.Color = &HFF0000' Red
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"
' Save file
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")
'Unregister the object
Set Jpeg = Nothing
%>