最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
调用aspjpeg组件给图片logo加水印
时间：2022-06-30 11:07:32 编辑：袖梨 来源：一聚教程网
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
相关文章
- 新三国志曹操传南华幻境天境9-2怎么过 南华幻境天境9-2过关攻略 09-18
- 火环维吉尔技能是什么 维吉尔技能介绍 09-18
- 发条总动员金币怎么获取 金币获取攻略 09-18
- 不朽箴言雅典娜怎么培养 雅典娜养成攻略 09-18
- 光隙解语新手十连抽怎么选 新手十连抽角色推荐 09-18
- 地下城堡4汲魂器怎么获得 汲魂器获取攻略 09-18