关于eWebEditor 集成 图片加水印的功能遇到的问题！！！在线等待！！

wmlf 2005-11-25 12:24:15

我使用的是eWebEditor Version 2.1.6 HTML编辑器
由于他没有上传图片以后在图片上加水印的功能
我就用 CSDN VB版 online(龙卷风3.0 笑傲江湖) 组件 想将两者集成到一起

关于 龙卷风3.0 笑傲江湖图片加水印功能已经（TEST.ASP） 测试好了，单独的运行是没有问题的
但是在添加到 eWebEditor 中时 我在 Upload.asp（上传图片的程序） 文件中等到图片上传完以后将相同的（TEST.ASP）的代码加入到里面 但是只能运行到 flysoft.Image 的创建
后面的就 没有办法运行了 不知道时为什么？？那位大哥能帮我看看吗？
代码如下：
（TEST.ASP）

set obj2=server.CreateObject("flysoft.Image")
response.Write("<SCRIPT language=JavaScript>alert('0');</script>")
logo="/CmsEditor/UploadFile/logo.gif"
obj2.Rate =1
response.Write("<SCRIPT language=JavaScript>alert('1');</script>")
obj2.LoadFromFile = Server.Mappath("/CmsEditor/UploadFile/20051125112053875.jpg")
response.Write("<SCRIPT language=JavaScript>alert('2');</script>")
obj2.LoadFromMaskImgFile = server.mappath (logo)
response.Write("<SCRIPT language=JavaScript>alert('3');</script>")
obj2.OutputMarkImgFile Server.Mappath("/CmsEditor/UploadFile/20051125112053875.jpg"), 60, 150, 50
response.Write("<SCRIPT language=JavaScript>alert('4');</script>")
obj2.Rate =0.5
obj2.LoadFromFile =Server.Mappath("/CmsEditor/UploadFile/20051125112053875.jpg")
obj2.OutputImgFile Server.Mappath("/CmsEditor/UploadFile/20051125112053875_s.jpg")
set obj2=nothing
response.Write("<SCRIPT language=JavaScript>alert('恭喜你，操作2成功！');</script>")

Upload.asp 代码如下：
<!--#include file="Include/Startup.asp"-->
<!--#include file="Include/upfile_class.asp"-->

<%

Server.ScriptTimeOut = 9000
Dim sType, sStyleName
Dim sAllowExt, nAllowSize, sUploadDir

Call InitUpload() ' 初始化上传变量
Call DBConnEnd() ' 断开数据库连接


Dim sAction
sAction = UCase(Trim(Request.QueryString("action")))

Call ShowForm() ' 显示上传表单
If sAction = "SAVE" Then
Call DoSave() ' 存文件
End If



Sub ShowForm()
%>
<HTML>
<HEAD>
<TITLE>文件上传</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
body, a, table, div, span, td, th, input, select{font:9pt;font-family: "宋体", Verdana, Arial, Helvetica, sans-serif;}
body {padding:0px;margin:0px}
</style>

<script language="JavaScript" src="dialog/dialog.js"></script>

</head>
<body bgcolor=menu>

<form action="?action=save&type=<%=sType%>&style=<%=sStyleName%>" method=post name=myform enctype="multipart/form-data">
<input type=file name=uploadfile size=1 style="width:100%">
</form>

<script language=javascript>

var sAllowExt = "<%=sAllowExt%>";
// 检测上传表单
function CheckUploadForm() {
if (!IsExt(document.myform.uploadfile.value,sAllowExt)){
parent.UploadError("提示：\n\n请选择一个有效的文件,\n支持的格式有（"+sAllowExt+"）！");
return false;
}
return true
}

// 提交事件加入检测表单
var oForm = document.myform ;
oForm.attachEvent("onsubmit", CheckUploadForm) ;
if (! oForm.submitUpload) oForm.submitUpload = new Array() ;
oForm.submitUpload[oForm.submitUpload.length] = CheckUploadForm ;
if (! oForm.originalSubmit) {
oForm.originalSubmit = oForm.submit ;
oForm.submit = function() {
if (this.submitUpload) {
for (var i = 0 ; i < this.submitUpload.length ; i++) {
this.submitUpload[i]() ;
}
}
this.originalSubmit() ;
}
}

// 上传表单已装入完成
try {
parent.UploadLoaded();
}
catch(e){
}

</script>

</body>
</html>
<%
End Sub

' 保存操作
Sub DoSave()
Dim oUpload, oFile, sFileExt, sSourceFileName, sSaveFileName
' 建立上传对象
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")
sFileExt = LCase(oFile.FileExt)
sSourceFileName = oFile.FileName
Call CheckValidExt(sFileExt)

Dim sRnd
Randomize
sRnd = Int(900 * Rnd) + 100
dim sSaveFileName1
sSaveFileName1 = year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "_s." & sFileExt
sSaveFileName = year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "." & sFileExt
oFile.SaveToFile Server.Mappath(sUploadDir & sSaveFileName)
response.Write("<SCRIPT language=JavaScript>alert('恭喜你，"&sUploadDir&"！');</script>")
response.Write("<SCRIPT language=JavaScript>alert('恭喜你，"&sSaveFileName&"！');</script>")
response.Write("<SCRIPT language=JavaScript>alert('恭喜你，"&Server.Mappath(sUploadDir & sSaveFileName)&"！');</script>")

Set oFile = Nothing
Set oUpload = Nothing
dim obj2
set obj2=server.CreateObject("flysoft.Image")
response.Write("<SCRIPT language=JavaScript>alert('0');</script>")
logo="/CmsEditor/UploadFile/logo.gif"
obj2.Rate =1
response.Write("<SCRIPT language=JavaScript>alert('1');</script>")
obj2.LoadFromFile = Server.Mappath("/CmsEditor/UploadFile/20051125112053875.jpg")
response.Write("<SCRIPT language=JavaScript>alert('2');</script>")
obj2.LoadFromMaskImgFile = server.mappath (logo)
response.Write("<SCRIPT language=JavaScript>alert('3');</script>")
obj2.OutputMarkImgFile Server.Mappath("/CmsEditor/UploadFile/20051125112053875.jpg"), 60, 150, 50
response.Write("<SCRIPT language=JavaScript>alert('4');</script>")
obj2.Rate =0.5
obj2.LoadFromFile =Server.Mappath("/CmsEditor/UploadFile/20051125112053875.jpg")
obj2.OutputImgFile Server.Mappath("/CmsEditor/UploadFile/20051125112053875_s.jpg")
set obj2=nothing
response.Write("<SCRIPT language=JavaScript>alert('恭喜你，操作2成功！');</script>")

Call OutScript("parent.UploadSaved('" & sSaveFileName & "');parent.dialogArguments.addUploadFile('" & sSourceFileName & "', '" & sSaveFileName & "')")

End Sub

' 输出客户端脚本
Sub OutScript(str)
Response.Write "<script language=javascript>" & str & ";history.back()</script>"
End Sub
'添加水印





' 检测扩展名的有效性
Sub CheckValidExt(sExt)
Dim b, i, aExt
b = False
aExt = Split(sAllowExt, "|")
For i = 0 To UBound(aExt)
If LCase(aExt(i)) = sExt Then
b = True
Exit For
End If
Next
If b = False Then
OutScript("parent.UploadError('提示：\n\n请选择一个有效的文件,\n支持的格式有（"+sAllowExt+"）！')")
Response.End
End If
End Sub


' 初始化上传限制数据
Sub InitUpload()
sType = UCase(Trim(Request.QueryString("type")))
sStyleName = Trim(Request.QueryString("style"))
sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
sUploadDir = oRs("S_UploadDir")
sUploadDir = Replace(sUploadDir, "\", "/")
If Right(sUploadDir, 1) <> "/" Then
sUploadDir = sUploadDir & "/"
End If

Select Case sType
Case "FILE"
sAllowExt = oRs("S_FileExt")
nAllowSize = oRs("S_FileSize")
Case "MEDIA"
sAllowExt = oRs("S_MediaExt")
nAllowSize = oRs("S_MediaSize")
Case "FLASH"
sAllowExt = oRs("S_FlashExt")
nAllowSize = oRs("S_FlashSize")
Case Else
sAllowExt = oRs("S_ImageExt")
nAllowSize = oRs("S_ImageSize")
End Select
Else
OutScript("parent.UploadError('无效的样式ID号,请通过页面上的链接进行操作！')")
End If
oRs.Close
' 任何情况下都不允许上传asp脚本文件
sAllowExt = Replace(UCase(sAllowExt), "ASP", "")
End Sub
%>
...全文
456 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
anwell 2006-04-09
  • 打赏
  • 举报
 回复
我搞定了

http://blog.csdn.net/anwell/archive/2006/04/07/654592.aspx
ltjy 2006-04-07
  • 打赏
  • 举报
 回复
路过
liuph3000 2006-04-07
  • 打赏
  • 举报
 回复
顶

========================================
http://peipei3000.jishuqi.com/reg.asp
http://www.goofar.com/?ID=634664011139
========================================
anwell 2006-04-06
  • 打赏
  • 举报
 回复
我也是这问题.

一直显示图片上传中,


郁闷
wmlf 2005-11-28
  • 打赏
  • 举报
 回复
难道就没有人做过这样的事情马？
谁来帮帮我。。。
chuangsheng 2005-11-28
  • 打赏
  • 举报
 回复
帮顶,学习中ing
wmlf 2005-11-28
  • 打赏
  • 举报
 回复
eWebEditor有加水印的功能啊,去下载一个新版本的吧
什么版本 ？？？是不是免费的呀！！
gatey 2005-11-28
  • 打赏
  • 举报
 回复
eWebEditor有加水印的功能啊,去下载一个新版本的吧
wgf001 2005-11-28
  • 打赏
  • 举报
 回复
没做过
wmlf 2005-11-28
  • 打赏
  • 举报
 回复
谢了！！！
nosad 2005-11-28
  • 打赏
  • 举报
 回复
帮顶~~
eWebeditor带水印功能
eWebeditor后台编辑器，可以图片上传加水印，超级好用，附加浏览器兼容修改的文档。
图片加水印.asp
用asp 在图片上面加水印.
eWebEditor编辑器按钮失效，IE8下eWebEditor编辑器无法使用问题解决方法
解决eWebEditor编辑器按钮失效，IE8下eWebEditor编辑器无法使用问题解决方法。
eWebeditor 5.5 完整破解 加强版目前能完整破解的最高版本，完全破解版 带后台 可以实现word excel的导入 word图片粘贴 （asp版本）
　(5) 增加了图片水印文件选择器，可从ewebeditor提供的共享图片、已收传的图片和站点Images文 件夹(注意：站点Images文件夹，必须在网站根目录下，目录名为Images)中选择。 　(6) 增加了水印图片透明颜色的设置。...
Ewebeditor License not found. Disabled.doc
Ewebeditor 是一个功能强大的在线编辑器，但是有时用户可能会遇到 License not found. Disabled 的问题，今天我们将深入探讨这个问题的成因和解决方法。 首先，让我们了解 Ewebeditor 的 License 机制。Ewebeditor ...
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章