利用jpeg組件加圖片浮水印函數

來源:互聯網
上載者:User
函數 寫了圖片浮水印效果函數,代碼如下:

   
程式碼:

 sub jpegclass(imgurl,fontsize,family,isbold,top,left,content) '調用過程名 
    
    Dim Jpeg,font_color,font_size,font_family,f_width,f_height,f_content
    '建立執行個體
        Set Jpeg = Server.CreateObject("Persits.Jpeg")
    
       font_size=10
       font_family="宋體"
       f_left= 5
       f_top=5

          if imgurl<>"" then
             Jpeg.Open Server.MapPath(imgurl)‘圖片路徑並開啟它
           else
           response.write "未找到圖片路徑"
             exit sub 
           end if
        
          if fontsize<>"" then font_size=fontsize  ’字型大小
          if family<>"" then   font_family=family   ‘字型
          if top<>"" then f_left=left       ’浮水印離圖片左邊位置
          if left<>"" then f_top=top    ‘浮水印離圖片top位置
          if content="" then  ‘浮水印內容
               response.write "浮水印什麼內容呢,浮水印不成功!"
               exit sub
           else
               f_content=content
           end if
            

           ' 添加文字浮水印
           Jpeg.Canvas.Font.Color = &hff0000    ' 紅色
          Jpeg.Canvas.Font.Family = font_family
          jpeg.canvas.font.size=  font_size
          if isbold=1  then  
          Jpeg.Canvas.Font.Bold = True 
          end if 
          Jpeg.Canvas.Print f_left,  f_top, f_content

           ' 儲存檔案
          Jpeg.Save Server.MapPath(imgurl)

          ' 登出對象
           Set Jpeg = Nothing
           response.write "浮水印成功,圖片上加了  "&content&""
end sub 

調用如下:call jpegclass("psg.jpg",13,"楷體",1,18,18,"你好,這是浮水印程式")

   就可輕鬆實現圖片浮水印效果,當然你的伺服器必須支援ASPJPEG組件!
   

 sub jpegclass(imgurl,fontsize,family,isbold,top,left,content) '調用過程名 
    
    Dim Jpeg,font_color,font_size,font_family,f_width,f_height,f_content
    '建立執行個體
        Set Jpeg = Server.CreateObject("Persits.Jpeg")
    
       font_size=10
       font_family="宋體"
       f_left= 5
       f_top=5

          if imgurl<>"" then
             Jpeg.Open Server.MapPath(imgurl)‘圖片路徑並開啟它
           else
           response.write "未找到圖片路徑"
             exit sub 
           end if
        
          if fontsize<>"" then font_size=fontsize  ’字型大小
          if family<>"" then   font_family=family   ‘字型
          if top<>"" then f_left=left       ’浮水印離圖片左邊位置
          if left<>"" then f_top=top    ‘浮水印離圖片top位置
          if content="" then  ‘浮水印內容
               response.write "浮水印什麼內容呢,浮水印不成功!"
               exit sub
           else
               f_content=content
           end if
            

           ' 添加文字浮水印
           Jpeg.Canvas.Font.Color = &hff0000    ' 紅色
          Jpeg.Canvas.Font.Family = font_family
          jpeg.canvas.font.size=  font_size
          if isbold=1  then  
          Jpeg.Canvas.Font.Bold = True 
          end if 
          Jpeg.Canvas.Print f_left,  f_top, f_content

           ' 儲存檔案
          Jpeg.Save Server.MapPath(imgurl)

          ' 登出對象
           Set Jpeg = Nothing
           response.write "浮水印成功,圖片上加了  "&content&""
end sub 

調用如下:call jpegclass("psg.jpg",13,"楷體",1,18,18,"你好,這是浮水印程式")

   就可輕鬆實現圖片浮水印效果,當然你的伺服器必須支援ASPJPEG組件!

相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。