A chave do sucesso aqui é: a imagem da marca d'água deve estar no formato png e o efeito será o mesmo quando o fundo for removido. Função de implementação da operação:
Copie o código do código da seguinte forma:
Função AdicionarÁgua(n)
Definir foto = Server.CreateObject (Persits.Jpeg)
PhotoPath = Servidor.MapPath(n)
Foto.Abrir PhotoPath
Foto.Interpolação=1
Foto.Qualidade=100
iWidth=Foto.LarguraOriginal
iHeight=Foto.OriginalHeight
iiwidth=214 'Largura da imagem da marca d'água
iiheight=51 'Altura da imagem da marca d'água
Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath(Water.png) 'Water.png é a imagem da marca d'água
Photo.save Server.mappath(n) 'Imagens de saída
Definir foto = nada
Função final
Método de chamada:
<% Chame AddWater(nome da imagem)%>