Menambahkan fungsi tanda air ke gambar dan membuat thumbnail untuk gambar 1. Tambahkan fungsi tanda air ke gambar
Redupkan JPEG
Setel Jpeg = Server.CreateObject(Persits.Jpeg) ' Buat objek
Jpeg.Open BlogPath & /upload/ & FileName ' Lokasi gambar
Jpeg.Canvas.Font.Color = &H000000' Warna, ini diset menjadi: hitam
Jpeg.Canvas.Font.Family = Pendiri menjadi Sederhana' Set font
Jpeg.Canvas.Font.Bold = False 'Apakah akan dicetak tebal
Jpeg.Canvas.Font.Size = 26'Ukuran font
Jpeg.Canvas.Font.Quality = 4' Kejelasan teks
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, WWW.WILLIAMLONG.INFO 'Teks tanda air
Jpeg.Simpan BlogPath & /upload/ & Nama File ' Simpan file
Tetapkan Jpeg = Tidak Ada
2. Buat thumbnail untuk gambar
Redupkan JPEG
Setel Jpeg = Server.CreateObject(Persits.Jpeg) ' Buat objek
Jpeg.Open BlogPath & /upload/ & FileName ' Lokasi gambar
Jpeg.Lebar = Jpeg.Lebar Asli / 2
Jpeg.Tinggi = Jpeg.Tinggi Asli / 2
'Atur ukuran thumbnail (di sini rasionya diatur ke 50%), Anda juga dapat memberikan nilai yang akurat, seperti Jpeg.Width=120
Jpeg.Simpan BlogPath & /upload/ & Nama File ' Simpan file
Tetapkan Jpeg = Tidak Ada