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

图片加水印
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=nothing
Set jpeg2=Nothing

生成缩略图
Set Jpeg = Server.CreateObject("Persits.jpeg")
Jpeg.Open Server.MapPath("20079491231.jpg")
L = 100
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
Jpeg.Save Server.MapPath("20079491231.jpg")
Set jpeg=nothing