Kunci suksesnya disini adalah: gambar watermark harus berformat png, dan efeknya akan sama jika background dihilangkan. Fungsi pelaksanaan operasi:
Copy kode kodenya sebagai berikut:
Fungsi Tambahkan Air (n)
Setel Foto = Server.CreateObject(Persits.Jpeg)
Jalur Foto = Server.MapPath(n)
Foto.Buka PhotoPath
Foto.Interpolasi=1
Foto.Kualitas=100
iWidth=Foto.Lebar Asli
iHeight=Foto.Tinggi Asli
iiwidth=214 'Lebar gambar watermark
iiheight=51 'Tinggi gambar watermark
Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath(Water.png) 'Water.png adalah gambar tanda air
Photo.save Server.mappath(n) 'Gambar keluaran
Setel Foto = Tidak Ada
Fungsi Akhir
Metode panggilan:
<% Hubungi AddWater (nama gambar)%>