eWebeditor集成aspjpeg
采用的版本: ewebeditor version 2.8 aspjpeg V1.3
支持添加不同的水印.
相关代码如下:
要修改的页面
eWebeditor目录下 /Dialog/img.htm
注:蓝色的部分为修改和添加的代码.
第256行开始:
<legend>显示效果</legend>
<table border=0 cellpadding=0 cellspacing=0>
<tr><td colspan=9 height=5></td></tr>
<tr>
<td width=7></td>
<td>图片水印:</td>
<td width=5></td>
<td colspan=5><select id="d_syy" size=1 οnchange="d_file.myform.sy.value=this.value">
<option selected>无水印</option>
<option value="1">新浪LOGO</option>
<option value="2">搜狐LOGO</option>
<option value="3">网易LOGO</option>
</select></td>
<td width=7></td>
</tr>
<tr>
<td width=7></td>
<td>说明文字:</td>
<td width=5></td>
<td colspan=5><input type=text id=d_alt size=38 value="" style="width:243px"></td>
<td width=7></td>
</tr>
eWebeditor 目录下的 upload.asp
在上传表单添加隐含字段,用于接收选择添加的水印图片
<form action="?action=save&type=<%=sType%>&style=<%=sStyleName%>&sy=1" method=post name=myform enctype="multipart/form-data">
<input type=file name=uploadfile size=1 style="width:100%">
<input type="hidden" name="sy">
</form>
在处理图片上传的SUB中修改如下:
Sub DoSave()
Dim oUpload, oFile, sFileExt, sFileName,sy
' 建立上传对象
Set oUpload = New upfile_class
' 取得上传数据,限制最大上传
oUpload.GetData(nAllowSize*1024)
If oUpload.Err > 0 Then
Select Case oUpload.Err
Case 1
Call OutScript("parent.UploadError('请选择有效的上传文件!')")
Case 2
Call OutScript("parent.UploadError('你上传的文件总大小超出了最大限制(" & nAllowSize & "KB)!')")
End Select
Response.End
End If
Set oFile = oUpload.File("uploadfile")
sy = oUpload.Form("sy")
sFileExt = UCase(oFile.FileExt)
Call CheckValidExt(sFileExt)
Dim sRnd
Randomize
sRnd = Int(900 * Rnd) + 100
sFileName = year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "." & sFileExt
oFile.SaveToFile Server.Mappath("uploadfile/"& sFileName)
Set oFile = Nothing
Set oUpload = Nothing
'图片打水印
If sy <> "" And Not IsNull(sy) And Not IsEmpty(sy) Then
call CreateView("uploadfile/"& sFileName,sy)
End If
Call OutScript("parent.UploadSaved('" & sFileName & "')")
End Sub
添加水印的SUB
'创建预览图片及打水印:call CreateView(文件的路径,要添加的水印图片文件)
'摘取自动网,清风修改于 04/07/2006
Sub CreateView(imagename,logoimg)
'定义变量
Dim ogvbox,objFont,img
Dim Logobox,LogoPath
Dim sWidth,sHeight '水印图片的宽度和高度
Select Case logoimg
Case "1"
img = "/sy/logo.gif"
sWidth = "87"
sHeight = "52"
Case "2"
img = "/sy/logo1.gif"
sWidth = "149"
sHeight = "39"
Case Else
img = "/sy/logo2.gif"
sWidth = "106"
sHeight = "60"
End Select
LogoPath = Server.MapPath(img) '//加入图片所在路径及文件名
'---------------------AspJpegV1.2---------------
Set Logobox = Server.CreateObject("Persits.Jpeg")
'*添加水印图片 添加时请关闭水印字体*
'//读取添加的图片
Logobox.Open LogoPath
'//重新设置图片的大小
Logobox.Width = sWidth '// 加入图片的原宽度
Logobox.Height = sHeight '// 加入图片的原高度
'*添加水印图片*
Set ogvbox = Server.CreateObject("Persits.Jpeg")
' 读取要处理的原文件
ogvbox.Open Trim(Server.MapPath(imagename))
'ogvbox.Open Trim(imagename)
'If ogvbox.OriginalWidth<Cint(ImageWidth) or ogvbox.Originalheight<Cint(ImageHeight) Then
'F_Viewname=""
'Set ogvbox = Nothing
'Exit Sub
'Else
'//关于修改字体及文字颜色的
'ogvbox.Canvas.Font.Color = &HFF0000 '// 文字的颜色
'ogvbox.Canvas.Font.Family = "monospace" '// 文字的字体
'ogvbox.Canvas.Font.Bold = True
'Draw frame: black, 2-pixel width
'ogvbox.Canvas.Print 10, 10, ImageMode '// 加入文字的位置坐标
ogvbox.Canvas.Pen.Color = &HFFFFFF '// 边框的颜色
ogvbox.Canvas.Pen.Width = 0 '// 边框的粗细
ogvbox.Canvas.Brush.Solid = False '// 图片边框内是否填充颜色
ogvbox.DrawImage ogvbox.Width/1.6, ogvbox.Height/1.5, Logobox, 0.4, &HFFFFFF '// 加入图片的位置价坐标(添加水印图片)
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height '// 图片边框线的位置坐标
ogvbox.Width = ogvbox.Width
ogvbox.height = ogvbox.height
'ogvbox.height = ogvbox.Originalheight*ImageWidth/ogvbox.OriginalWidth
ogvbox.Sharpen 1, 120
ogvbox.Save Server.MapPath(imagename) '// 生成文件
'End If
Set Logobox=Nothing
End Sub
以上代码在win2k Server IIS5和WIN2003 IIS6平台上测试成功!
有问题请指出!
eWebeditor集成aspjpeg相关推荐
- eWebEditor Manual
eWebEditor Manual 在线HTML编辑器 - HTML在线编辑好帮手 Version 4.6 www.eWebEditor.net service@ewebsoft.com 目录 1 产 ...
- kindeditor项目集成
2019独角兽企业重金招聘Python工程师标准>>> 本文介绍了kindeditor编辑器与java web进行集成,实现文章内容的上传,查询与修改,由于kindeditor图片默 ...
- 百度编辑器如何在html引入,网页制作中如何集成百度Ueditor网页编辑器
开发项目必不可少用到在线网页编辑器,常用的网页编辑器有: eWebEditor 网页编辑器.Fckeditor 网页编辑器.KindEditor HTML在线编辑器.百度Ueditor编辑器-- 百度 ...
- Nignx集成fastDFS后访问Nginx一直在加载中解决
问题描述: Nginx集成fastDFS后,访问Nginx一直在加载中,得不到页面.查看Nginx的错误日志: 可以看到是fastdfs.conf的配置错误,tracker的ip没有修改: fastd ...
- Hexo集成Algolia实现搜索功能
2年前搭建的hexo博客好久没有维护了,一看 hexo 以及先前使用 butterfly 主题已经更新好几个版本了,看介绍在速度性能上有了很大的提高,于是打算给 hexo 升个级,整理整理翻翻新.通过 ...
- 将TVM集成到PyTorch
将TVM集成到PyTorch 随着TVM不断展示出对深度学习执行效率的改进,很明显PyTorch将从直接利用编译器堆栈中受益.PyTorch的主要宗旨是提供无缝且强大的集成,而这不会妨碍用户.PyTo ...
- 将TVM集成到PyTorch上
将TVM集成到PyTorch上 随着TVM不断展示出对深度学习执行效率的改进,很明显PyTorch将从直接利用编译器堆栈中受益.PyTorch的主要宗旨是提供无缝且强大的集成,而这不会妨碍用户.为此, ...
- Vitis-AI集成
Vitis-AI集成 Vitis-AI是Xilinx的开发堆栈,用于在Xilinx平台(包括边端设备和Alveo卡)上进行硬件加速的AI推理.它由优化的IP,工具,库,模型和示例设计组成.设计时考虑到 ...
- 中继TensorRT集成
中继TensorRT集成 介绍 NVIDIA TensorRT是用于优化深度学习推理的库.这种集成将使尽可能多的算子从Relay转移到TensorRT,从而无需调整调度,即可在NVIDIA GPU上提 ...
最新文章
- php twig扩展,如何写一个自定义的 Twig 扩展
- PAT乙级-1070. 结绳(25)
- python 遍历文件夹写入excel_python:创建文件夹:写入文本1:读取txt:读取Excel文件遍历文件夹:...
- 数字电路实验怎么接线视频讲解_利达:气体灭火接线示意图
- HTML用于定义宽度的是,HTML Style columnRuleWidth用法及代码示例
- RSync实现文件备份同步,rsync服务器
- 线程池合适的线程数量
- iOS NSURLSession 指南
- 麒麟v10服务器系统搭建本地源
- Ubuntu论坛遭到入侵 用户数据泄露
- 【原创】基于Springboot、WebSocket的一对一聊天室
- 读书百客:《月夜》鉴赏
- JavaScript: JSON基本概念带题解
- matlab grab cut,matlabGrabCutS graph 算法, 编写,可以运 能直观看到结果。 272万源代码下载- www.pudn.com...
- 英汉对照名言隽语(二)
- 非常好看的一款404错误页面
- 艾司博讯:拼多多企业店铺和个人店的区别在哪里?
- Selenium的使用
- U盘制作成启动盘后容量变小怎么恢复
- 第十届服务外包创新创业大赛总结
热门文章
- 机试题:寻找大富翁(选择排序)
- SAP 在表T043G中,XXXX 的输入丢失
- esp8266设置sta失败_ESP8266 – ESP8266WiFiSTA库 – disconnect
- Maven在pom文件中添加资源插件后,src/main/resource目录中的文件编译后不拷贝解决方法。
- JSP——计算圆形和矩形的面积
- 真阳率(tp)、假阳率(np)
- 嵌入式系统及应用——SOC分类
- openwrt桥接上海电信宽带+高清4KIptv适用
- 说说android端实现Airplay多屏互动(一)
- spark并行度(parallelism)和分区(partition)未生效的问题