利用asp jpg生成缩图和给图加水印

mac2022-06-30  83

图片加水印Set Jpeg = Server.CreateObject("Persits.jpeg")Set jpeg2= server.CreateObject("persits.jpeg")Jpeg.Open Server.MapPath("20079491231.jpg")peg2.Open Server.MapPath("kedumz.jpg")Jpeg.Canvas.DrawImage 100, 100, jpeg2 Jpeg.Save Server.MapPath("20079491231.jpg")Set jpeg=nothingSet jpeg2=Nothing生成缩略图Set Jpeg = Server.CreateObject("Persits.jpeg")Jpeg.Open Server.MapPath("20079491231.jpg")L = 100Jpeg.Width = LJpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidthJpeg.Save Server.MapPath("20079491231.jpg")Set jpeg=nothing

转载于:https://www.cnblogs.com/pelephone/articles/2235188.html

最新回复(0)