水印效果为什么不透明

[会织网的蚂蚁]

<%
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath("t.jpg")
Jpeg2.Open Server.MapPath("t1.gif")
Jpeg1.Canvas.DrawImage 200, 200, Jpeg2'optional arguments omitted
jpeg1.save Server.mappath("tt.jpg")
%>
<img src="tt.jpg">

[jhwcd]

文字水印我试过：

 
peg.Canvas.Brush.Solid = True 
Jpeg.Canvas.Font.Quality = 4 ’ ’输出质量 
Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-100,Jpeg.OriginalHeight/2+20,"www.sotuku.com" ’水印位置及文字 
bb=Jpeg.Binary ’将文字水印处理后的值赋给bb，这时，文字水印没有不透明度 
’============调整文字透明度================ 
Set MyJpeg = Server.CreateObject("Persits.Jpeg") 
MyJpeg.OpenBinary aa 
Set Logo = Server.CreateObject("Persits.Jpeg") 
Logo.OpenBinary bb 
MyJpeg.DrawImage 0,0, Logo, 0.2 ’0.3是透明度 
cc=MyJpeg.Binary ’将最终结果赋值给cc,这时也可以生成目标图片了 
response.BinaryWrite cc ’将二进输出给浏览器 
MyJpeg.Save (TargetFile) 
set aa=nothing 
set bb=nothing 
set cc=nothing 
Jpeg.close 
MyJpeg.Close 
Logo.Close 
%>

[wcwtitxu]

<% 
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath("t.jpg")
Jpeg2.Open Server.MapPath("t1.gif")
Jpeg1.DrawImage 200, 200, Jpeg2, 0.5 '第四个参数:不透明度
Jpeg1.Save Server.mappath("tt.jpg")
%>
<img src="tt.jpg" />

[zhjb1]

1,2楼用的是ASPJpeg组件，你可以试试XYGraphics组件，有一个demo和说明文档，挺好用的。试试

[ly8199]

用PNG的吧。。。。。效果比较好。

[boigel]

Jpeg1.DrawImage 200, 200, Jpeg2, 0.7, &HFFFFFF

0.7是图片透明度，1为不透明
&HFFFFFF是水印要被去掉的底色，这里是白色