ASPJPEG是Persits出品的共享软件，试用期为30天，您可以在这里下载：http://www.persits.com/aspjpeg.exe。 最新版本号是1.3 ========================================= % sub jpegclass(imgurl,fontsize,family,isbold,top,left,content,Horflip) '调用过程名
Dim Jpeg,font_color,font_size,font_family,f_width,f_height,f_content,f_Horflip '建立实例 Set Jpeg = Server.CreateObject("Persits.Jpeg") font_size=10 font_family="宋体" f_left= 5 f_top=5
if imgurl>"" then Jpeg.Open Server.MapPath(imgurl)'图片路径并打开它 else response.write "未找到图片路径" exit sub end if
if fontsize>"" then font_size=fontsize '字体大小 if family>"" then font_family=family '字体 if top>"" then f_left=left '水印离图片左边位置 if left>"" then f_top=top '水印离图片top位置 if content="" then '水印内容 response.write "水印什么内容呢，水印不成功！" exit sub else f_content=content end if
' 添加文字水印 Jpeg.Canvas.Font.Color = hff0000 ' 红色 Jpeg.Canvas.Font.Family = font_family jpeg.canvas.font.size= font_size if isbold=1 then Jpeg.Canvas.Font.Bold = True end if If Horflip = 1 Then Jpeg.FlipH 'Jpeg.SendBinary End If Jpeg.Canvas.Print f_left, f_top, f_content
' 保存文件 Jpeg.Save Server.MapPath(imgurl)
' 注销对象 Set Jpeg = Nothing response.write "水印成功，图片上加了 "content"" end sub
