asp图片加水印的功能

一个客户网站要求图片加上水印的功能，网上搜索了一下，asp肯定是需要组件来实现的。找了一个AspJpeg的组件，实现了图片水印或者文字水印的功能，结果客户的要求有点离谱，图片不同的尺寸都要自动调整，还不能变形，结果还是没用上，美工人工来处理的。不过程序还是备个档，或许下次有用。

使用的组件名称是：AspJpeg 1.9.0.1 (搜索V1.9应该就可以找到) 破解注册码：17361-38566-42221（安装完成的时候输入）

Code
'传入的参数是需要处理的图片路径，自己根据需要可以调整参数或者加入其它的参数
'文字水印
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

 

转载于:https://www.cnblogs.com/7788/archive/2009/08/15/1546624.html