100分，图片加水印，怎么也加不上？？代码如下

2006-04-27 10:18:58 461 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

centos7安装kattle ETL数据抽取 kettle安装准备1、下载kettle7.12、下载后为zip文件:pdi-ce-7.1.0.0-12.zip,解压：unzip?pdi-ce-7.1.0.0-12.zip --注可能需要安装unzip：yum install -y unzip3、解压后得到新文件夹：data-integration，进入并执行命令：chmod +x *.sh? --增加执行权限安装1、在data-integra... 阅读详情

'-------------------------------------------------------------AspJpegV1.2---------------
Set Logobox = Server.CreateObject("Persits.Jpeg")
'LogoPath = Server.MapPath("Images") & "\\water.gif" '//加入图片所在路径及文件名(我的是论坛\\images\\shuiyin.gif)。
'LogoPath = Server.MapPath("../Images") & "\\Logo.gif" '//加入图片所在路径及文件名(我的是论坛\\images\\shuiyin.gif)。

'LogoPath = server.mappath("/Images/logo.gif") '//加入图片所在路径及文件名(我的是论坛\\images\\shuiyin.gif)。
LogoPath = Server.mappath("/Upload/051031/200642710238423.JPG") '//加入图片所在路径及文件名(我的是论坛\\images\\shuiyin.gif)。
Logobox.Open LogoPath '//读取添加的图片。

'//重新设置图片的大小。
Logobox.Width = 94 '//用做水印的图片的宽度值（像素）。
Logobox.Height = 17 '//用做水印的图片的高度值（像素）。
'//添加水印。
Set ogvbox = Server.CreateObject("Persits.Jpeg")
'//读取要处理的原文件。

ogvbox.Open Trim(Server.mappath("/Upload/051031/"&FileName))

If ogvbox.OriginalWidth < 94 or ogvbox.Originalheight<17 Then
Set ogvbox = Nothing
Else

'IF ImageMode<>"" and FileExt<>"gif" Then '//如果将这行改为IF ImageMode<>"" Then则可给上传的GIF图片也加上水印，但是那些动画的GIF在加了水印以后就只剩第一桢了，根据你的需求酌情处理吧。
IF ImageMode<>"" Then
'关于修改字体及文字颜色的。
ogvbox.Canvas.Font.Color = &H0000FF '//水印文字的颜色，&H后面输入色彩值。
ogvbox.Canvas.Font.Size = 18 '//水印文字的大小。
ogvbox.Canvas.Font.Family = "71168.cn" '//水印文字的字体名称。
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-94, ogvbox.height-17, 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("/Upload/051031/"&FileName) '//根据以上参数生成增加水印后的图片文件。
End If
End If
Set Logobox=Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''结束------

...全文

【我和openGauss的故事】kettle连接openGauss 5.0.0 数据库 Kettle最早是一个开源的ETL工具，全称为KDE Extraction, Transportation, Transformation and Loading Environment。在2006年，Pentaho公司收购了Kettle项目，原Kettle项目发起人Matt Casters加入了Pentaho团队，成为Pentaho套件数据集成架构师 [1]；阅读详情

muziruyue

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

www_7di_net 2006-05-07

打赏
举报

我写的一个水印函数，用到了ASPJPEG组件
<%
Call CreateView("UploadFile/e.jpg","./a.gif","2")
'CreateView(原图路径,LOGO图片,文字/图象水印)

'----------------------------------
'创建预览图片及打水印:call CreateView(文件的路径,要添加的水印图片文件)
'Design by Seven (See7di@Gmail.com)
Sub CreateView(imagename,img,inttype)
Dim Object,objFont,Obj,LogoPath,sWidth,sHeight
sWidth = "147" '//LOGO的宽
sHeight = "52" '//LOGO的高

LogoPath = Server.MapPath(img) '//LOGO路径

Set Obj = Server.CreateObject("Persits.Jpeg") '//建立LOGO对象
Set Object = Server.CreateObject("Persits.Jpeg") '//建立原图对象
On Error resume Next
Obj.Open LogoPath '//读取LOGO
If err>0 Then
Response.Write ("对不起,获取LOGO图片文件失败!")
EXIT SUB
End if
Object.Open Trim(Server.MapPath(imagename)) '//读取原图
If err>0 Then
Response.Write ("对不起,获取需要处理的图片文件失败!")
EXIT SUB
End if
Obj.Width = sWidth '//加入图片的原宽度
Obj.Height = sHeight '//加入图片的原高度

'\\如果原图比LOGO大
If Object.width>Cint(Obj.Width) and Object.Height>Cint(Obj.Height) Then
strDo="yes"
End if

If inttype=1 Then
Object.Canvas.Font.Color = &HFF0000 '//文字的颜色
Object.Canvas.Font.Family = "Verdana" '//文字的字体
Object.Canvas.Font.Bold = True '//是否加粗
Object.Canvas.Font.Size = 40 '//字体大小
Object.Canvas.Print Object.Width\2, Object.Height\2, "Sditi.Com" '//打印坐标x 打印坐标y 需要打印的字符

Object.Canvas.Pen.Color = &H000000 '//背景颜色
Object.Canvas.Pen.Width = 1 '//画笔宽度
Object.Canvas.Brush.Solid = False '//是否加粗处理
Object.Canvas.Bar 0, 0, Object.Width, Object.Height '//起始X坐标起始Y坐标输入长度输入高度
Else
If strDo="yes" Then
Object.Canvas.Pen.Color = &HFFFFFF '// 边框的颜色
Object.Canvas.Pen.Width = 0 '// 边框的粗细
Object.Canvas.Brush.Solid = false '// 图片边框内是否填充颜色
Object.DrawImage Object.Width\2, Object.Height\2, Obj, 0.7, &HFFFFFF,90 '// 加入图片的位置以及坐标，透明度（添加水印图片）
Object.Canvas.Bar 0, 0, Object.Width, Object.Height '// 图片边框线的位置坐标
Object.Width = Object.Width
Object.height = Object.height
Object.Sharpen 1, 120
End if
End If
Object.Save Server.MapPath(imagename) '// 生成文件
Set Obj=Nothing
Set Object=Nothing
End Sub
%>

deninghe 2006-05-07

打赏
举报

mark

huacha 2006-05-07

打赏
举报

www.wave12.com wsImage缩略图水印组件楼主可以了解了解

iasky 2006-04-27

打赏
举报

用其他办法来打水印，效果还好点，比如一些软件

deninghe 2006-04-27

打赏
举报

mark
帮你想想....

jojo163 2006-04-27

打赏
举报

楼主，你要确定你用的空间那里有没有安装这个组件Persits.Jpeg，如果没有的话，就和空间服务商联系。看看能不能安装上..

yuanxiaolei 2006-04-27

打赏
举报

组件装了吗？

mhxz5680 2006-04-27

打赏
举报

帮楼主顶下

muziruyue 2006-04-27

打赏
举报

各位帮我顶一下

muziruyue 2006-04-27

打赏
举报

上传没有问题，也没有什么提示，

认真的看过，还有原来的10W张图片也要加，因为经常有人抓我们网站的数据

还请各位帮忙，

请路过的帮顶，我快没有分了

intereye 2006-04-27

打赏
举报

再比较下示例，看问题出在哪~
这组件没用过不敢妄言~~

muziruyue 2006-04-27

打赏
举报

CSN的朋友门，帮我

老板等着要了

spook768 2006-04-27

打赏
举报

这是我改过的代码,水印加在右下角,是好用的,你自己改改,组件是Persits.Jpeg

Private Function CreateView(FileName,W,H)
'On Error Resume Next
Dim iWidth,iHeight,Pos
Dim cJpeg,PreWidth,PreHeight
Set cJpeg = Server.CreateObject("Persits.Jpeg")
cJpeg.Open Trim(Server.MapPath(FileName))
IF Err Then
CreateView = ""
cJpeg.Close
Exit Function
End IF
IF InStr("Impact,Arial",JpegFamily) Then
Pos = strLength(JpegText)*JpegSize
Else
Pos = strLength(JpegText)*JpegSize+JpegWidth*2
End IF
With cJpeg
iWidth = W
iHeight = H
IF Err Then Err .Clear
.Open Server.MapPath(FileName)
.Canvas.Font.Color = JpegColor
.Canvas.Font.Family = JpegFamily
.Canvas.Font.Size = JpegSize*2
.Canvas.Font.Bold = JpegBold
.Canvas.Print (iWidth-Pos)/2,iHeight/2-16, JpegText
.Save Server.MapPath(FileName)
IF Err Then Err cJpeg.Clear
cJpeg.Close
End With
Set cJpeg = Nothing
End Function

jojo163 2006-04-27

打赏
举报

aspjpeg是persits出品的共享软件，试用期为30天，您可以在这里下载破解版：http://www.11k.net/software/view-software-3900.html。最新版本号是1.3
aspjpeg是一款功能相当强大的图象处理组件，用它可以轻松地做出图片的缩略图和为图片加上水印功能。下面简单介绍一下使用方法：
您先要执行下载得到的exe文件，安装该组件
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"

转自：动态网制作指南 www.knowsky.com
＇保存文件
jpeg.save server.mappath("images/dodge_viper_framed.jpg")

＇注销对象
set jpeg = nothing
%>

anwell 2006-04-27

打赏
举报

http://blog.csdn.net/anwell/archive/2006/04/07/654592.aspx

100分，图片加水印，怎么也加不上？？代码如下

相关推荐