最新下载
热门教程
- 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
相关文章
- 拷贝漫画app安卓下载最新版本-拷贝漫画正版安装包免费下载 12-25
- 夸克网页版官方入口-夸克浏览器网页版正式入口 12-25
- 创游世界网页版入口在哪-创游世界游戏网页版直达入口 12-25
- ARC Raiders机械怪物图鉴：堡垒工作原理与攻击方式详解 12-25
- ARC Raiders机械怪物图鉴：轰炸机攻击模式与弱点分析 12-25
- 小米商城官网首页直达-小米商城官方网站入口链接 12-25