更多精彩内容,请访问云邮科技官方网站:
现在位置:首页 » 主机网站 »

asp图片加水印的功能

作者:山坛兄弟 ⁄ 时间:2013年06月22日 ⁄ 分类: 主机网站 评论:0 '传入的参数是需要处理的图片路径,自己根据需要可以调整参数或者加入其它的参数
'文字水印
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
本文由山坛兄弟原创或编辑,转载请保留链接【asp图片加水印的功能】http://flagpatternmaker.com/webhost/33.html 上一篇: ASP防止图片木马上传
下一篇:aspJpeg图片水印无杂点完美解决方案
目前有 0 条评论