Question

asp 透明图片加上图片水印后如何继续保持透明？

原来的图片背影是透明的，但是我添加水印后，透明的背景就变成黑色了。我的水印源码如下，要怎么样写图片才能保持透明背景呢。
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''装载图片
obj.LoadImgMarkPic server.mappath("blend.bmp") ''装载水印图片
obj.Quality=75
obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo ''生成图片名字,文字颜色即水印在图片的位置
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

Answer 1

我有一个加图片水印的代码！可以透明gif的背景图的
<%
Public Function AddPersitsJpeg(Path)
'**************加图片水印*******************
Dim photo,logo,photopath,logopath
Set Photo = Server.CreateObject("Persits.Jpeg")
PhotoPath = Server.MapPath(Path) 'Path为路片路径及名称
Photo.Open PhotoPath '打开图片
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("logo/sinalogo.gif") '水印图片的路径
Logo.Open LogoPath
Logo.Width = photo.width /4 '水印图片的宽度
Logo.Height = photo.width /12
Photo.Canvas.Pen.Color = &H000000
Photo.Canvas.Pen.Width = 0
Photo.Canvas.Brush.Solid = False
Photo.DrawImage (photo.width-Logo.Width-20), photo.height-Logo.Height-10, Logo,0.6,&H000000
photo.Save Server.MapPath(Path) ''水印显示在图片上的XY位置
Set logo = Nothing
Set photo = Nothing
End Function
%>