给图片加图片水印 (采用ASPJPEG组件)
<%
' --------------------------------------------------
' 功能: 给图片加图片水印 (采用ASPJPEG组件)
' 作者：不惊了 by 2007.12.5
' 参数: img：原图路径    logo：水印路径
' 说明: 加水印后的图覆盖原图
' 调用：Call Create_Watermark("images/01.jpg","images/logo.gif")
' --------------------------------------------------
Sub Create_Watermark(img,logo)
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    '读取原图片 
    Jpeg.Open Server.MapPath(img)
    Set Watermark = Server.CreateObject("Persits.Jpeg") 
    '读取添加的图片 
    Watermark.open Server.MapPath(logo) 
    '水印的x,y位置
    x=cint(Jpeg.originalwidth-Watermark.Width) 
    y=cint(Jpeg.originalheight-Watermark.Height)
    '添加水印
    Jpeg.DrawImage x, y, Watermark,0.5,&Hffffff
    '生成后的图片
    Jpeg.Save Server.MapPath(img) 
    Set Watermark=Nothing 
    set Jpeg=Nothing
End Sub
%>
posted on 2007-12-06 14:31 不惊了 阅读(109) 评论(1)  编辑 收藏 所属分类: VBscript

  回复  引用    
2007-12-07 16:18 | netfreeman [未注册用户]
强悍啊, 终于更新了

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

闪存

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      


相关链接:

最新IT新闻:
微软老矣 尚能赚否？
YouTube探索新赢利模式 开始售音乐、视频游戏
英特尔Core i7将继续称王 性能提52%
微软已经放弃Windows Vista?
Microsoft Live Search 现在嵌入在Facebook中