明輝手游網(wǎng)中心:是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)!

用ASPJPEG組件制作圖片的縮略圖與加水印

[摘要]ASPJPEG是Persits出品的共享軟件,試用期為30天,您可以在這里下載:http://www.persits.com/aspjpeg.exe。最新版本號(hào)是1.3 ASPJPEG是一款功能相當(dāng)強(qiáng)大的圖象處理組件,用它可以輕松地做出圖片的縮略圖和為圖片加上水印功能。下面簡(jiǎn)單介紹一下使用方法: ...
ASPJPEG是Persits出品的共享軟件,試用期為30天,您可以在這里下載:http://www.persits.com/aspjpeg.exe。最新版本號(hào)是1.3
ASPJPEG是一款功能相當(dāng)強(qiáng)大的圖象處理組件,用它可以輕松地做出圖片的縮略圖和為圖片加上水印功能。下面簡(jiǎn)單介紹一下使用方法:
您先要執(zhí)行下載得到的exe文件,安裝該組件
1、為圖片制作縮略圖

<% ' 建立實(shí)例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 圖片所在位置
Path = Server.MapPath("images") & "\clock.jpg"


' 打開
Jpeg.Open Path

' 設(shè)置縮略圖大小(這里比例設(shè)定為50%)
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

' 保存縮略圖到指定文件夾下
Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"

' 注銷實(shí)例
Set Jpeg = Nothing
%>

<IMG SRC=http://www.okasp.com/techinfo/"images/clock.jpg"><P>
<IMG SRC=http://www.okasp.com/techinfo/"images/clock_small.jpg">


2、為圖片加入水印功能
<%
Dim Jpeg
' 建立實(shí)例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打開目標(biāo)圖片
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")

' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 紅色
Jpeg.Canvas.Font.Family = "宋體"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"

' 保存文件
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")

' 注銷對(duì)象
Set Jpeg = Nothing
%>