<%
REM rSrcImgPath原图（被处理图片）
REM rMarkImgPath小图片（需要附加的小图标，最好是gif得透明图片）
REM rDstImgPath豫览图
Sub CreateView(rSrcImgPath,rMarkImgPath,rDstImgPath)
REM 读取原图，并准备添加水印。
Set SrcImg = Server.CreateObject("Persits.Jpeg")
REM 读取要处理的原文件。
SrcImg.Open Trim(rSrcImgPath)
If SrcImg.OriginalWidth<Cint(ImageWidth) or SrcImg.Originalheight<Cint(ImageHeight) Then
Set SrcImg = Nothing
Exit Sub
Else
REM 增加水印后图片的边框色彩。
''SrcImg.Canvas.Pen.Color = &H1EB81E
REM 增加水印后图片的边框宽度。
SrcImg.Canvas.Pen.Width = 0
REM 边框内是否填充颜色
SrcImg.Canvas.Brush.Solid = False
Set MarkImg = Server.CreateObject("Persits.Jpeg")
REM 读取添加的图片。
MarkImg.Open rMarkImgPath
REM 处理水印图的大小
If MarkImg.Width > SrcImg.Width Then
MarkImg.Height = CInt(MarkImg.Height * (SrcImg.Width/MarkImg.Width))
MarkImg.Width = SrcImg.Width
End If
If MarkImg.Height > SrcImg.Height Then
MarkImg.Width = CInt(MarkImg.Width * (SrcImg.Height/MarkImg.Height))
MarkImg.Height = SrcImg.Height
End If
REM 水印图片的起始坐标，0.5是透明度,1表示不透明
SrcImg.DrawImage SrcImg.Width/2-MarkImg.Width/2, SrcImg.height/2-MarkImg.Height/2, MarkImg, 0.4
REM 水印可用的范围。
SrcImg.Canvas.Bar 0, 0, SrcImg.Width,rcImg.Height
REM 根据以上参数生成增加水印后的图片文件。
SrcImg.Save rDstImgPath
SrcImg.Width = SrcImg.width
SrcImg.height = SrcImg.height
SrcImg.Sharpen 1, 120
REM 生成增加水印后的图片的预览图片。
SrcImg.Save rDstImgPath
End If
Set SrcImg=Nothing
Set MarkImg=Nothing
end sub
call CreateView(Server.MapPath("img1.jpg"),Server.MapPath("img2.jpg"),Server.MapPath("tmp.jpg"))
%>
<HTML>
<HEAD>
<TITLE> Persits.Jpeg Test </TITLE>
</HEAD>
<BODY>
ASPJPEG下载地址 http://www.codepub.com/d/tag.php?n=1&tag=aspjpeg
<br>
<img src="img1.jpg">
<br>
<img src="img2.jpg">
<br>
<img src="tmp.jpg">
</BODY>
</HTML>