增加栏目单页内容“文本编辑模式”，防止自带编辑器过滤代码-领先建站CMS提供服务商我们专注于CMS建站产品的研发

kesion

<<返回列表上一个主题下一个主题打印本帖复制本帖地址

1556 查看	1 回复

主题：[分享]增加栏目单页内容“文本编辑模式”，防止自带编辑器过滤代码 [收藏主题]

浪侠当前离线

416 主题	4 广播	1 粉丝

添加关注

级别:四年级

用户积分:2073 分
登录次数:299 次
注册时间:2007/2/12
最后登录:2019/3/14

当前不在线

浪侠发表于：2015/6/18 11:37:42 | 只看该作者查看该作者主题楼主

一分钟快速开通线上知识店铺

由于没有上传附件的权限，看不了效果图，只能看代码了。
admin/system/ks.class.asp
大概1131行后面增加如下代码

.echo " | <a href=""javascript:txtEditClass('" & ID & "');"">文本编辑"& MyFolderName&"</a>"

大概147行后面增加如下代码

function txtEditClass(FolderID){ location.href='KS.Class.asp?Page=<%=CurrentPage%>&channelid=<%=request("channelid")%>&a=<%=request("a")%>&Action=Edit&Go=Class&FolderID='+FolderID+'&oids='+oids+'&txt=1'; $(parent.document).find('#BottomFrame')[0].src='Post.Asp?OpStr='+escape("<font color=red>文本编辑<%=MyFolderName%></font>")+'&ButtonSymbol=GoSave&Go=Class&FolderID='+FolderID;}

ks_cls/kesion.classcls.asp

大概362行替换成如下代码

.Write " <div>单页内容：<font>(使用标签{$GetClassIntro}在模板里调用)</font></div>" & vbCrLf If KS.ChkClng(KS.G("txt"))=1 Then .Write "<textarea id=""ClassContent"" name=""ClassContent"" cols=""120"" rows=""20"">"&ClassContent&"</textarea>" Else Response.Write EchoEditor("ClassContent",ClassContent,"NewsTool","96%","350px") End If

科汛商学院助您快速入门

反对(0)

回到顶部

回到底部

底部

q1763633868 当前离线

211 主题	2 广播	1 粉丝

添加关注

级别:二年级

用户积分:685 分
登录次数:63 次
注册时间:2013/5/12
最后登录:2017/9/15

当前不在线

q1763633868 发表于：2015/6/21 9:20:57 | 只看该作者查看该作者主题沙发

有课程找生源就上科汛课堂街

好样的，测试一下！

http://www.86huamu.com/

做官网就用科汛智能建站系统!

反对(0)

回到顶部

回到底部

底部

＜上一主题 | 下一主题＞

<< 返回列表

Powered By KesionCMS Version X1

厦门科汛软件有限公司 © 2006-2016 页面执行0.07813秒 powered by KesionCMS 9.0