Call the AspJpeg component to add a watermark to the picture logo

function Water_jpeg (FILENAMEB)
Dim Water_file,logo
Water_file = Server.MapPath (".. /logo_water.png ")
Filenameb = Server.MapPath (FILENAMEB)
Dim Jpeg
Set Jpeg = Server.CreateObject ("Persits.jpeg")
If-2147221005=err Then
Response.Write "No this component, please install!" ' Check whether to install

AspJpeg components
Response.End ()
End If
Jpeg.open (FILENAMEB) ' Open picture
If Jpeg.width >= and Jpeg.height >= Then
If Err.Number Then
Response.Write "Open picture failed, please check the path!" "
Response.End ()
End If
Set Logo = Server.CreateObject ("Persits.jpeg")
Logo.open water_file ' Open watermark picture

Jpeg.drawimage jpeg.width-300, jpeg.height-90,

Logo,0.8,&hffffff ' parameter order: horizontal coordinates, vertical coordinates, logo address, transparency, pumping

Fetch color (&h 16)
  jpeg.save filenameb ' save file
  set Logo = Nothing
 end if
& Nbsp;set Jpeg = Nothing
End Function
Site original. NET Tutorial ">www.111cn.net