'****************************************************
'函数名：WaterMarkFont
'作 用：给图片加文字水印
'参 数：ImgUrl 原图地址
' FontColor 文字颜色
' FontFamily 文字字体
' FontSize 文字字号
' FontBold 文字是否加粗
' FontPosX 文字定位X
' FontPosY 文字定位Y
' Font 文字内容
' newImgurl 新图片输出地址交
'****************************************************
Sub WaterMarkFont(ImgUrl,FontColor,FontFamily,FontSize,FontBold,FontPosX,FontPosY,Font,newImgurl)
Dim Jpeg ''''//声明变量
Set Jpeg = Server.CreateObject(DefaultJpeg) '//调用组件
Jpeg.Open Server.MapPath(ImgUrl) '//源图片位置
Jpeg.Canvas.Font.Color = "&H"&FontColor '//水印字体颜色
Jpeg.Canvas.Font.Family = FontFamily '//水印字体
Jpeg.Canvas.Font.Size = FontSize '//水印字体大小
Jpeg.Canvas.Font.Bold = FontBold '//是否粗体，粗体用：True
Jpeg.Canvas.Print FontPosX, FontPosY, Font '//水印文字，两个数字10为水印的xy座标
Jpeg.Save Server.MapPath(newImgurl) ''''//生成有水印的新图片及保存位置
Set Jpeg = Nothing ''''//注销组件，释放资源
End Sub