ASp使用AspJpeg组件制作透明文字水印
技术支持：
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"
DimJpeg
SetJpeg=Server.CreateObject("Persits.Jpeg")
IfErr.Number=-2147221005then
Response.write"没有这个组件，请安装!"'检查是否安装AspJpeg组件
Response.End()
EndIf
Jpeg.Open(LocalFile)'打开图片
Iferr.numberthen
Response.write"打开图片失败,请检查路径！"
Response.End()
Endif
DimTempA'原始图片的二进制数据
DimTempB'加了不透明文字水印的图片
DimTempC'最终效果
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.PrintTextJpeg.OriginalWidth/2-150,Jpeg.OriginalHeight/2,"www.Tsingfeng.com"'水印位置及文字
TempB=Jpeg.Binary'将文字水印处理后的值赋给TempB，这时，文字水印没有不透明度
'============调整文字透明度================
SetMyJpeg=Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinaryTempA
SetLogo=Server.CreateObject("Persits.Jpeg")
Logo.OpenBinaryTempB
MyJpeg.DrawImage0,0,Logo,0.2'0.3是透明度
TempC=MyJpeg.Binary'将最终结果赋值给TempC,这时也可以生成目标图片了
response.BinaryWriteTempC'将二进输出给浏览器
MyJpeg.Save(TargetFile)
setTempA=nothing
setTempB=nothing
setTempC=nothing
Jpeg.close
MyJpeg.Close
Logo.Close
%>