水印函数

Function CreateImage(ImageName)

 '# 产品图片
 ImagePath = Server.Mappath("ProductImage/" & ImageName)

 '# 网站LOGO
 LogoPath = Server.Mappath("Images/Product_Logo.jpg")

 '# 读出图片信息
 Set Image = Server.CreateObject("Persits.jpeg")
 Image.Open(ImagePath)

 '# 使用实际大小
 Image.Height = Image.OriginalHeight
 Image.Width = Image.OriginalWidth

 '# 添加水印
 Set Logo = Server.CreateObject("Persits.jpeg")
 Logo.Open(LogoPath)
 Image.DrawImage Image.Width - Logo.Width, Image.Height - Logo.Height, Logo, 0.5
 Logo.Close
 Set Logo = Nothing

 '# 输出流
 BinaryWrite = Image.SendBinary
 Response.BinaryWrite(BinaryWrite)
 Response.Flush()

 Image.Close
 Set Image = Nothing

End Function