'****************************************************
'函数名：WaterMarkPic
'作 用：给图片加图片水印
'参 数：ImgUrl 原图地址
' LogoUrl Logo原图地址
' LogoWidth Logo的缩放尺寸 宽度
' LogoPosX Logo相对于原图的X定位
' LogoPosY Logo相对于原图的Y定位
' newImgurl 新图片的输出地址
'****************************************************
Sub WaterMarkPic(ImgUrl,LogoUrl,LogoWidth,LogoPosX,LogoPosY,newImgurl)
Dim photo,Logo
Set Photo = Server.CreateObject(DefaultJpeg)
Set Logo = Server.CreateObject(DefaultJpeg)
Photo.Open Server.MapPath(ImgUrl)
Logo.Open Server.MapPath(LogoUrl)
Logo.Width = LogoWidth
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth
Photo.DrawImage LogoPosX, LogoPosY, Logo ,0.5, &H000000 'Logo图片x，y，logo，透明度，去掉颜色
Photo.save Server.MapPath(newImgurl)
End Sub