图片生成缩略图加水印

<%
'缩略图水印组件wsImage3.5

'文字水印：
Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
Jpeg.Open Server.MapPath(FileName)  ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "方正隶变简体"  ' 设置字体
Jpeg.Canvas.Font.Bold = False '是否设置成粗体
Jpeg.Canvas.Font.Size = 50 '字体大小
Jpeg.Canvas.Font.Quality = 10 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-50, "WWW.1983y.net.cn"   '水印文字
Jpeg.Save Server.MapPath(FileName)  ' 保存文件
Set Jpeg = Nothing

'图片水印：
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath(file1)
Jpeg2.Open Server.MapPath(file2)
Jpeg1.Canvas.DrawImage Jpeg1.OriginalWidth-200,Jpeg1.OriginalHeight-50, Jpeg2,0.8 ' optional arguments omitted
'Jpeg1.Sharpen 1, 120
jpeg1.save Server.mappath("sy.jpg")
set Jpeg1 = nothig : set Jpeg2 = nothing

查看更多...

Tags: aspjpeg组件