首页 站外优化正文

asp图片加水印 asp程序怎么实现上传图片加水印

admin 站外优化 2019-09-03 14:50:04 243 0

   方法比较笨哦,呵呵, 直接在上传类文件里加上下面的两个函数,第一个是添加文字水印,第二个是添加图片水印,引用方法就是当图片上传完后调用其中某一个函数就行了.调用方法:AddPersitsText("要加水印的图片路径及名称"),   AddPersitsJpeg("要加水印的图片路径及名称") 

 程序代码Public Function AddPersitsText(Path)            '************加文字水印**********************        Dim Jpeg        Set Jpeg = Server.CreateObject("Persits.Jpeg")         Jpeg.Open Server.MapPath(Path)  '打开图片,Path为路片路径及名称            Jpeg.Canvas.Font.Color = &HFFFFFF  '后6位为文字颜色        Jpeg.Canvas.Font.Family = "宋体"   '文字字体        Jpeg.Canvas.Font.Bold = True   '是否加粗        Jpeg.Canvas.Font.Size = 30   '字体大小        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 (Jpeg.width-240)/2, Jpeg.height/2+30, "www..net"       '水印显示在图片上的XY位置        Jpeg.Save Server.MapPath(Path)      '保存水印图片        Set Jpeg = Nothing    End Function

    Public Function AddPersitsJpeg(Path)            '**************加图片水印*******************        Dim photo,logo,photopath,logopath        Set Photo = Server.CreateObject("Persits.Jpeg")        PhotoPath = Server.MapPath(Path)  'Path为路片路径及名称        Photo.Open PhotoPath   '打开图片        Set Logo = Server.CreateObject("Persits.Jpeg")        LogoPath = Server.MapPath("../images/imglogo.gif")   '水印图片的路径        Logo.Open LogoPath         Logo.Width = 300   '水印图片的宽度        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-350)/2, photo.height/2+30, Logo,0.1        photo.Save Server.MapPath(Path)  ''水印显示在图片上的XY位置        Set logo = Nothing         Set photo = Nothing            End Function

AANHJJGHSFW
版权声明

本文仅代表作者观点,不代表本站立场。
发布的有些文章部分内容来源于互联网。如有侵权,请联系我们,我们会尽快删除。

本文链接:http://www.shseotuiguang.com/post/321.html

发表评论

评论列表(0人评论 , 243人围观)
☹还没有评论,来说两句吧...

上海网站推广_上海网络推广_上海网站优化_上海SEO优化

http://www.shseotuiguang.com/

统计代码 | 蜀ICP备18039239号

Powered By 城南二哥

用手机扫描二维码

关注获取更多资讯