升级FCKeditor 到v2.6 正式版再改分页标签

作者:jogocun 日期:2008-06-22 22:51

字号: 小 | 中 | 大

正在载入，请稍候……

其实FCKeditor v2.6 正式版今年出来至今有几个月了，前段时间逛了Rison的蜗牛居看到他日志的分页功能比我这的要好用，通过相关链接在PJ论坛看了Rison写的“FCKeditor v2.6 正式版 For PJblog 及分页修改方法”，代码其实很简单，几步替换就搞定。

　　但我原先在用的分页代码是2006年stanley的修改方法，UBB和FCK模式都是采用加入标签方式实现，UBB分页方法由我整合。然而Rison此修改的优点是不会在日志里显示分页的代码或标签，并且使插入分页代码的操作更简便！另据tuxw对stanley的修改方法的分析，使用该方法后日志页面跑版厉害，侧边栏、页脚经常错位---这点我站一直没发现个现象，过去在BBS上也确实有人反映过用stanley的分页修改方法问题多，问题应该是偶然吧。有兴趣的朋友可以参考原文长日志分页——解决页面跑版的问题

　　上午在论坛上给Rison发信息了解FCK2.6中标签问题，我误解了他的意思，以为FCK2.6原版的标签采用了['pagebreak]，考虑今后的编辑器方便升级，晚上花了大把时间重新修改cls_article.asp分页代码，替换UBBCode_Gecko.js、UBBCode_IE.js、UBBconfig.asp中的分页标签，再把过去的20篇带分页日志中的分页标签['pagesplitxx]都替换为['pagebreak]，其中FCK模式编辑日志['pagesplitxx]改为插入分页符，即不显示分页代码。FCK2.6版的原始分页代码为 <div style="page-break-after: always"><span style="display: none"> </span></div>。

　　其实问题是明了的，关于UBB的分页标签不用更改，把新的UBB分页标签改为你自己原先的标签就可以了，这样你就不必再一一去重新编辑过去那些分页日志了呀，NND，晚上真混，做了无用功

。不过也让我更深刻地意识到修改一些代码，尽量要考虑以后的版本升级，原FCK分页代码就是动了FCK程序源码，此次统一改用Rison整合的方法，也是便于今后升级编辑器的便捷了。

　　在此基础上为FCK2.6添加了自己需要的东西：
　　1. 替换QQ2007表情为过去收集的MSN表情，并修改fckconfig.js中相关参数，如images路径、宽高；
　　2. 在fckstyles.xml中添加图片边框样式；

　　下面顺便附上升级到FCK2.6修改日志分页的方法吧，by Rison：
　　这次FCK v2.6 更新的最大亮点就是编辑时的对话框模式，而且加载速度较快了！该版本去掉了“软键盘”功能，可能是考虑到WIN或各种输入法都自带了类似的键盘吧，我觉得倒是没必要去掉，有些功能其它软键盘都没的。
　　注意：这里为了不让代码造成自动分页，描述时在分页标签前加入 ' 注释，即 ['pagebreak] ，大家修改时去掉该注释即可~
　　

　　此版本为PJblog专用兼容版本，去掉了所有PJ用不到的功能，去掉了FCK自带的上传功能，启用了代码高亮插件，如要启用代码高亮功能需在header.asp文件中插入如下代码：
　　

程序代码

　　打开cls_article.asp找到：
　　

程序代码

sub ShowArticle(LogID)

　　在下面添加：
　　

程序代码

'得到页面链接
　　Dim sUrl, ArrUrl
sUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING")
If InStr(1,sUrl,"&",1) Then
ArrUrl=Split(sUrl, "&")
sUrl=ArrUrl(0)
End If

　　找到：
　　

程序代码

response.write (highlight(UnCheckStr(UBBCode(HtmlEncode(log_ViewArr(8,0)),mid(log_ViewArr(11,0),1,1),mid(log_ViewArr(11,0),2,1),mid(log_ViewArr(11,0),3,1),mid(log_ViewArr(11,0),4,1),mid(log_ViewArr(11,0),5,1))),keyword))
else
response.write (highlight(UnCheckStr(log_ViewArr(8,0)),keyword))

　　替换为：
　　

程序代码

'response.write (highlight(UnCheckStr(UBBCode(HtmlEncode(log_ViewArr(8,0)),mid(log_ViewArr(11,0),1,1),mid(log_ViewArr(11,0),2,1),mid(log_ViewArr(11,0),3,1),mid(log_ViewArr(11,0),4,1),mid(log_ViewArr(11,0),5,1))),keyword))
Call UBBSplitxx(sUrl)
else
'response.write (highlight(UnCheckStr(log_ViewArr(8,0)),keyword))
Call FckSplitxx(sUrl)

本日志共2页:[1][2][全文阅读]