 
Function AddWater(n) 
Set Photo = Server.CreateObject("Persits.Jpeg") 
PhotoPath = Server.MapPath(n) 
Photo.Open PhotoPath 
Photo.Interpolation=1 
Photo.Quality=100 
iWidth=Photo.OriginalWidth 
iHeight=Photo.OriginalHeight 
iiwidth=214 '水印圖片的寬度 
iiheight=51 '水印圖片的高度 
Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("Water.png") 'Water.png即為水印圖片 
Photo.save Server.mappath(n) '輸出圖片 
Set Photo = Nothing 
End Function 

調(diào)用方法：
<% Call AddWater(圖片名稱)%>

您可能感興趣的文章:

相關(guān)文章

ASP實(shí)現(xiàn)網(wǎng)頁(yè)打開任何類型文件都提示保存的方法附代碼
ASP實(shí)現(xiàn)網(wǎng)頁(yè)打開任何類型文件都提示保存的方法附代碼...
2007-11-11
Asp函數(shù)介紹(37個(gè)常用函數(shù))
下面的函數(shù)是asp中經(jīng)常用的到呢，大家可以收藏一下經(jīng)常查詢下
2008-11-11
[ASP]RegExp對(duì)象提供簡(jiǎn)單的正則表達(dá)式支持功能使用說明
[ASP]RegExp對(duì)象提供簡(jiǎn)單的正則表達(dá)式支持功能使用說明...
2007-07-07
asp中COM組件中如何連接數(shù)據(jù)庫(kù)的代碼
asp中COM組件中如何連接數(shù)據(jù)庫(kù)的代碼...
2007-03-03
ASP 百度主動(dòng)推送代碼范例
百度推送可以讓你發(fā)布的東西直接推送給百度蜘蛛，讓其快速收錄，百度官方給出了很多范例知道，但是沒有ASP的范例，下面腳本之家網(wǎng)跟大家分享下
2020-04-04
ASP是使用正則提取內(nèi)容里所有圖片路徑SRC的實(shí)現(xiàn)代碼
有時(shí)候客戶提交的內(nèi)容里包含多個(gè)圖片，客戶想單獨(dú)把圖片路徑提取出來進(jìn)行保存，下面腳本之家小編跟大家分享ASP正則提取內(nèi)容里所有圖片路徑SRC的方法函數(shù),需要的朋友可以參考下
2019-09-09
FormatRemoteUrl函數(shù)之a(chǎn)sp實(shí)現(xiàn)格式化成當(dāng)前網(wǎng)站完整的URL-將相對(duì)地址轉(zhuǎn)換為絕對(duì)地址的代碼
FormatRemoteUrl函數(shù)之a(chǎn)sp實(shí)現(xiàn)格式化成當(dāng)前網(wǎng)站完整的URL-將相對(duì)地址轉(zhuǎn)換為絕對(duì)地址的代碼...
2007-09-09
.Net 自定義轉(zhuǎn)換器JsonConverter的使用詳解
這篇文章主要介紹了.Net 自定義轉(zhuǎn)換器JsonConverter的使用,本文通過實(shí)例代碼給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2023-04-04
asp下去除數(shù)組中重復(fù)項(xiàng)的方法
這篇文章主要為大家介紹了asp中去除數(shù)組中重復(fù)項(xiàng)的方法，需要的朋友可以參考下
2007-08-08
ASP實(shí)現(xiàn)加法驗(yàn)證碼
這篇文章主要介紹了ASP實(shí)現(xiàn)加法驗(yàn)證碼，是在原來的驗(yàn)證碼基礎(chǔ)上進(jìn)行創(chuàng)新，將驗(yàn)證碼改為加法運(yùn)算，感興趣的小伙伴們可以參考一下
2015-10-10