aspjpeg 添加水印教程及生成縮略圖教程
更新時(shí)間：2008年12月30日 00:11:24 作者：
為圖片加入水印功能，為圖片制作縮略圖
1、為圖片加入水印功能
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立對(duì)象
Jpeg.Open BlogPath & "/upload/" & FileName ' 圖片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 顏色,這里是設(shè)置成:黑
Jpeg.Canvas.Font.Family = "方正隸變簡(jiǎn)體" ' 設(shè)置字體
Jpeg.Canvas.Font.Bold = False '是否設(shè)置成粗體
Jpeg.Canvas.Font.Size = 26 '字體大小
Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "WWW.WILLIAMLONG.INFO" '水印文字
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing
2、為圖片制作縮略圖
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立對(duì)象
Jpeg.Open BlogPath & "/upload/" & FileName ' 圖片所在位置
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' 設(shè)置縮略圖大?。ㄟ@里比例設(shè)定為50%），也可以給他準(zhǔn)確的數(shù)值，比如Jpeg.Width=120
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立對(duì)象
Jpeg.Open BlogPath & "/upload/" & FileName ' 圖片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 顏色,這里是設(shè)置成:黑
Jpeg.Canvas.Font.Family = "方正隸變簡(jiǎn)體" ' 設(shè)置字體
Jpeg.Canvas.Font.Bold = False '是否設(shè)置成粗體
Jpeg.Canvas.Font.Size = 26 '字體大小
Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "WWW.WILLIAMLONG.INFO" '水印文字
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing
2、為圖片制作縮略圖
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立對(duì)象
Jpeg.Open BlogPath & "/upload/" & FileName ' 圖片所在位置
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' 設(shè)置縮略圖大?。ㄟ@里比例設(shè)定為50%），也可以給他準(zhǔn)確的數(shù)值，比如Jpeg.Width=120
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing
您可能感興趣的文章:
- ASP組件AspJpeg(加水印)生成縮略圖等使用方法
- aspJpeg圖片水印有雜點(diǎn)的完美解決方法
- win2003 AspJpeg安裝圖文教程
- 基于ASPJPEG 制作了一個(gè)夢(mèng)寐已久的批量水印工具步驟
- aspjpeg組件通用加水印函數(shù)代碼
- 動(dòng)網(wǎng)論壇驗(yàn)證碼改進(jìn) 加法驗(yàn)證碼(ASPJpeg版)
- 使用ASPJPEG出現(xiàn)0177 800401F3 錯(cuò)誤的解決辦法
- asp水印組件之AspJpeg的結(jié)合代碼實(shí)例
- ASPJPEG綜合操作的CLASS類
- 結(jié)合FSO操作和Aspjpeg組件寫的Class
- 水印組件AspJpeg1.801最新官方原版下載+注冊(cè)碼
- 利用ASPUPLOAD，ASPJPEG實(shí)現(xiàn)圖片上傳自動(dòng)生成縮略圖及加上水印
- ASPJPEG學(xué)習(xí)手記
- 圖片自動(dòng)保存到本地并利用aspjpeg為圖片加水印
- Aspjpeg添加水印完整方法
- AspJpeg?V1.5.0?破解版使用方法
- aspjpeg組件使用方法
相關(guān)文章
asp生成靜態(tài)HTML(動(dòng)態(tài)讀取)
這樣的代碼多用于我們沒(méi)有實(shí)現(xiàn)設(shè)計(jì)生成靜態(tài)的功能，但又想臨時(shí)將一些動(dòng)態(tài)頁(yè)面生成靜態(tài)的，直接獲取動(dòng)態(tài)內(nèi)容并保存為靜態(tài)的2013-08-08
pjblog實(shí)現(xiàn)類似CMS的首頁(yè)調(diào)用
pjblog實(shí)現(xiàn)類似CMS的首頁(yè)調(diào)用...2007-02-02
ASP中使用FileSystemObject時(shí)提高性能的方法
在封裝自己的FileSystemObject庫(kù)的時(shí)候，測(cè)試的時(shí)候發(fā)現(xiàn)在文件夾或文件很多的時(shí)候，效率很低，顯示一個(gè)文件夾需要2秒甚至更多，這讓我很是奇怪，因?yàn)轱@示文件夾及文件信息的時(shí)候直接都是使用Folder及File對(duì)象的屬性，這應(yīng)該不會(huì)引起性能上的問(wèn)題，但是事實(shí)卻說(shuō)明我的想法過(guò)于簡(jiǎn)單了。2008-05-05
ASP下實(shí)現(xiàn)自動(dòng)采集程序及入庫(kù)的代碼
ASP下實(shí)現(xiàn)自動(dòng)采集程序及入庫(kù)的代碼...2007-03-03
asp做網(wǎng)站經(jīng)常遇到日期格式處理問(wèn)題，介紹一個(gè)有用的vbscript函數(shù)formatdatetime()2009-06-06
asp又一個(gè)分頁(yè)的代碼例子...2007-11-11
asp下使用數(shù)組存放數(shù)據(jù)的代碼...2007-11-11
kesion科訊V4.0管理員Key工具...2007-08-08
ASP 獲取文件擴(kuò)展名函數(shù)getFileExt()
利用了asp的instrrev獲取最后.的位置，然后進(jìn)行截取，大家可以自己測(cè)試，其實(shí)編程過(guò)程也是大量的測(cè)試，慢慢就會(huì)發(fā)現(xiàn)更多的好東西。2009-08-08
我們經(jīng)常會(huì)遇到多重查詢問(wèn)題，而長(zhǎng)長(zhǎng)的SQL語(yǔ)句往往讓人丈二和尚摸不著頭腦。特別是客戶端部分填入查詢條件時(shí)，如用普通方法將更是難上加難。 以下巧妙地利用"where 1=1"的恒等式（事實(shí)上很多，讓它值為TRUE即可）解決此問(wèn)題。2008-09-09