组件下载地址

http://www.haicode.net/soft/book/aspzj/down-70.html

<%if right(filename,3)="jpg" or right(filename,3)="gif" then  '先判断下是否为图片了
   Dim Jpeg
   Set Jpeg = Server.CreateObject("Persits.Jpeg")
   Jpeg.Open Server.MapPath(filename)
   TempA=Jpeg.Binary'将原始数据赋给TempA
   Jpeg.Canvas.Font.Color = &Hfffffff'水印文字颜色
   Jpeg.Canvas.Font.Family = Arial'字体
   Jpeg.Canvas.Font.Bold = True'是否加粗
   Jpeg.Canvas.Font.Size = 35'字体大小
   Jpeg.Canvas.Font.ShadowColor = &H000000'阴影色彩
   Jpeg.Canvas.Font.ShadowYOffset = 1
   Jpeg.Canvas.Font.ShadowXOffset = 1
   Jpeg.Canvas.Brush.Solid = True
   Jpeg.Canvas.Font.Quality = 5'输出质量
   Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-150,Jpeg.OriginalHeight/2,"www.haicode.net"
   TempB=Jpeg.Binary'将文字水印处理后的值赋给TempB，这时，文字水印没有不透明度
   '============调整文字透明度================
   Set MyJpeg = Server.CreateObject("Persits.Jpeg")
   MyJpeg.OpenBinary TempA
   Set Logo = Server.CreateObject("Persits.Jpeg")
   Logo.OpenBinary TempB
   MyJpeg.DrawImage 0,0, Logo, 0.2'0.3是透明度
   MyJpeg.Save (server.mappath(filename))
   Jpeg.close
   MyJpeg.Close
   Logo.Close
   set tempa=nothing
   set tempb=nothing
   Set Jpeg = Nothing
   set Logo=nothing
end if%>