首页

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

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

<%<br /> Set Jpeg = Server.CreateObject("Persits.Jpeg")<br /> ' 创建组件<br /> Jpeg.Open Server.MapPath("images.jpg")<br /> ' 打开图片<br /> '也可以用OpenBinary读取二进制数据<br /> '下面是对图片进行描边处理<br /> Jpeg.Canvas.Pen.Color = &H000000 ' 颜色<br /> Jpeg.Canvas.Pen.Width = 2 '描边像素:单位pix<br /> Jpeg.Canvas.Brush.Solid = False ' 如果要描边,这里不能设成"真",否则整个区域会被填充为上面的颜色<br /> Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height '描边的位置及对应宽度<br /> Jpeg.Save Server.MapPath("images.jpg") 'OK,大功告成,输入保存!<br /> %><br />

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

<%<br /> Set Jpeg = Server.CreateObject("Persits.Jpeg")<br /> Path = Server.MapPath("images") & "\clock.jpg"<br /> Jpeg.Open Path<br /> Jpeg.Width = Jpeg.OriginalWidth / 2<br /> Jpeg.Height = Jpeg.OriginalHeight / 2<br /> '改变成原来的50%,Jpeg.Width,Jpeg.Height也可以给他准确的数值，比如Jpeg.Width=120<br /> Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"<br /> %><br />

ASPJPEG组件下载地址：http://www.iecool.com/down/show/2.htm