账号通
    

账号  

密码  

6587

查看

8

回复
主题:[分享]科汛文章内容div替换成p并清除空p标签 [收藏主题] 转到:  
anflash 当前离线

209

主题

2

广播

36

粉丝
添加关注
级别:二年级

用户积分:1084 分
登录次数:631 次
注册时间:2011/12/22
最后登录:2024/8/3
anflash 发表于:2014/9/20 14:17:46   | 显示全部帖子 查看该作者主题 楼主 
科汛在线考试系统(NET)
如果将记事本里的内容复制到,后台编辑器里,查看源码你会发现,原本段落不是p标签而是div。导致前台没有段落,这点科汛V9.5最为显著,解决方法:浏览器选择【兼容模式】打开后台添加文章。这种方法未必靠谱,因此今天决定修改程序解决这一问题。

修改后的优点:

1、将所有不带样式的div标签替换成p标签;
2、清除添加内容里的所有空格(全角、半角);
3、清除空段落(空p标签)。
修改后缺点:
1、文章保存后才能生效;
2、为避免p标签嵌套,建议保存后点击修改文章,无需修改内容直接保存(打开后编辑器会自动整理标签);
3、故意添加的空格或div标签会被清除。
修改方法:
修改asp
admin/KS.Article.asp



If KS.IsNul(ArticleContent)="" Then ArticleContent=" "
ArticleContent = Replace(Replace(ArticleContent,"<div>","<p>"),"</div>","</p>") ' 将div标签替换成p标签
ArticleContent = Replace(Replace(Replace(ArticleContent," ","")," ",""),"&nbsp;","") ' 去除空格 全角空格、半角空格、编码空格
ArticleContent = Replace(ArticleContent,"<p>"&vbcrlf&vbtab&"</p>","") ' 去除空p
ArticleContent = FilterScript(ArticleContent)


修改后效果:
文章保存前
点击查看原图


文章保存后
点击查看原图


备注:红色为新增部分


 
个人QQ:845977434
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
anflash 当前离线

209

主题

2

广播

36

粉丝
添加关注
级别:二年级

用户积分:1084 分
登录次数:631 次
注册时间:2011/12/22
最后登录:2024/8/3
anflash 发表于:2014/9/25 13:31:00   | 显示全部帖子 查看该作者主题 沙发 
科汛在线考试系统(NET)
补充:

如果有待样式的div,修改下将

ArticleContent = Replace(Replace(ArticleContent,"<div>","<p>"),"</div>","</p>") ' 将div标签替换成p标签

改成:

ArticleContent = Replace(ArticleContent,"div","p") ' 将div标签替换成p标签



 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.11328秒 powered by KesionCMS 9.0