海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
'传入的参数是需要处理的图片路径，自己根据需要可以调整参数或者加入其它的参数
'文字水印
Function WordWatermark(ImagePath)
      Dim Image
      Set Image= Server.CreateObject("Persits.Jpeg")  ' 建立对象
      Image.Open server.mappath(ImagePath)  ' 图片所在位置
      Image.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 
      Image.Canvas.Font.Family = "宋体"  ' 设置字体 
      Image.Canvas.Font.Bold = False '是否设置成粗体 
      Image.Canvas.Font.Size = 26 '字体大小 
      Image.Canvas.Font.Quality = 4 ' 文字清晰度
      Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, "水印文字"   '水印文字
      Image.Save server.mappath(ImagePath)  ' 保存文件
      Set Image= Nothing
End Function

'图片水印
Function ImageWatermark(ImagePath)
    Set Image = Server.CreateObject("Persits.Jpeg")
    '确定要加入水印的图片路径
    PhotoPath = Server.MapPath(ImagePath)
    Image.Open PhotoPath
    '打开水印图片
    Set Logo = Server.CreateObject("Persits.Jpeg")
    LogoPath = Server.MapPath("logo.jpg") '水印的图片
    Logo.Open LogoPath    
    Logo.Width = 121 '水印图片的大小
    Logo.Height = 50
    Transition_Color = &h0066cc
    '将水印放置于上传图片中
    Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
'在这里可以更改水印所在的位置（photo.width-210,photo.height-40 这里我是放在了图片的右下角）还可以更改水印的透明度 
    '保存增加水印后的图片
    Image.Save Server.MapPath(ImagePath)

 Set Photo = Nothing
End Function

 任侠 于 2010-07-23 12:49:06 发表评论： 

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!