qg - 2006-6-21 19:54:00
传说中的强人，呵呵~老能带来精品，呵呵~~~
[upload=jpg]UploadFile/2006-6/200661711313985367.jpg[/upload]
[upload=jpg]UploadFile/2006-6/200661711325317543.jpg[/upload]
申明：经过测试，我上次发贴子有些东西写漏了，现在重新修正，我完全按照这次发贴的方法修改3.2sp1（刚刚从官方站下载的），没有问题了,以前下载过附件的重新下载吧。
风讯编辑器是个好的编辑器，可是有些东西没有考虑完整，比如路径、WORD粘贴的问题就处理的不是很好，所以想到替换默认编辑器为Ewebeditor
由于本人不太懂JS，所以风讯编辑器的特性都没有做好，比如：指定一个图片为图片新闻，插入下载等，希望高手补充。
后台控制：
使用编辑器开关：可选默认编辑器、Ewebeditor编辑器
Ewebeditor编辑器样式后台管理整合到风讯后台，一站管理
说明：
因为在整合程序时，Ewebeditor程序中的版权信息占用了很大篇幅，为了调试程序方便，我就临时去掉了，希望作者不要追究我的责任，呵呵
为了尽量避免不修改数据库，编辑器的切换采用const.asp文件的参数来控制使用的编辑器，可以自由选择默认编辑器还是Ewebeditor编辑器。
本列只是以newsword.asp为主，其他的修改参考就可以修改成功
修改说明：
1、首先创建数据库：
AC版： 直接导入数据库
SQL版：执行SQL查询分析器，执行webeditor.sql
然后再把MDB数据库导入到SQL中
2、上传编辑器前台调用程序到网站根目录的Ewebeditor（需要创建）
3、上传编辑器后台控制文件到foosun/admin/EditorManage目录下（EditorManage目录需要创建）
4、修改foosun/admin/Menu_Folders.asp
在<tr AllParentID="0" ParentID="0" ClassID="FriendLink" style="display:;">
<td><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="<%=HRImage%>" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/folderclosed.gif" width="18" height="18"></td>
<td><span onClick="ClickBtn(this,'FriendLinkManage');" class="TempletItem">友情链接管理</span></td>
</tr>
</table></td>
</tr>
后面加入：
<tr AllParentID="0" ParentID="0" ClassID="FriendLink" style="display:;">
<td><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="<%=HRImage%>" width="16" height="22"><img src="../Images/Folder/Node.gif" width="16" height="22"><img src="../Images/Folder/folderclosed.gif" width="18" height="18"></td>
<td><span onclick="ClickBtn(this,'webeditorManage');" class="TempletItem">编辑器管理</span></td>
</tr>
</table></td>
</tr>
在查找：case 'FriendLinkManage':
LocationStr='Info/OrdinaryFriendLink.asp';
break;
后面加入：
//编辑器管理
case 'webeditorManage':
LocationStr='EditorManage/list.asp';
break;
5、修改inc/const.asp
增加:
'-----使用编辑器类型，0为默认编辑器，1为Ewebeditor编辑器-----
Const UserWebEditor = 1
6、修改foosun/admin/info/newsword.asp文件
在<body topmargin="2" leftmargin="2">后增加：
<!-- Ewebeditor JS Function 开始----->
<script language=JavaScript>
// 表单提交检测
function doCheck(){
// 检测表单的有效性
// 如：标题不能为空，内容不能为空，等等....
if (eWebEditor.getHTML()=="") {
alert("内容不能为空！");
return false;
}
// 表单有效性检测完后，自动上传远程文件
// 函数：remoteUpload(strEventUploadAfter)
// 参数：strEventUploadAfter ; 上传完后，触发的函数名，如果上传完后不需动作可不填参数
eWebEditor.remoteUpload("doSubmit()");
// 当一个表单中有多个编辑区时，你可以指定上传某个编辑区，如：
// eWebEditor1.remoteUpload();
// eWebEditor2.remoteUpload();
// eWebEditor4.remoteUpload("doSubmit()"); 这是最后一个，执行完后提交表单
return false;
}
// 表单提交（当远程上传完成后，触发此函数）
function doSubmit(){
document.NewsForm.submit();
}
</script>
查找：onClick="SubmitFun();"
替换为：
<%if UserWebEditor=0 then response.write "onClick='SubmitFun();'" else response.write "OnClick='doCheck();'"%>
查找IContent = Replace(Replace(IContent,"""","%22"),"'","%27")
替换为：IContent = Replace(Replace(IContent,"""",""),"'","")
查找：<tr id="ContentArea">
<td colspan="2"><iframe id='NewsContent' src='../../Editer/NewsEditer.asp' frameborder=0 scrolling=no width='100%' height='440'></iframe></td>
</tr>
替换为：
<%if UserWebEditor = 0 then%>
<tr id="ContentArea">
<td colspan="2"><iframe id='NewsContent' src='../../Editer/NewsEditer.asp' frameborder=0 scrolling=no width='100%' height='440'></iframe></td>
</tr>
<%else%>
<tr id="ContentArea">
<td colspan="2"><INPUT type="hidden" name="Content" value="">
<IFRAME ID="eWebEditor" src="/Ewebeditor/ewebeditor.asp?id=Content&style=standard1" frameborder="0" scrolling="no" width="100%" height="440"></IFRAME></td>
</tr>
<%end if%>
希望对大家有点用处！！
风讯案列：http://www.chinawts.com 佛教五台山
http://www.guoguo17.com 果果石器
http://www.kot.com.cn 公司网站
[此贴子已经被作者于2006-6-21 08:54:35编辑过]
做沙发哈哈
=kedee=重出江湖了
传说中的强人，呵呵~老能带来精品，呵呵~~~
[em01][em01][em01][em01]=kedee=
听谁说是不是 才蜜月完?
[em02]Active Server Pages
错误 'ASP 0138'
嵌套的 Script 块
/Foosun/Admin/Info/NewsWords.asp，行 791
Script 块不能放在另一个 Script 块内。
[此贴子已经被作者于2006-6-17 21:17:10编辑过]
我今天刚下载了一个V3.2 SP1(v3.2.1)的版本，已经放出来了，修改方法跟3.1的一样的，只是我上次发贴有一个东西写错，一个写漏的，现在已经修正了
标签的、下载的、商城都可以换啊
[此贴子已经被作者于2006-6-21 08:58:44编辑过]
最近比较忙一点，所以。。。
我尽量很快把3.2的放出来
Active Server Pages
错误 'ASP 0138'
嵌套的 Script 块
/Foosun/Admin/Info/NewsWords.asp，行 791
Script 块不能放在另一个 Script 块内。
刚用到3.2上 是不是只能改于 添加文章上的编辑上!
其他的地方好弄不?
程序盲一个
传说中的强人，呵呵~老能带来精品，呵呵~~~
[此贴子已经被作者于2006-6-21 22:46:34编辑过]
ＮＮＤ =kedee= 是超人
可以用了 嘿嘿 谢谢咯[em21]
按楼主说的试了（3.2SP1），下载了楼主提供的文件，但显示如下错误：
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
-------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
[Microsoft][ODBC Microsoft Access Driver] Microsoft Jet 数据库引擎找不到输入表或查询 'ewebeditor_style'。 确定它是否存在，以及它的名称的拼写是否正确。
/Ewebeditor/ewebeditor.asp, 第 216 行
是不是还要做其他的修改和整合，本人不会，请指教[em04]
[此贴子已经被作者于2006-6-24 10:32:39编辑过]
真是牛人 =kedee=
OKOK
[em02]我今天针对这个问题我重新下载了3。2免费版的（最新版本），测试正常
这次修改只是针对了文字新闻，其他的可以参考这个修改方法来修改
怎么导入数据库，哪个库？
版主：我的是3.1 0930，本人按上面的提示做完后存在问题：文字编辑则显示“无法显示该页”，提示一些错误信息。是什么原因呀。下载、标题、图片的编辑修改需要修改哪些文件？
菜了点，谢谢你
=kedee=
听谁说是不是 才蜜月完?
[em02]和尚也能娶老婆吗？ 那````````俺也出家去````````````````[em02]
无法下载，请那位再提供一下，谢谢。