用ASPJPEG组件制作图片的缩略图和加水印

秋风830

秋风830

2016-01-29 17:52

用ASPJPEG组件制作图片的缩略图和加水印,用ASPJPEG组件制作图片的缩略图和加水印

 

ASPJPEG是Persits出品的共享软件,试用期为30天,您可以在这里下载:http://www.persits.com/aspjpeg.exe。最新版本号是1.3
ASPJPEG是一款功能相当强大的图象处理组件,用它可以轻松地做出图片的缩略图和为图片加上水印功能。下面简单介绍一下使用方法:
您先要执行下载得到的exe文件,安装该组件
1、为图片制作缩略图

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


' 打开
Jpeg.Open Path

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

' 设置缩略图大小(这里比例设定为50%)
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

' 保存缩略图到指定文件夹下
Jpeg.Save Server.MapPath("images") & "clock_small.jpg"

' 注销实例
Set Jpeg = Nothing
%

<IMG src="http://img.tulaoshi.com/attachment/portal/jcwcj/2005-12/10/05121001034382366.jpg"<P
<IMG src="http://img.tulaoshi.com/attachment/portal/jcwcj/2005-12/10/05121001034371111.jpg"


2、为图片加入水印功能
<%
Dim Jpeg
' 建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打开目标图片
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"

转自:动态网制作指南 www.knowsky.com

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

' 注销对象
Set Jpeg = Nothing
%


 

 

展开更多 50%)
分享

猜你喜欢

用ASPJPEG组件制作图片的缩略图和加水印

ASP
用ASPJPEG组件制作图片的缩略图和加水印

用AspJpeg组件按宽高比例真正生成缩略图

Web开发
用AspJpeg组件按宽高比例真正生成缩略图

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

无组件生成缩略图

Web开发
无组件生成缩略图

生成缩略图

Web开发
生成缩略图

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

php用流方式制作缩略图

PHP
php用流方式制作缩略图

Aspjpeg添加水印完整方法

Web开发
Aspjpeg添加水印完整方法

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

ASP主件中的安全问题

ASP主件中的安全问题

Photoshop鼠绘教程:画一个漂亮的BJD娃娃

Photoshop鼠绘教程:画一个漂亮的BJD娃娃
下拉加载更多内容 ↓