关于asp图片上传添加水印的一个最简单的方法

  • 内容
  • 评论
  • 相关

前天一个朋友问我,怎么样在用asp上传图片时自己加上图片水印
我和他说了这样那样,最终他都没有弄明白,又拉问我问了个不放,
一下子我急了,
就让他使用了下面的方法:
在上传文件中加入下面代码:

图片水印代码:
[code]
dim photo,logo,photopath,logopath
Set Photo = Server.CreateObject("Persits.Jpeg")
PhotoPath = Server.MapPath(FileName)'(FileName)为获取图上片上传后保存的路径
Photo.Open PhotoPath
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("\images/logo.gif")'获取水印图片的路径
Logo.Open LogoPath
Logo.Width = 88
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth
Photo.Canvas.Pen.Color = &H000000
Photo.Canvas.Pen.Width = 1
Photo.Canvas.Brush.Solid = False
Photo.DrawImage photo.width-102, photo.height-32, Logo,1.0
photo.Save Server.MapPath(FileName)'保存已加上水印的图片
Set logo = Nothing
Set photo = Nothing
[/code]

文字水印代码:
[code]
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(FileName)'(FileName)为获取图上片上传后保存的路径
Jpeg.Canvas.Font.Color = &HECAD03’字体颜色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Size = 14 '字体大小
Jpeg.Canvas.Font.Quality = 2
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Pen.Color = &HFFFFFF
Jpeg.Canvas.Pen.Width = 3
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Print 10, 10, "艺风国度 WWW.YFONG.CN" '需要加的水印文字
Jpeg.Save Server.MapPath(FileName)'获取水印图片的路径
Set Jpeg = Nothing
[code]

朋友的问题总算解决了,有些类问题的朋友不防可以试试
但前提条件是你的服务器必须支持ASPJPEG组件

评论

0条评论

    发表评论

    电子邮件地址不会被公开。 必填项已用*标注

    click to change 看不清?点击换一张!