當前位置:首頁 » 文件管理 » asp上傳圖片加水印

asp上傳圖片加水印

發布時間: 2024-10-30 01:24:46

『壹』 asp問題,程序增加水印功能!

首先伺服器下載安裝ASPJPEG組件,和Jmail組件一樣,一般伺服器都已經安裝好的,下面寫好了函數,直接調用函數即可。

<%function printwater(waterpath,upfilepath)
Dim Logobox,LogoPath,ogvbox
LogoPath = Server.MapPath(waterpath)
Set Logobox = Server.CreateObject("Persits.Jpeg")
Logobox.Open LogoPath
Logobox.Width = 108
Logobox.Height = 65
Set ogvbox = Server.CreateObject("Persits.Jpeg")
ogvbox.Open Trim(Server.MapPath(upfilepath))
ogvbox.Canvas.Pen.Color = &H000000 』//增加水印後圖片的邊框色彩。
ogvbox.Canvas.Pen.Width = 1 』//增加水印後圖片的邊框寬度。
ogvbox.Canvas.Brush.Solid = False 』//邊框內是否填充顏色,你可以試試看值為True時的效果^o^
ogvbox.DrawImage ogvbox.width-108, ogvbox.height-65, Logobox, 0.6
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height
ogvbox.Save Server.MapPath(upfilepath)
Set Logobox=Nothing
Set ogvbox=Nothing
end function

'調用示例
printwater("/images/水印圖片.gif","/uploadfile/上傳圖片.jpg")
%>

熱點內容
域名訪問升級迅雷 發布:2025-03-20 08:01:47 瀏覽:330
安卓開發python 發布:2025-03-20 07:57:30 瀏覽:680
手機代理伺服器怎麼設置限制 發布:2025-03-20 07:51:03 瀏覽:424
keil的c51編譯器 發布:2025-03-20 07:40:46 瀏覽:332
vpn韓國伺服器地址 發布:2025-03-20 07:12:44 瀏覽:26
打碼軟體源碼 發布:2025-03-20 07:08:06 瀏覽:110
前端android 發布:2025-03-20 06:50:42 瀏覽:94
進制轉換棧c語言 發布:2025-03-20 06:50:31 瀏覽:340
myeclipse不自動編譯了 發布:2025-03-20 06:41:38 瀏覽:778
led汽車大燈和鹵素燈該選哪個配置 發布:2025-03-20 06:40:55 瀏覽:918