asp图片加水印的功能代码
来源:asp之家 发布时间:2011-02-05 11:02:00
代码如下:
'文字水印
Function WordWatermark(ImagePath)
Dim Image
Set Image= Server.CreateObject("Persits.Jpeg") ' 建立对象
Image.Open server.mappath(ImagePath) ' 图片所在位置
Image.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Image.Canvas.Font.Family = "宋体" ' 设置字体
Image.Canvas.Font.Bold = False '是否设置成粗体
Image.Canvas.Font.Size = 26 '字体大小
Image.Canvas.Font.Quality = 4 ' 文字清晰度
Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, "水印文字" '水印文字
Image.Save server.mappath(ImagePath) ' 保存文件
Set Image= Nothing
End Function
'图片水印
Function ImageWatermark(ImagePath)
Set Image = Server.CreateObject("Persits.Jpeg")
'确定要加入水印的图片路径
PhotoPath = Server.MapPath(ImagePath)
Image.Open PhotoPath
'打开水印图片
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("logo.jpg") '水印的图片
Logo.Open LogoPath
Logo.Width = 121 '水印图片的大小
Logo.Height = 50
Transition_Color = &h0066cc
'将水印放置于上传图片中
Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
'在这里可以更改水印所在的位置(photo.width-210,photo.height-40 这里我是放在了图片的右下角)还可以更改水印的透明度
'保存增加水印后的图片
Image.Save Server.MapPath(ImagePath)
Set Photo = Nothing
End Function
猜你喜欢
- [摘要]了解如何充分利用SQL Server 2000的全文搜索功能。本文包含有关实现最大吞吐量和最佳性能的几点提示和技
- Javascript 中的闭包其实很改语言中很难理解的一部分。感谢 Stuart 提供了那么棒的 PPT,它深入浅出的解释了 Javascr
- 现在的垃圾留言越来越智能,并且从留言内容几乎看不出来是垃圾留言,而大量的垃圾留言会导致文章可读性下降,并可能会被搜索引擎惩罚,经过一段时间的
- 2008北京奥运会块到了,下面的js代码将告诉你,离奥运会开幕还要多少天!让我们一起迎接这美好的时刻。相关文章推荐:各种北京2008奥运会倒
- 一些MySQL发布对MySQL数据库中的系统表的结构进行了更改,添加了新权限或特性。当你更新到新版本MySQL,你应同时更新系统表,以确保它
- 随着CSS3越来越热,CSS3动画也逐渐受到大家的关注。这次有幸修改淘宝网全站页头,小小地应用了下(详见http://www.taobao.
- 在IE 浏览器中使用 jquery的fadeIn() 效果 英文字符字体加粗的解决方法分享。<div id='tes
- 备份还原数据库备份数据库企业管理器--或用SQL语句(完全备份):backup database 数据库 to
- 谢谢icedblog提供的代码, 从那个js中我参考了moveSelect的利用, 不过那个代码中有几个BUG, 比如按住鼠标不放会不见显示
- 利用 CSS 来实现对象的垂直居中有许多不同的方法,比较难的是选择那个正确的方法。我下面说明一下我看到的好的方法和怎么来创建一个好的居中网站
- 内容摘要:现在InterNet 越来越成为生活中不可或缺的一部分,制作网页的动态语言也越来越多,主要流行的有以下几种,ASP,PH
- 假设有一名为"addnewuser"的存储过程,其内容如下:Create PROCEDURE dbo
- 这篇文章主要是想说,“引用只能指向具体对象而不能指向引用”//创建变量testArray 并引用数组 ["1&
- 方法一:简单,得不到参数,只有一个虚拟路径 代码如下:GetUrl =request("url") 例如:http://
- 解决方法:1。 改表法。可能是你的帐号不允许从远程登陆,只能在localhost。这个时候只要在localhost的那台电脑,登入mysql
- 1、给滚动条换色 好多网站的滚动条不是系统默认的灰色,而是一些红色、蓝色的,请问这是如何做的?答:这个很好实现,插入下面的代码:<&n
- blankzheng的blog:http://www.planabc.net/1、使用fieldset和legend标签在form中,我们经
- 我们工作中经常需要将数据转化成柱状图,饼图等,以方便直观的分析数据, 这里给大家介绍一个ASP中制作饼图、柱状图的组件:csDra
- 一、创建和管理表 1、创建表语法 create table 表名(column datatype [default expr][,colum
- [root@vm1 ~]# rpm -ivh groundwork-foundation-pro-1.6.1-67.noarch.rpm P