aspjpeg水印组件使用
ASP 2009/7/17 17:12:19 点击：不统计
关键词:asp aspjpeg组件的使用,如何使用aspjpeg水印组件,水印组件代码,aspjpeg水印组件的实例,aspjpeg水印组件参数.
<%
dim localpath
localpath = server.MapPath("xxx.jpg")'获取图片物理路径名称
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
Jpeg.Open localpath ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "黑体" ' 设置字体
Jpeg.Canvas.Font.Bold = False '是否设置成粗体
Jpeg.Canvas.Font.Size = 50 '字体大小
Jpeg.Canvas.Font.Quality = 20 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth-200,Jpeg.OriginalHeight-100, "水印文字" '设置水印文字,以及水印文字的位置,是字体左上角距图片右下角的像素数量,比如当前的200,指水印文字左上角距图片的右边距200px 100指水印文字左上角距图片底部100px
Jpeg.Save localpath ' 保存覆盖水印的文件
Set Jpeg = Nothing
%>
<%
dim localpath
localpath = server.MapPath("xxx.jpg")'获取图片物理路径名称
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
Jpeg.Open localpath ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "黑体" ' 设置字体
Jpeg.Canvas.Font.Bold = False '是否设置成粗体
Jpeg.Canvas.Font.Size = 50 '字体大小
Jpeg.Canvas.Font.Quality = 20 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth-200,Jpeg.OriginalHeight-100, "水印文字" '设置水印文字,以及水印文字的位置,是字体左上角距图片右下角的像素数量,比如当前的200,指水印文字左上角距图片的右边距200px 100指水印文字左上角距图片底部100px
Jpeg.Save localpath ' 保存覆盖水印的文件
Set Jpeg = Nothing
%>
·上一篇：asp 汉字,文字图片验证码 >> ·下一篇：asp生成数字图片验证码 >>