图片水印
' intdirection:图片位置:
' 如果传进来的是数组 array(left,top):
' left 表示水印图片相对源图的左上角x方向距离
' top 表示水印图片相对源图的左上角y方向距离
' 如果是单一数字:
' 1:左上 2:上中 3:右上 4:左中 5:中中 6:右中 7:左下 8:中下 9:右下
' strfilename:用做水印图片的文件名
public sub drawimage(intdirection,strfilename)
dim objjpeg2
dim intwidth
dim intheight
dim intleft
dim inttop
message = ""
if fileisopen then
if objfso.fileexists(server.mappath(strfilename)) then
on error resume next
set objjpeg2 = server.createobject("persits.jpeg")
with objjpeg2
.open server.mappath(strfilename)
if err then
message = err.description
end if
if intjpegwidth = 0 or intjpegheight = 0 then
intwidth = .originalwidth
intheight = .originalheight
else
intwidth = intjpegwidth
intheight = intjpegheight
end if
if intwidth<width and intheight<height then
if not isarray(intdirection) then
select case intdirection
case 1
intleft = 0
inttop = 0
case 2
intleft = (width-intwidth)/2
inttop = 0
case 3
intleft = width-intwidth
inttop = 0
case 4
intleft = 0
inttop = (height-intheight)/2
case 5
intleft = (width-intwidth)/2
inttop = (height-intheight)/2
case 6
intleft = width-intwidth
inttop = (height-intheight)/2
case 7
intleft = 0
inttop = height-intheight
case 8
intleft = (width-intwidth)/2
inttop = height-intheight
case else
intleft = width-intwidth
inttop = height-intheight
end select
else
intleft = intdirection(0)
inttop = intdirection(1)
end if
on error resume next
objjpeg.drawimage intleft,inttop,objjpeg2,floatjpegopacity,intjpegcolor
if err then
message = "打图片水印出错!"
end if
else
message = "水印图片像素过大!"
end if
end with
else
message = "水印图片不存在!"
end if
else
message = "文件没有打开!"
end if
end sub
%>
asp aspjpeg图片增加图片水印代码
时间: 2024-09-20 04:22:19
asp aspjpeg图片增加图片水印代码的相关文章
php给图片增加中文水印
增加中文水印 <?php /*------------------------------------------------------------- **描述:这是用于给指定图片加底部水印(不占用图片显示区域)的自定义类,需创建对象调用 **版本:v1.0 **创建:2007-10-09 **更新:2007-10-09 **人员:老肥牛([email]fatkenme@163.com[/email] QQ:70177108) **说明:1.需要gd库支持,需要iconv支持(php5已经包
Asp.net简单实现给图片增加文字水印_实用技巧
经常看见MOP上有人贴那种动态的图片,就是把一个字符串作为参数传给一个动态网页,就会生成一个带有这个字符串的图片,这个叫做文字水印.像什么原来的熊猫系列,还有后来的大树和金条,都挺有意思.就用Asp.net写了一个非常简单的.全部的代码如下: 复制代码 代码如下: <%@ Import Namespace="System" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespa
php 给图片加上文字水印代码
代码如下 复制代码 $image=$_get[id]; $im=getimagesize($image); //print_r($im); //以下是读取文字的宽高 $font='verdana.ttf';//字体 $font_size = $im[0]/20;//文字大小 $size=imagettfbbox($font_size,0,$font,'111cn.net');//文字宽高 $textwidth = $size [4];//取出宽 $textheight = abs( $size
asp.net FCKeditor上传图片加入水印代码
如何在自己的网站中架设fckeditor编辑器我就不说了,本文默认你已经架设过并且熟悉fckeditor内部结构. 在下载fckeditor编辑器的同时,如果是使用.net版本,还必须下载一个源代码包,在里面有一些功能类,和编译出来的dll文件,存放在bin文件中,我们所需要做的就是修改源代码,获得新的dll,在自己的网站中替换就可以了. (源代码版本号是fckeditor.net_2.5,编辑器文件版本号为fckeditor_2.6.2) 实用vs2005打开代码包根目录下的fredck.fc
aspjpeg给图片加水印 代码
aspjpeg给图片加水印 代码.以下是我的aspjpeg参数配置,请高手帮我看看应该怎么修改,才能实现上面几种我想要的效果.谢谢 -------------------------------- 参数: sSYText = "www.google.com" sSYFontColor = "000000" nSYFontSize = Clng("24") sSYFontName = "Verdana, Arial, Helv
asp实现图片加水印代码
asp实现图片加水印代码,要装aspjepg组件 <% set jpeg1=server.createobject("persits.jpeg") jpeg1.open server.mappath("1.jpg") '原图 '添加水印 set jpeg2=server.createobject("persits.jpeg") jpeg2.open server.mappath("watermark.
aspjpeg 给图片加图片或文字加水印,生成缩略图代码实例
' 函数名:watermarkfont '作 用:给图片加文字水印 '参 数:imgurl 原图地址 ' fontcolor 文字颜色 ' fontfamily 文字字体 ' fontsize 文字字号 ' fontbold 文字是否加粗 ' fontposx 文字定位x ' fontposy 文字定位y ' font 文字内容 ' newimgurl 新图片输出地址交 '**************************************************** sub water
asp.net如何在图片上加水印文字具体实现
这篇文章主要介绍了asp.net如何在图片上加水印文字具体实现,有需要的朋友可以参考一下 第一步,添加一个一般处理程序(Handler),本例是ImageHandler 代码如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebContro
asp汉字中文图片验证码的实现代码_应用技巧
'此代码是在别人基础上增加的汉字功能,特此感谢,同时感谢鬼火狼烟. '以前的图片验证码很容易被破解,所以在其基础上进行改进,生成汉字,就目前而言很难破解 用法: 在需要显示验证码图片的地方插入代码 <img src="code.asp"> 同时,自动生成session("psn"),表单提交验证session就可以了. 复制代码 代码如下: <% '------------------ '汉字图片验证码 '此代码是在别人基础上增加的汉字