asp圖片加浮水印的功能

標籤：www   pat   大小   .com   create   text   技術   cti   end   

 

asp肯定是需要組件來實現的。找了一個AspJpeg的組件，實現了圖片浮水印或者文字浮水印的功能，使用的組件名稱是：AspJpeg 1.9.0.1 (搜尋V1.9應該就可以找到) 破解註冊碼：17361-38566-42221（安裝完成的時候輸入）

‘傳入的參數是需要處理的圖片路徑，自己根據需要可以調整參數或者加入其它的參數
‘文字浮水印
Function WordWatermark(ImagePath)
      Dim Image
      Set Image= Server.CreateObject("Persits.Jpeg")  ‘ 建立對象
      Image.Open server.mappath(ImagePath)  ‘ 圖片所在位置
      Image.Canvas.Font.Color = &H000000 ‘ 顏色,這裡是設定成:黑 
      Image.Canvas.Font.Family = "宋體"  ‘ 設定字型 
      Image.Canvas.Font.Bold = False ‘是否設定成粗體 
      Image.Canvas.Font.Size = 26 ‘字型大小 
      Image.Canvas.Font.Quality = 4 ‘ 文字清晰度
      Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, "浮水印文字"   ‘浮水印文字
      Image.Save server.mappath(ImagePath)  ‘ 儲存檔案
      Set Image= Nothing
End Function

‘圖片浮水印
Function ImageWatermark(ImagePath)
    Set Image = Server.CreateObject("Persits.Jpeg")
    ‘確定要加入浮水印的圖片路徑
    PhotoPath = Server.MapPath(ImagePath)
    Image.Open PhotoPath
    ‘開啟浮水印圖片
    Set Logo = Server.CreateObject("Persits.Jpeg")
    LogoPath = Server.MapPath("logo.jpg") ‘浮水印的圖片
    Logo.Open LogoPath    
    Logo.Width = 121 ‘浮水印圖片的大小
    Logo.Height = 50
    Transition_Color = &h0066cc
    ‘將浮水印放置於上傳圖片中
    Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
‘在這裡可以更改浮水印所在的位置（photo.width-210,photo.height-40 這裡我是放在了圖片的右下角）還可以更改浮水印的透明度 
    ‘儲存增加浮水印後的圖片
    Image.Save Server.MapPath(ImagePath)

 Set Photo = Nothing
End Function

 

 

asp圖片加浮水印的功能