asp 给图片加水印代码
asp 给图片加水印代码 Set Jpeg1 = Server.CreateObject(Persits.Jpeg) Set Jpeg2 = Server.CreateObject(Persits.Jpeg) Jpeg1.Open Server.MapPath(1.jpg) Jpeg2.Open Server.MapPath(2.jpg) iWidth=Jpeg1.OriginalWidth iHeight=Jpeg1.OriginalHeig
asp 给图片加水印代码
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath("1.jpg")
Jpeg2.Open Server.MapPath("2.jpg")
iWidth=Jpeg1.OriginalWidth
iHeight=Jpeg1.OriginalHeight
iiWidth=Jpeg2.OriginalWidth
iiHeight=Jpeg2.OriginalHeight
iX=iWidth / 2
iY=iHeight / 2
iiX=iiWidth / 2
iiY=iiHeight / 2
iiiX=iX-iiX
iiiY=iY-iiY
response.write iiiX
response.write iiiY
'response.End
Jpeg1.Canvas.DrawImage iiiX, iiiY, Jpeg2 ' optional arguments omitted
jpeg1.save Server.mappath("123.jpg")
- 上一篇：asp判断多用户登录二
- 下一篇：简单的asp入门教程
精彩图集