K9 通用版 博客版 主题版 地方门户版 企业版 |   企业(ASP) 分类 使用 分享 疑问 模板 建议 帮助 错误 其他
+新建主题 [Ajax]
填写帐号密码即可完成注册
+新建话题 最新回复排序 最新主题排序 精华帖子

5.0水印

1Next >

无聊的飞翔 发表于:11-11-26 21:19 [添加收藏] 楼主 [回复] #Top#
无聊的飞翔 人气:402 积分:1736 金币:20053
KC元老
KingCMS5.0添加水印

page/system/fun.asp

问题 isobj(l1) 函数
l2.open server.mappath(king_system&"system/images/load.gif")
'判断aspjpeg组件
if err.number=0 then isobj=true
取得错误码:err.number=2 

不知是不是服务器组件是否有问题
我决定不用这个检测aspjpeg过程

查找watermark(l1)过程修改

public sub watermark(l1)
on error resume next
dim I1,I2,I3
Err.clear
set I1=server.createobject(king_jpeg)'原始图
if king_watermark and -2147221005<>Err and isexist(l1) then   '-2147221005<>Err 检测aspjpeg组件有没有安装
else
exit sub
end if
 if len(king_regkey)>0 then I1.regkey =king_regkey
I1.open server.mappath(l1)
set I2=server.createobject(king_jpeg)'水印图片
if len(king_regkey)>0 then I2.regkey =king_regkey
I2.open server.mappath("../../"&king_templates&"/images/watermark.gif")
...

为了让上传图片自动打水印我改了[后台/system/manage.asp]文件

case"upfile"
king.clearol
king.ol="<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"
king.ol="<style type=""text/css"">*{margin:0px;padding:0px;}</style>"
if instr(lcase(request.servervariables("content_type")),"multipart/form-data") then
upload.FileType=ftype
upload.SavePath=""
if right(path,1)<>"/" then path=path&"/"
if upload.save("upfile",path&upload.form("upfile_name")) then'成功上传
filecate= upload.form("upfile_name")
filecate=king.filecate(LCase(right(filecate,(len(filecate)-instrrev(filecate,".")))))
if filecate="img" then'图片
'king.watermark(path&upload.form("upfile_name"))
end if
 king.txt "<script>window.parent.posthtm('../system/manage.asp?action=filemanage','aja','path="&server.urlencode(path&upload.form("upfile_name"))&"&type="&ftype&"&formname="&formname&"');window.parent.display('flo');</script>"'king.lang("'上传成功'")
else
back="../system/manage.asp?action=upfile&path="&server.urlencode(path)&"&type="&ftype&"&formname="&formname&""
king.txt"<p style=""font-size:12px;line-height:22px;"">"&king.lang("error/upfile/err"&upload.error)&"<br/><a style=""color:#000;"" href="""&back&""">"&king.lang("common/back")&"</a></p>"
end if
无聊的飞翔 发表于:11-11-26 21:22 编辑于:11-26 21:22 沙发 [回复] #Top#
无聊的飞翔 人气:402 积分:1736 金币:20053
KC元老
收藏了一个KingCMS完美解决本地上传图片加水印,整理一下,有需要的时候试试。
客户要求所上传的图片都要加上公司的LOGO或者文字水印,但是使用KingCMS5.1没有这个功能,也许是程序BUG吧。因为KingCMS的水印功能只有在采集文章,或者复制远程图片时才会自动加上水印,本地上传的图片不会加上的,KingCMS本地上传图片加水印修改如下
打开 [后台/system/manage.asp]文件,大概是在124行吧,
找到if upload.save("upfile",path&upload.form("upfile_name")) then'成功上传,然后在下面加上以下代码:
filecate= upload.form("upfile_name")
filecate=king.filecate(LCase(right(filecate,(len(filecate)-instrrev(filecate,".")))))
if filecate="img" then
    king.watermark(path&upload.form("upfile_name"))
end if
注意:水印图片路径位置修改请找到page/system/fun.asp文件的1511行,代码如下:
I2.open server.mappath("../../"&king_templates&"/image/watermark.gif")

需要注意的是,上传的图片宽度及高度必须大于 watermark.gif 才会加上水印的!
另,用FC编辑器上传的图片还是没有加上水印,这个问题留待解决,现在客户不需要,也就不理会了!

1Next >

发表回复

帐号 匿名发布 审核后可见 [加载完整在线编辑器]
内容
验证码
KingCMS 内容管理系统

关于我们 联系我们 广告报价 付款方式 站点导航

Copyright © 2004-2015 Focuznet All rights reserved.

广州唯众网络科技有限公司 粤ICP备08008106号