-
客服电话
-
APP下载
迪恩网络APP
随时随地掌握行业动态
-
官方微信
扫描二维码
关注迪恩网络微信公众号
客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
操作实现函数： 复制代码 代码如下: Function AddWater(n) Set Photo = Server.CreateObject("Persits.Jpeg") PhotoPath = Server.MapPath(n) Photo.Open PhotoPath Photo.Interpolation=1 Photo.Quality=100 iWidth=Photo.OriginalWidth iHeight=Photo.OriginalHeight iiwidth=214 '水印图片的宽度 iiheight=51 '水印图片的高度 Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("Water.png") 'Water.png即为水印图片 Photo.save Server.mappath(n) '输出图片 Set Photo = Nothing End Function 调用方法： <% Call AddWater(图片名称)%> |
请发表评论