ASp使用AspJpeg组件制作透明文字水印

aspjpeg组件官方下载地址：http://www.persits.com/

说明：
　　 1、aspjpeg能对图片水印进行透明度调整，不能对文字水印调整，
　　 2、aspjpeg支持Binary，可以Jpeg.OpenBinary读取，可以Jpeg.sendBinary,也可Jpeg.Binary赋值
思路：
　　 1、把原始的图片数据二进制度赋值给TempA，
　　 2、将文字水印处理后的图片数据二进制赋值给TempB，
　　 3、以TempB作为"图片水印"，附加在TempA上，调整透明度，输出就ok了
思路很简单，代码也很简单：

<％
LocalFile="d:\apple.jpg" 
TargetFile="d:\myapple.jpg" 
Dim Jpeg 
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
If Err.Number=-2147221005 then 
Response.write "没有这个组件，请安装!"'检查是否安装AspJpeg组件 
Response.End() 
End If 
Jpeg.Open (LocalFile)'打开图片 
If err.number then 
Response.write"打开图片失败,请检查路径！" 
Response.End() 
End if 
Dim TempA '原始图片的二进制数据
Dim TempB '加了不透明文字水印的图片
Dim TempC '最终效果
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.Tsingfeng.com"'水印位置及文字 
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是透明度 
TempC=MyJpeg.Binary'将最终结果赋值给TempC,这时也可以生成目标图片了 
response.BinaryWrite TempC'将二进输出给浏览器 
MyJpeg.Save (TargetFile) 
set TempA=nothing 
set TempB=nothing 
set TempC=nothing 
Jpeg.close 
MyJpeg.Close 
Logo.Close 
％>

效果图：