淡水河边的博客

效果图：

技术支持：
　　 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.Cr&#101;ateObject("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 = &amp;Hfffffff"水印文字颜色
Jpeg.Canvas.Font.Family = Arial"字体
Jpeg.Canvas.Font.Bold = True"是否加粗
Jpeg.Canvas.Font.Size = 35"字体大小
Jpeg.Canvas.Font.ShadowColor = &amp;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.Cr&#101;ateObject("Persits.Jpeg")
MyJpeg.OpenBinary TempA
Set Logo = Server.Cr&#101;ateObject("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
%>
原图：