方法比较笨哦,呵呵, 直接在上传类文件里加上下面的两个函数,个是添加文字水印,第二个是添加图片水印,引用方法就是当图片上传完后调用其中某一个函数就行了.调用方法: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
AASDFWFWFWE
