添加水印的SUB

\'创建预览图片及打水印:call CreateView(文件的路径,要添加的水印图片文件)
\'摘取自动网,清风修改于 04/07/2006
Sub CreateView(imagename,logoimg)
 \'定义变量
 Dim ogvbox,objFont,img
 Dim Logobox,LogoPath
 Dim sWidth,sHeight  \'水印图片的宽度和高度
 Select Case logoimg
 Case "1"
  img = "/sy/logo.gif"
  sWidth = "87"
  sHeight = "52"
 Case "2"
  img = "/sy/logo1.gif"
  sWidth = "149"
  sHeight = "39"
 Case Else
  img = "/sy/logo2.gif"
  sWidth = "106"
  sHeight = "60"
 End Select
 LogoPath = Server.MapPath(img)  \'//加入图片所在路径及文件名
 \'---------------------AspJpegV1.2---------------
 Set Logobox = Server.CreateObject("Persits.Jpeg")
 \'*添加水印图片 添加时请关闭水印字体*
 \'//读取添加的图片
 Logobox.Open LogoPath
 \'//重新设置图片的大小
 Logobox.Width = sWidth  \'// 加入图片的原宽度
 Logobox.Height = sHeight \'// 加入图片的原高度
 \'*添加水印图片*
 Set ogvbox = Server.CreateObject("Persits.Jpeg")
 \' 读取要处理的原文件
 
 ogvbox.Open Trim(Server.MapPath(imagename))
  
 \'Else
  \'//关于修改字体及文字颜色的
  \'ogvbox.Canvas.Font.Color = &HFF0000  \'// 文字的颜色
  \'ogvbox.Canvas.Font.Family = "monospace" \'// 文字的字体
  \'ogvbox.Canvas.Font.Bold = True
  \'Draw frame: black, 2-pixel width
  \'ogvbox.Canvas.Print 10, 10," www.mysoo.net " \'// 打印坐标x 打印坐标y 需要打印的字符
  ogvbox.Canvas.Pen.Color  = &HFFFFFF \'// 边框的颜色，可选
  ogvbox.Canvas.Pen.Width  = 0    \'// 边框的粗细，可选
  ogvbox.Canvas.Brush.Solid = False   \'// 图片边框内是否填充颜色，可选
  ogvbox.DrawImage ogvbox.Width/1.6, ogvbox.Height/1.5, Logobox, 0.4, &HFFFFFF \'// 加入图片的位置价坐标（添加水印图片）
  ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height \'// 图片边框线的位置坐标，可选
  ogvbox.Width = ogvbox.Width
  ogvbox.height = ogvbox.height
  ogvbox.Sharpen 1, 120
  ogvbox.Save Server.MapPath(imagename)  \'// 生成文件
 Set Logobox=Nothing
End Sub

以上代码在win2k Server IIS5和WIN2003 IIS6平台上测试成功!  有问题请指出!

上一页  [1] [2]