水印测试(重新测试)
水印测试(重新测试)
发布时间:2016-12-29 来源:查字典编辑
摘要:注:如果你是用Fireworks来处理LOGO图片,在导出图片的时候用Alpha透明而不要用索引透明!DimJpeg,LogoSetJpeg...

注:如果你是用Fireworks来处理LOGO图片,在导出图片的时候用Alpha透明而不要用索引透明!

DimJpeg,Logo

SetJpeg=Server.CreateObject("Persits.Jpeg")

Jpeg.OpenServer.MapPath(UploadDir&Request2.Form("LocalImage"))'打开图片

'添加文字水印

'Jpeg.Canvas.Font.Color=&HFF0000'红色

'Jpeg.Canvas.Font.Family="Verdana"

'Jpeg.Canvas.Font.Size=15

'Jpeg.Canvas.Font.ShadowColor=&HCCCCCC'水印文字的阴影色彩。

'Jpeg.Canvas.Font.ShadowXoffset=2'阴影右偏移,负值则左偏移。

'Jpeg.Canvas.Font.ShadowYoffset=2'阴影下偏移,负值则右偏移。

'Jpeg.Canvas.Font.Quality=1'水印文字清晰度,从0~4

'Jpeg.Canvas.Font.ShadowColor=&H999999

'Jpeg.Canvas.Pen.Width=1

'Jpeg.Canvas.Brush.Solid=True

'Jpeg.Canvas.Font.Bold=True

'Jpeg.Canvas.PrintJpeg.width-171,Jpeg.height-38,"blog.goalerCN.com"

'Jpeg.Canvas.PrintJpeg.width-201,Jpeg.height-20,"Copyright(c)Goaler'sBLOG"

'添加水印图片

SetLogo=Server.CreateObject("Persits.Jpeg")

Logo.OpenServer.MapPath("canvasLogo.gif")

IF(Jpeg.width-8>Logo.widthANDJpeg.height-8>Logo.height)THEN

Logo.Sharpen0.7,120

Jpeg.DrawImageJpeg.width-Logo.width-8,Jpeg.height-Logo.height-8,Logo,1,&HFFFFFF'抽取掉白色背景,水印位于右下角

Jpeg.SaveServer.MapPath(UploadDir&Request2.Form("LocalImage"))'保存文件

ENDIF

SetLogo=Nothing'注销对象

SetJpeg=Nothing'注销对象

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新ASP教程学习
热门ASP教程学习
编程开发子分类