Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath("1.jpg")
Jpeg2.Open ">

aspjpeg制作绝对居中的水印图片

80酷酷网    80kuku.com

  1为源图
2为LOGO

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











分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: