请问如何在ASP中实现GIF图片的上水印啊？？

因为我的GIF图片是用ASP代码动态实现的，我现在想在这动态的图片上加上一个水印，这如何加啊？？

求大家帮帮忙？？

给我一个完整的代码好吗？谢谢啊~~~

16 个解决方案

#1

你的图片是动态生成的。什么生成啊。水印不过是调了一些色度，等等，

#2

用aspjpg组件

#3

。。。我是通过数据库的数据生成的走势图，临时生成的，关闭网页，图片即被删除！

调用了OWC组件的！那个aspjpg组件能应用与我这样的情况吗？？

#4

用aspjpg组件
很好的,像这样的组件网上很多的,你搜一下

#5

能给个实例吗？？谢谢！

huhenry2004@126.com

#6

Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 创建组件
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
' 打开图片
'也可以用OpenBinary读取二进制数据
' 以下是写入水印文字
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "宋体" 'family设置字体
Jpeg.Canvas.Font.Bold = True '是否设置成粗体
Jpeg.Canvas.Font.Size = 12 '字体大小
Jpeg.Canvas.Print 10, 10, "本论坛属拒绝游泳" '在相应的位置打印文字

'下面是对图片进行描边处理
Jpeg.Canvas.Pen.Color = &H000000 ' 颜色
Jpeg.Canvas.Pen.Width = 2 '描边像素:单位pix
Jpeg.Canvas.Brush.Solid = False ' 如果要描边,这里不能设成"真",否则整个区域会被填充为上面的颜色
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height '描边的位置及对应宽度

Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") 'OK,大功告成,输入保存!

需要其他的请留言哈我测试了的保证没有错误！！

#7

aspjpeg下载]http://www.chinaz.com/download/s/9226.asp
[aspupload下载]http://www.chinaz.com/download/s/9228.asp

name:www.chinaz.com
company:www.chinaz.com
sn:48958-77556-02411

#8

缩略图水印组件wsImage3.0
功能特点：
1、导入多种图片格式，目前支持BMP，JPG，GIF等。
2、输出JPG格式缩略图，自定义输出压缩参数
3、高效率生成缩略图，4种导出方式，方便灵活。
4、图片裁减功能，自定义裁减区域。
5、能购获取图片尺寸。
6、支持文字水印，可自定义字体、颜色、旋转角度等。
7、支持图片水印，图片水引支持透明度。
8、顺代码实现，无须任何运行库，无须GDI+库。
9、在WIN98，WIN2000，WIN2003等操作系统上均测试通过。
10、性能更稳定,消耗系统资源少。

www.wave12.com

#9

统计图图表水印组件www.wave12.com

#10

这些组件都需要注册啊!!不注册用不了!!!

#11

mark

#12

http://community.csdn.net/Expert/topic/4115/4115767.xml?temp=.6878015

#13

谢谢~~我看看先

#14

谢谢大家帮忙!但是我的这个图片是动态生成的,其代码如下:
<%
'用一个临时变量名保存当前文件，这个文件名是唯一的
set m_fso = CreateObject("Scripting.FileSystemObject")
sFullFileName = Server.MapPath(".") & "\" & m_fso.GetTempName()
m_cspace.ExportPicture sFullFileName, "GIF", 500, 400

'使用 On Error Resume Next语句是为了确保我们删除了临时文件，即使一些函数调用失败
on error resume next

'GIF文件已经输出，我们可以通过COM组件把它的内容发送到客户端
set m_objBinaryFile = server.CreateObject("BinFileWrite.GetFileStream")
'Response.BinaryWrite m_objBinaryFile.GetFileBytes(CStr(sFullFileName))
m_objBinaryFile.SendBinFile CStr(sFullFileName),"image/GIF",TRUE,FALSE,TRUE,TRUE,TRUE
'GIF文件已经不需要了可以删除了
m_objBinaryFile.DeleteFile CStr(sFullFileName)

%>

但是按上面兄弟提供优的信息我看到那个代码里是这样的:
  <%
'生成图片水印
On Error resume next
set obj=server.CreateObject("flysoft.image")
obj.Rate = 0.5 '缩放比率其中<1为缩小,>1为放大
obj.LoadFromFile = server.MapPath("./love.JPG") '原始图片
obj.LoadFromMaskImgFile = server.MapPath("./rose_mark.bmp")  '水印图片
obj.OutputMarkImgFile server.MapPath("./lovemark.jpg"), 350, 350, 100  '生成结果图片 500，500为水印图片相对于原始图片左上角的坐标位置最后的100是透明度 (0最透明,100不透明)
if err.number<>0 then
response.write Err.Description
end if
%>

都是固定图片,所以我不知道怎么把他们相互结合起来, 请大家指点指点啊!!!

谢谢!!

#15

用aspimgpro组件就行了。
下载地址：www.uoping.com/aspimgpro/index.html

#16

能提供一个实例吗？这个组件要注册吗？

#1