Parameter yang diteruskan adalah jalur gambar yang perlu diproses. Anda dapat menyesuaikan parameter atau menambahkan parameter lain sesuai kebutuhan .
'Tanda air teks
Fungsi Tanda Air Kata(Jalur Gambar)
Gambar Redup
Setel Gambar= Server.CreateObject(Persits.Jpeg) 'Buat objek
Image.Open server.mappath(ImagePath) 'Lokasi gambar
Image.Canvas.Font.Color = &H000000 'Warna, ini diatur ke: hitam
Image.Canvas.Font.Family = 宋体' Mengatur font
Image.Canvas.Font.Bold = False 'Apakah akan dicetak tebal
Gambar.Kanvas.Font.Ukuran = 26'Ukuran font
Image.Canvas.Font.Quality = 4' Kejelasan teks
Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, Teks tanda air'Teks tanda air
Gambar.Simpan server.mappath(ImagePath) 'Simpan file
Atur Gambar = Tidak Ada
Fungsi Akhir
'Tanda air gambar
Fungsi Tanda Air Gambar(Jalur Gambar)
Atur Gambar = Server.CreateObject(Persits.Jpeg)
'Tentukan jalur gambar yang akan ditambahkan ke watermark
Jalur Foto = Server.MapPath(Jalur Gambar)
Gambar.Buka PhotoPath
'Buka gambar tanda air
Set Logo = Server.CreateObject(Persits.Jpeg)
LogoPath = Server.MapPath(logo.jpg) 'Gambar tanda air
Logo.Buka LogoPath
Logo.Width = 121 'Ukuran gambar watermark
Logo.Tinggi = 50
Transisi_Warna = &h0066cc
'Tempatkan tanda air pada gambar yang diunggah
Gambar.DrawImage Gambar.lebar-150, Gambar.tinggi-59, Logo,1,Transisi_Warna,90
'Di sini Anda dapat mengubah letak watermark (photo.width-210, photo.height-40 di sini saya letakkan di pojok kanan bawah gambar) dan Anda juga dapat mengubah transparansi watermark
'Simpan gambar setelah menambahkan tanda air
Gambar.Simpan Server.MapPath(ImagePath)
Setel Foto = Tidak Ada
Fungsi Akhir