FCKeditor v2.6 正式版 For PJblog【附FCK及UBB内分页修改方法】20080529
[quote]拓展功能：FCKeditor v2.6 正式版 For PJblog
修 改 者： Rison
发布时间： 2008-04-11
适用版本： v2.5、v2.6、v2.7
下载地址： [attach]10715[/attach]
修改文件： 不用修改任何文件
修改方法： 解压附件文件包，先删除blog根目录下的原FCKedior文件夹后，将解压后的FCKeditor文件夹直接上传至blog根目录即可！[/quote]
详细介绍：
这次FCK v2.6 更新的最大亮点就是编辑时的对话框模式，而且加载速度快了很多！
多的不说了，安装试用就都知道了！
[attach]10714[/attach]
此版本为PJblog专用兼容版本，去掉了所有PJ用不到的功能，去掉了FCK自带的上传功能，启用了代码高亮插件，如要启用代码高亮功能需在header.asp文件中插入如下代码[code] <link rel="stylesheet" rev="stylesheet" href="FCKeditor/editor/css/Dphighlighter.css" type="text/css" media="all" /><!--FCK块引用&代码样式-->[/code][attach]10715[/attach]
[color=Red][i]---------------------------------2008.5.29更新如下----------------------------------------[/i][/color]
2008.5.29:加入UBB分页代码
很多朋友在问，UBB编辑下如何在全部阅读时不显示分页标签，现在有个很好的方法，可以在全文阅读时替换分页标签为空。在这里我用的标签是[pagebreak]，所以在分页的地方加入这个标签就可以了。
2008.4.12:加入FCKeditor分页代码
很多朋友想要，但是可能都不会修改，我的FCK v2.6的文件包里已经将分页功能加上，但是FCK的分页功能必须配合修改显示日志的页面才能实现，为了能把FCK的分页功能应用上，提供一下我的完全兼容FCK v2.6的修改方法，此修改的优点是不会在日志里显示分页的代码或标签，并且使插入分页代码的操作更简便！本人将FCK的分页代码简单的修改了一下，为了是不修改FCKeditor源代码的情况下使用分页功能，使之与FCK v2.6兼容，所以使用FCK2.6的朋友务必按照本帖方法修改，才能使用FCK分页按钮做出分页效果！
FCK分页演示：[url]http://www.snailstory.cn/blog/article.asp?id=173[/url]
UBB分页演示：[url]http://www.snailstory.cn/blog/article.asp?id=184[/url]
此分页代码来自论坛tuxw的修改方法 [url]http://bbs.pjhome.net/thread-27803-1-1.html[/url]
现在来说说修改方法，只修改一个文件（切忌先备份要修改的文件，这是个良好习惯）：
打开cls_article.asp找到：
[code] sub ShowArticle(LogID)[/code]
在下面添加：
[code]'得到页面链接
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[/code]
找到：
[code]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))[/code]
替换为：
[code]'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)[/code]
在该页面最后添加如下代码：
[code]<%
'*******************************************
' UBB 日志分页
' 修改时间：2007年12月17日
'*******************************************
Sub UBBSplitxx(sUrl)
dim arrContent,Page,PageList,Content,PageCounter,x,xx,uu
Content=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)
If InStr(1,cstr(Content),"[pagebreak]",1)<>0 Then
ArrContent=Split(Content,"[pagebreak]")
PageCounter=UBound(ArrContent)
If PageCounter > 0 Then
Page=Request.QueryString("pages")
Page=CInt(Page)
If Page<1 Then Page=1
If Page-2>PageCounter Then Page=PageCounter + 2
For x=1 To PageCounter+1
uu=sUrl & "&pages=" & x
If Page=x Then
xx=" [<font color='#FF0000'>" & x & "</font>]"
PageList = PageList & xx
Else
xx= x
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
Next
uu = sUrl & "&pages=" & x
If Page=PageCounter + 2 Then
xx = " [<font color='#FF0000'>全文阅读</font>]"
PageList = PageList & xx
Else
xx = "全文阅读"
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
If Page-1<=PageCounter Then
Content=ArrContent(Page-1)
End If
x = PageCounter + 1
Content=Content & "<hr><div align='right'>共 " & x & " 页:" & PageList & "</div>"
End If
content=replace(content,"[pagebreak]","")
End If
response.write (content)
End Sub%>
<%
'*******************************************
' FCK 日志分页
' 修改时间：2007年12月17日
'*******************************************
Sub FCKSplitxx(sUrl)
dim arrContent,Page,PageList,Content,PageCounter,x,xx,uu
Content=highlight(UnCheckStr(log_ViewArr(8,0)),keyword)
If InStr(1,cstr(Content),"<div style=""page-break-after: always""><span style=""display: none""> </span></div>",1)<>0 Then
ArrContent=Split(content,"<div style=""page-break-after: always""><span style=""display: none""> </span></div>")
PageCounter=UBound(ArrContent)
If PageCounter > 0 Then
Page=Request.QueryString("pages")
Page=CInt(Page)
If Page<1 Then Page=1
If Page-2>PageCounter Then Page=PageCounter+2
For x=1 To PageCounter+1
uu=sUrl & "&pages=" & x
If Page=x Then
xx=" [<font color='#FF0000'>" & x & "</font>]"
PageList = PageList & xx
Else
xx= x
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
Next
uu = sUrl & "&pages=" & x
If Page=PageCounter + 2 Then
xx = " [<font color='#FF0000'>全文阅读</font>]"
PageList = PageList & xx
Else
xx = "全文阅读"
PageList = PageList & " [<a href='" & uu & "'>" & xx & "</a>]"
End If
If Page-1<=PageCounter Then
Content=ArrContent(Page-1)
'下面三行是标签补全，我的回车默认标签改为 <div> 了，所以补的是 </div> 和 <div>
'如果你的是 <p> 的话，补全的标签也要相应修改为 </p> 和 <p>
'插入分页符的时候，用回车换行，单独起一行来放分页符 [pagebreak]
'If Page=1 Then Content=Content & "</div>"
'If Page-1=PageCounter Then Content="<div>" & Content
'If Page>1 And Page<=PageCounter Then Content="<div>" & Content & "</div>"
End If
x = PageCounter + 1
Content=Content & "<hr><div align='right'>共 " & x & " 页:" & PageList & "</div>"
End If
End If
response.write(Content)
End Sub%>[/code]
修改完成，使用分页功能的时候切忌修改格式不要跨分页符修改格式，否则会出现页面变形的情况，简单的说就是设置内容格式的时候每页分别设置，不能全篇一起设置！（这不太好表达，如果没听懂请多读几遍吧，仔细琢磨一下！！）
[[i] 本帖最后由 Rison 于 2008-5-29 13:48 编辑 [/i]]
