<%
' --------------------------------------------------
' 功能: 给图片加图片水印 (采用ASPJPEG组件)
' 作者：不惊了 by 2007.12.5
' 参数: img：原图路径    logo：水印路径
' 说明: 加水印后的图覆盖原图
' 调用：Call Create_Watermark("images/01.jpg","images/logo.gif")
' --------------------------------------------------
Sub Create_Watermark(img,logo)
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    '读取原图片 
    Jpeg.Open Server.MapPath(img)
    Set Watermark = Server.CreateObject("Persits.Jpeg") 
    '读取添加的图片 
    Watermark.open Server.MapPath(logo) 
    '水印的x,y位置
    x=cint(Jpeg.originalwidth-Watermark.Width) 
    y=cint(Jpeg.originalheight-Watermark.Height)
    '添加水印
    Jpeg.DrawImage x, y, Watermark,0.5,&Hffffff
    '生成后的图片
    Jpeg.Save Server.MapPath(img) 
    Set Watermark=Nothing 
    set Jpeg=Nothing
End Sub
%>