最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
调用aspjpeg组件给图片logo加水印
时间:2010-04-08 编辑:简简单单 来源:一聚教程网
function water_jpeg(filenameB)
dim water_file,Logo
water_file = Server.MapPath("../logo_water.png")
filenameB = Server.MapPath(filenameB)
dim Jpeg
set Jpeg = Server.CreateObject("Persits.Jpeg")
if -2147221005=Err then
Response.write "没有这个组件,请安装!" '检查是否安装
AspJpeg组件
Response.end()
end if
Jpeg.Open (filenameB) '打开图片
if Jpeg.width >= 500 and Jpeg.height >= 200 then
if err.number then
Response.write"打开图片失败,请检查路径!"
Response.end()
end if
set Logo = Server.CreateObject("Persits.Jpeg")
Logo.Open water_file '打开水印图片
Jpeg.DrawImage Jpeg.width-300, Jpeg.height-90,
Logo,0.8,&HFFFFFF '参数顺序为:水平坐标,垂直坐标,logo地址,透明度,抽
取颜色(&H表示16进制)
Jpeg.Save filenameB '保存文件
set Logo = nothing
end if
set Jpeg = nothing
end function
本站原创www.111com.net
-
上一个: aspjpeg 给上传图片添加水印
-
下一个: 检测是否为非法的图片格式
相关文章
- asp aspjpeg图片增加图片水印代码 10-27
- 三款asp图片加水印的功能代码 10-03
- asp实现图片加水印代码 07-19
- aspjpeg给图片加水印 代码 06-23
- asp 给图片加水印代码 06-05
- asp给图片加水印 04-27