Aspjpeg水印组件较完整的用法说明
时间：2009-07-20 22:38:38浏览：14881
1、为图片制作缩略图
<% ' 建立实例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject(\"Persits.Jpeg\")
' 图片所在位置
Path = Server.MapPath(\"images\") & \"\clock.jpg\"
' 打开
Jpeg.Open Path
' 设置缩略图大小（这里比例设定为50%）
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' 保存缩略图到指定文件夹下
Jpeg.Save Server.MapPath(\"images\") & \"\clock_small.jpg\"
' 注销实例
Set Jpeg = Nothing
%>
<IMG SRC=\"images/clock.jpg\"><P>
<IMG SRC=\"images/clock_small.jpg\">
2、为图片加入水印功能
<%
Dim Jpeg
' 建立实例
Set Jpeg = Server.CreateObject(\"Persits.Jpeg\")
' 打开目标图片
Jpeg.Open Server.MapPath(\"images/dodge_viper.jpg\")
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = \"宋体\"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, \"Copyright (c) Cnmaya.org\"
' 保存文件
Jpeg.Save Server.MapPath(\"images/dodge_viper_framed.jpg\")
' 注销对象
Set Jpeg = Nothing
%>
上次做过图片水印，效果很差，没办法把图片弄成背景透明的，用背景透明gif会自动填充成白色。用去掉某种颜色的功能，图片颜色总是不纯，出来的效果斑斑点点。今天灵机一动，把这两个结合起来，用背景透明的gif，并且抽取水印底色，果然成功了！
ogvbox.Canvas.Pen.Color = &H000000 '// 边框的颜色
ogvbox.Canvas.Pen.Width = 1 '// 边框的粗细
ogvbox.Canvas.Brush.Solid = False '// 图片边框内是否填充颜色
ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox ,0.3,&HFFFFFF
'// 加入图片的位置坐标（添加水印图片），我用图片大小减去水印大小，把水印加在右下角。参数顺序为：水平坐标，垂直坐标，水印图片地址，水银透明度，抽取颜色（&H表示16进制）
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height '// 图片边框线的位置坐标和大小
ogvbox.Save Server.MapPath(imagename) '// 生成文件
'//------Pollener.com AspJpeg组件的预览和水印生成------开始------
'创建预览图片:call CreateView(原始文件的路径,预览文件名及路径)
Sub CreateView(imagename,tempFilename)
'定义变量。
Dim PreviewImageFolderName
Dim ogvbox,objFont
Dim Logobox,LogoPath
LogoPath = Server.MapPath(\"images\") & \"shuiyin.gif\" '//加入图片所在路径及文件名(我的是论坛imagesshuiyin.gif)。
Select Case upload_ViewType
Case 0
'---------------------CreatePreviewImage---------------
set ogvbox = Server.CreateObject(\"CreatePreviewImage.cGvbox\")
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) '预览图存放路径。
ogvbox.SetPreviewImageSize =SetPreviewImageSize '预览图宽度。
ogvbox.SetImageFile = trim(Server.MapPath(imagename)) 'imagename原始文件的物理路径。
'创建预览图的文件。
If ogvbox.DoImageProcess=false Then
Response.write \"生成预览图错误:\"& ogvbox.GetErrString
End If
Case 1
'---------------------AspJpegV1.2---------------
Set Logobox = Server.CreateObject(\"Persits.Jpeg\")
'//建议不要图片和文字水印同时使用，本代码为使用图片水印。
Logobox.Open LogoPath '//读取添加的图片。
'//重新设置图片的大小。
Logobox.Width = 186 '//用做水印的图片的宽度值（像素）。
Logobox.Height = 52 '//用做水印的图片的高度值（像素）。
'//添加水印。
Set ogvbox = Server.CreateObject(\"Persits.Jpeg\")
'//读取要处理的原文件。
ogvbox.Open Trim(Server.MapPath(imagename))
If ogvbox.OriginalWidth<Cint(ImageWidth) or ogvbox.Originalheight<Cint(ImageHeight) Then
F_Viewname=\"\"
Set ogvbox = Nothing
Exit Sub
Else
IF ImageMode<>\"\" and FileExt<>\"gif\" Then '//如果将这行改为IF ImageMode<>\"\" Then则可给上传的GIF图片也加上水印，但是那些动画的GIF在加了水印以后就只剩第一桢了，根据你的需求酌情处理吧。
'//关于修改字体及文字颜色的。
'//ogvbox.Canvas.Font.Color = &H0000FF '//水印文字的颜色，&H后面输入色彩值。
'//ogvbox.Canvas.Font.Size = 18 '//水印文字的大小。
'//ogvbox.Canvas.Font.Family = \"Arial\" '//水印文字的字体名称。
'//ogvbox.Canvas.Font.ShadowColor = &H000000 '//水印文字的阴影色彩。
'//ogvbox.Canvas.Font.ShadowXoffset = 1 '//水印文字阴影向右偏移的像素值，输入负值则向左偏移。
'//ogvbox.Canvas.Font.ShadowYoffset = 1 '//水印文字阴影向下偏移的像素值，输入负值则向右偏移。
'//ogvbox.Canvas.Font.Quality = 3 '//水印文字的清晰度，从0～4，变换不是很大，建议用2或3。
'//ogvbox.Canvas.Font.Bold = True '//水印文字是否为粗体，True=粗体 False=正常。
'ogvbox.Canvas.Print 10, 10, ImageMode '//水印文字的起始坐标（像素）。
ogvbox.Canvas.Pen.Color = &H000000 '//增加水印后图片的边框色彩。
ogvbox.Canvas.Pen.Width = 1 '//增加水印后图片的边框宽度。
ogvbox.Canvas.Brush.Solid = False '//边框内是否填充颜色，你可以试试看值为True时的效果^o^
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0.5 '//水印图片的起始坐标，我这里ogvbox.width-186, ogvbox.height-52,表示图片在右下角，因为我的图片宽是186，高是52，所以这样写，你可以根据自己的图片进行调整。0.5是透明度，我这里是半透明，1表示不透明，你也可以试试看0.7或者0.8的效果。
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height '//水印可用的范围。我这里表示左上角至右下角，即整张图片的任意为止都可加水印。
ogvbox.Save Server.MapPath(imagename) '//根据以上参数生成增加水印后的图片文件。
End If
ogvbox.Width = ImageWidth
ogvbox.height = ImageHeight
'ogvbox.height = ogvbox.Originalheight*ImageWidthogvbox.OriginalWidth
ogvbox.Sharpen 1, 120
ogvbox.Save Server.MapPath(tempFilename) '//生成增加水印后的图片的预览图片。
End If
Set Logobox=Nothing
'//------Pollener.com AspJpeg组件的预览和水印生成------结束------
1、为图片制作缩略图
CODE:
<% ' 建立实例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject(\"Persits.Jpeg\")
' 图片所在位置
Path = Server.MapPath(\"images\") & \"clock.jpg\"
' 打开
Jpeg.Open Path
' 设置缩略图大小（这里比例设定为50%）
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' 保存缩略图到指定文件夹下
Jpeg.Save Server.MapPath(\"images\") & \"clock_small.jpg\"
' 注销实例
Set Jpeg = Nothing
%>
<IMG SRC=\"images/clock.jpg\"><P>
<IMG SRC=\"images/clock_small.jpg\">
2、为图片加入水印功能
CODE:
<%
Dim Jpeg
' 建立实例
Set Jpeg = Server.CreateObject(\"Persits.Jpeg\")
' 打开目标图片
Jpeg.Open Server.MapPath(\"images/dodge_viper.jpg\")
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = \"宋体\"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, \"Copyright (c) Cnmaya.org\"
' 保存文件
Jpeg.Save Server.MapPath(\"images/dodge_viper_framed.jpg\")
' 注销对象
Set Jpeg = Nothing
%>
Set objImg = Server.CreateObject(\"Persits.Jpeg\")
objImg.Interpolation = 2
'影像加强 0-2
objImg.open xFilePath
response.write \"<:::原始值:::>
AspJpeg版本=\" & objImg.Version & \"
宽=\" & objImg.OriginalWidth & \"像素
\" & \"高=\" & objImg.OriginalHeight & \"像素
\"
response.write \"品质=\" & objImg.Quality & \" (0-100)
\" & \"路径=\" & objImg.Version & \"
\"
'objImg.Width = objImg.OriginalWidth / 2
'变更图片宽度(范例为50%)
'objImg.Height = objImg.OriginalHeight / 2
'变更图片高度(范例为50%)
'objImg.Sharpen 2, 250
'锐利处理
'objImg.Crop 0,0,150,150
'切割处理
'objImg.FlipH
'左右翻转
'objImg.FlipV
'上下翻转
'objImg.RotateL
'向左旋转90度
'objImg.RotateR
'向右旋转90度
' 将图片秀上文字:------------------------
objImg.Canvas.Font.Color = &HFF0000
'颜色
objImg.Canvas.Font.Family = \"细明体\"
'字型
objImg.Canvas.Font.Bold = True
'是否使用粗体
objImg.Canvas.Font.BkMode = False
'是否使用字体背景色
objImg.Canvas.Font.BkColor = &H000000
'字体背景色
objImg.Canvas.Font.Italic = False
'是否使用斜体字
objImg.Canvas.Font.Rotation = 0
'字体旋转角度
objImg.Canvas.Font.ShadowColor = &H000000
'字影颜色
objImg.Canvas.Font.ShadowXOffset = 50
'字影X坐标
objImg.Canvas.Font.ShadowYOffset = 150
'字影Y坐标
objImg.Canvas.Font.Size = 14
'字体大小
objImg.Canvas.Font.Underlined = True
'是否加底限
objImg.Canvas.Circle 100,100,10
'画圆圈
objImg.Canvas.Pen.Color = &H009900
'画圆的圆内填满颜色
objImg.Canvas.Pen.Width = 1
'画圆的圆周粗细值
objImg.Canvas.Ellipse 0,0,150,150
'画椭圆
objImg.Canvas.Line 0,0,150,150
'画线
'objImg.Canvas.Arc = 100,50,0,200
'---不清楚这个用法--
objImg.Canvas.Print 100, 100, \"I am Odysseus\" ,136
'位置及文字---------------------------------
' 编辑图片外框:----------------------------
objImg.Canvas.Pen.Color = &H000000
'图片外框颜色
objImg.Canvas.Pen.Width = 1
'图片外框宽度(像素)
objImg.Canvas.Brush.Solid = False
'是否使用区域内填满
objImg.Canvas.Brush.Color = &HFF0000
'区域内填满颜色
objImg.Canvas.Bar 5, 5, objImg.Width, objImg.Height
'框线产生位置------------------------------
objImg.save xFileCopyToPath
response.write \"<:::变化后:::>
宽=\" & objImg.Width & \"像素
\" & \"高=\" & objImg.Height & \"像素
\"
Set objImg = Nothing
<%
'函数功能：远程图片自动保存到本地服务器，并利用aspjpeg为图片加上水印
'（注意：请先在目录下创建images目录，用来保存临时图片）
'程序落伍者:我是星星
'加入落伍第二份原创程序,HOHO,今天一定要落伍类,5.6日注册,5.7日落伍,庆祝一下!
'本程序需要在服务器上安装\"aspjpeg组件\"否则无法正常使用
'也可以只取'''''22222222'''''''以上的部分,这部分可以保存图片,第二部分是进行水印增加
'使用方法,请保存为saveimg.asp
'saveimg.asp?url=UploadFile/2005-6/2005615155335734.gif 即可以取下图片啦,HOHO. 其他需要加的功能,大家自己扩展好啦
'如何获取其他后缀名的文件呢? 当然也可以啦
'(jpg|gif|png|bmp)改成(mp3)明白吧? 就是取mp3后缀的文件名.以此类推. 嘻嘻
'俺要落伍. 发了二份原创,一份是惊云下载系统偷天空时防止出现连接来自天空软件站的程序,有需要的在落伍里面搜索我的贴子
'不要忘了使用时在目录下建images的保存目录哦
Server.ScriptTimeOut=99999
const savepath=\"images\" '图片保存路径
url=request(\"url\")
function myreplace(str)
newstr=str
set objregEx = new RegExp
objregEx.IgnoreCase = true
objregEx.Global = true
objregEx.Pattern = \"http://(.+?).(jpg|gif|png|bmp)\" '定义文件后缀
set matches = objregEx.execute(str)
for each match in matches
newstr=replace(newstr,match.value,saveimg(match.value))
next
myreplace=newstr
end function
function saveimg(url)
temp=split(url,\".\")
'以下是用时间与随机数重命名文件名
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&\".\"&temp(ubound(temp))
'文件名重命名结束
set xmlhttp=server.createobject(\"Microsoft.XMLHTTP\")
xmlhttp.open \"get\",url,false
xmlhttp.send
img=xmlhttp.ResponseBody
set xmlhttp=nothing
set objAdostream=server.createobject(\"ADODB.Stream\")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(server.mappath(savepath&filename))
objAdostream.SetEOS
set objAdostream=nothing
'''''''222222222'''''''''''
saveimg=savepath&filename '获取保存路径
Dim Jpeg
Set Jpeg = Server.CreateObject(\"Persits.Jpeg\")
Jpeg.Open Server.MapPath(saveimg) '打开保存图片的路径
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = \"宋体\"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print Jpeg.OriginalWidth-200,Jpeg.OriginalHeight-50, \"www.sina.com\" '水印离左边的距离,离顶端的距离,这个是放在右下脚了
'保存文件
Jpeg.Save Server.MapPath(saveimg) '保存添加水印后的图片
' 注销对象
Set Jpeg = Nothing
end function
%>
1上一篇：CSS写法：鼠标经过，表格变色
下一篇：2009年7月22日观看日全食
- Linux文章
- PHP文章
- 随机文章
- mysql的expire_logs_...
- PHP 扩展 libsodium s...
- Linux下利用find和cp实现筛...
- 使用mysqldump命令导出备份m...
- Linux系统如何设置开机自动运行脚...
- Linux上实现秒级执行的定时任务
- shell echo -e 颜色输出
- Linux下通过grep查找指定的进...
- 解决执行脚本报syntax erro...
- Linux Shell获取文件夹下的...
发表评论
昵称： 验证码：