ASPJPEG组件使用说明

利用aspjpeg组件对图片进行处理


1、为图片制作缩略图


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

#38
 
"
\clock.jpg"



&
#39
 
打开
Jpeg.Open 
Path

&
#39
 
设置缩略图大小（这里比例设定为50%）
Jpeg.Width 
= 
Jpeg.OriginalWidth 
/ 
2
Jpeg.Height 
= 
Jpeg.OriginalHeight 
/ 
2

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

#38
 
"
\clock_small.jpg"


&
#39
 
注销实例
Set 
Jpeg 
= 
Nothing
%>


<
IMG 
SRC="
images/clock.jpg"
>
<
P>

<
IMG 
SRC="
images/clock_small.jpg"
>
 


2、为图片加入水印功能



<
%
Dim 
Jpeg
&
#39
 
建立实例
Set 
Jpeg 
= 
Server.CreateObject("
Persits.Jpeg"
)
&
#39
 
打开目标图片
Jpeg.Open 
Server.MapPath("
images/dodge_viper.jpg"
)

&
#39
 
添加文字水印
Jpeg.Canvas.Font.Color 
= 
&

#38
HFF0000&
#39
 
红色
Jpeg.Canvas.Font.Family 
= 
"
宋体"

Jpeg.Canvas.Font.Bold 
= 
True 
 

Jpeg.Canvas.Print 
10, 
10, 
"
Copyright 
(c) 
Cnmaya.org"


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

&
#39
 
注销对象
Set 
Jpeg 
= 
Nothing
%>
 


&
#39
 
Aspjpeg 
功能设置
Set 
Jpeg 
= 
Server.CreateObject("
Persits.Jpeg"
)

&
#39
 
获取源图片路径
Path 
= 
Server.MapPath("
uploadimages/"
)&

#38
"
/"
&

#38
FileName

&
#39
 
打开源图片
Jpeg.Open 
Path

&
#39
 
设定生成缩略图细节 
这里有很多种设定方法 
下面的方法是先判断宽高比 
然后按比例缩放

If 
Jpeg.OriginalWidth 
/ 
Jpeg.OriginalHeight 
>
 
1 
then
Jpeg.Width 
= 
98 

Jpeg.Height 
= 
int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)

elseif 
Jpeg.OriginalWidth 
/ 
Jpeg.OriginalHeight 
<
 
1 
then
Jpeg.Width 
= 
98
Jpeg.Height= 
int((98/Jpeg.OriginalWidth)*Jpeg.Height)

end 
if


&
#39
 
设定锐化效果
Jpeg.Sharpen 
1, 
130 


&
#39
 
向指定路径生成缩略图
Jpeg.Save 
Server.MapPath("
uploadimages/"
)&

#38
"
/small"
&

#38
FileName
%>


作者：daviva