asp 给图片加水印代码

作者:袖梨 2022-07-02

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")

相关文章

精彩推荐