當前位置:首頁 » 文件管理 » 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")
%>

熱點內容
win7縮略圖緩存 發布:2025-03-20 11:31:30 瀏覽:69
c2c是什麼文件夾 發布:2025-03-20 11:30:45 瀏覽:687
交管12123的登錄密碼哪裡找 發布:2025-03-20 11:25:50 瀏覽:379
編程技術大牛 發布:2025-03-20 11:21:21 瀏覽:588
315演算法 發布:2025-03-20 11:15:35 瀏覽:213
內塔尼亞胡訪問沙特 發布:2025-03-20 11:08:43 瀏覽:623
Android傳輸視頻 發布:2025-03-20 11:06:34 瀏覽:151
java軟體免費下載 發布:2025-03-20 10:26:01 瀏覽:706
安卓用什麼編譯 發布:2025-03-20 10:25:57 瀏覽:809
ftp中文軟體下載 發布:2025-03-20 10:07:47 瀏覽:508