Realization of Image watermark code by ASP

The ASP realizes the picture to add the watermark code, wants to install the ASPJEPG component
<%
Set Jpeg1=server.createobject ("Persits.jpeg")
Jpeg1.open Server.MapPath ("1.jpg") ' artwork

' Add watermark
Set Jpeg2=server.createobject ("Persits.jpeg")
Jpeg2.open Server.MapPath ("watermark.gif") ' Watermark map

Jpeg1.canvas.drawimage 0,0,JPEG2,0.7,&HFFFFFF

' coordinates x, coordinates y, watermark, transparency, go white bottom

Jpeg1.save Server.MapPath ("2.jpg") ' after adding a watermark

Set jpeg1=nothing
Set jpeg2=nothing
%>