<%
'建立實(shí)例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
'打開(kāi)要加水印的圖片
Jpeg.Open Server.mappath(路徑)
'透明圖片水印圖
Jpeg1.Open Server.mappath("../Images/sy.gif")
'合并圖
Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF '這句是可以起到加的gif或者png8圖片的背景透明，png24的格式會(huì)顯示有毛邊
' 保存文件
Jpeg.Save Server.mappath(路徑)
' 注銷對(duì)象
Set Jpeg = Nothing
Set Jpeg1 = Nothing
%>

加透明圖片水印，實(shí)際上就是將兩個(gè)圖合并，最關(guān)鍵的就是這一句：
Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF
其中0.6是透明度，1是不透明，值越小，透明越大，0就什么也看不見(jiàn)了。&HFFFFFF這個(gè)參數(shù)是最關(guān)鍵的，這是透明圖片水印圖的背景色，這個(gè)參數(shù)必須與透明圖片水印圖的背景一樣，不然的話就實(shí)現(xiàn)不了透明了。就是我們不想看到的那一部分色。

以下是我們的實(shí)例
<%
On Error Resume Next
'先加載原始圖片
Set yuan_jpeg = Server.CreateObject("Persits.Jpeg")
yuan_jpeg.RegKey="48958-77556-02411"
yuan_jpeg.open server.MapPath("yunshi/yuantu.jpg") '加載要加水印的圖片

'加載頭像水印圖片
set shuiying_jpeg = Server.CreateObject("Persits.Jpeg")
shuiying_jpeg.RegKey="48958-77556-02411"
shuiying_jpeg.open server.MapPath("touixiang.jpg") '加載頭像圖片 '做為水印加上
shuiying_jpeg.Width = 150
shuiying_jpeg.Height = 150
'在原圖上加上頭像圖片
yuan_jpeg.DrawImage 210, 320, shuiying_jpeg
yuan_jpeg.Quality=65 '0 (default), 1 (draft), 2 (proof), 3 (non-antialiased), 4 (antialiased) 生成圖片的品質(zhì)
shuiying_jpeg.close
set shuiying_jpeg = nothing
'注銷加頭像的過(guò)程

'姓名
yuan_jpeg.Canvas.Font.Color = &Hd11f03 'red 顏色
yuan_jpeg.Canvas.Font.Family = "黑體" '字體
yuan_jpeg.Canvas.Font.size = 56 '字體
yuan_jpeg.Canvas.Font.Bold = true '是否加粗
yuan_jpeg.Canvas.Print 530, 365, "深山工作室"'打印坐標(biāo)x 打印坐標(biāo)y 需要打印的字符

'位置
yuan_jpeg.Canvas.Font.Color = &H2508fd 'red 顏色
yuan_jpeg.Canvas.Font.Family = "黑體" '字體
yuan_jpeg.Canvas.Font.size = 36 '字體
yuan_jpeg.Canvas.Font.Bold = true '是否加粗
yuan_jpeg.Canvas.Print 390, 890, "中國(guó)" '打印坐標(biāo)x 打印坐標(biāo)y 需要打印的字符


'加載汽車水印圖片
set car_jpeg = Server.CreateObject("Persits.Jpeg")
car_jpeg.RegKey="48958-77556-02411"
car_jpeg.open server.MapPath("yunshi/car/che.jpg")
yuan_jpeg.Canvas.DrawImage 685,740,car_jpeg,1,&HFFFFFF
yuan_jpeg.Quality=20 '生成20品質(zhì)的成品圖片
car_jpeg.close
set car_jpeg=nothing

newimg_src = "/UploadFiles/down_touxiang/tupian.jpg" '要保存的新的圖片地址
yuan_jpeg.save server.MapPath(".." & newimg_src) '保存到文件夾
yuan_jpeg.close
set yuan_jpeg=nothing
%>