加图片水印的代码有吗？

来源：百度知道 编辑：UC知道 时间：2024/05/28 15:31:03
ASP程序 ，想实现图片加图片标志的水印，有什么代码可以吗？网上好些都不能用的，文字水印很好用的

用的是AspJpeg组件

<%
ll=0.07
TargetFile="d:mytest_Text.jpg"
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
Response.write "没有这个组件，请安装!" '检查是否安装AspJpeg组件
Response.End()
End If
Jpeg.Open Server.MapPath("admin/up/upfile/200759945079609.jpg") '打开图片
If err.number then
Response.write"打开图片失败,请检查路径！"
Response.End()
End if
Dim aa
aa=Jpeg.Binary '将原始数据赋给aa
'=========加文字水印=================
Jpeg.Canvas.Font.Color = &Hfffffff '水印文字颜色
Jpeg.Canvas.Font.Family = Arial '字体
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.Font.Size = 60 '字体大小
Jpeg.Canvas.Font.ShadowColor = &H000000 '’阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = True
Jpeg.Canvas.Font.Quality = 4 '输出质量
Jpeg.Canvas.PrintText