最新下载
热门教程
- 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
相关文章
- 江南百景图听风塔怎么样 11-22
- 原神恰斯卡圣遗物怎么搭配 11-22
- 2024年霸王茶姬11月22日口令是什么 2024.11.22霸王茶姬口令介绍 11-22
- 光遇11.21季节蜡烛在哪里 光遇11月21日季节蜡烛位置攻略 11-22
- 光遇11.21大蜡烛在哪里 光遇11月21日大蜡烛位置攻略 11-22
- 光遇11.21免费魔法有什么 光遇11月21日免费魔法收集攻略 11-22