ASPJPEG组件简要攻略之水印、缩略图和描边代码

一、ASPJPEG文字水印对图片描边：

程序代码： 

<％ 
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
' 创建组件 
Jpeg.Open Server.MapPath("images.jpg") 
' 打开图片 
'也可以用OpenBinary读取二进制数据 
' 以下是写入水印文字 
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 
Jpeg.Canvas.Font.Family = "宋体" 'family设置字体 
Jpeg.Canvas.Font.Bold = True '是否设置成粗体 
Jpeg.Canvas.Font.Size = 12 '字体大小 
Jpeg.Canvas.Print 100, 100, "www.aspxhome.com" '在相应的位置打印文字，如果靠右可以用Jpeg.Canvas.Print Jpeg.width-160, Jpeg.height-30, "aspxhome.com" 
Jpeg.Save Server.MapPath("images.jpg") 'OK,大功告成,输入保存! 
％>

 二、ASPJPEG对图片描边

程序代码：

<％ 
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
' 创建组件 
Jpeg.Open Server.MapPath("images.jpg") 
' 打开图片 
'也可以用OpenBinary读取二进制数据 

'下面是对图片进行描边处理 
Jpeg.Canvas.Pen.Color = &H000000 ' 颜色 
Jpeg.Canvas.Pen.Width = 2 '描边像素:单位pix 
Jpeg.Canvas.Brush.Solid = False ' 如果要描边,这里不能设成"真",否则整个区域会被填充为上面的颜色 
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height '描边的位置及对应宽度 

Jpeg.Save Server.MapPath("images.jpg") 'OK,大功告成,输入保存! 
％> 

三、ASPJPEG改变图片大小，即缩略图功能：

程序代码：

<％ 
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
Path = Server.MapPath("images") & "\clock.jpg" 
Jpeg.Open Path 

Jpeg.Width = Jpeg.OriginalWidth / 2 
Jpeg.Height = Jpeg.OriginalHeight / 2 
'改变成原来的50％,Jpeg.Width,Jpeg.Height也可以给他准确的数值，比如Jpeg.Width=120 

Jpeg.Save Server.MapPath("images") & "\clock_small.jpg" 
％>