Rison

引用:

拓展功能：FCKeditor v2.6 正式版 For PJblog
修 改 者：   Rison
发布时间：   2008-04-11
适用版本：   v2.5、v2.6、v2.7
下载地址：   
修改文件：   不用修改任何文件
修改方法：   解压附件文件包，先删除blog根目录下的原FCKedior文件夹后，将解压后的FCKeditor文件夹直接上传至blog根目录即可！

详细介绍：
这次FCK v2.6 更新的最大亮点就是编辑时的对话框模式，而且加载速度快了很多！
多的不说了，安装试用就都知道了！


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

复制内容到剪贴板

代码:

        <link rel="stylesheet" rev="stylesheet" href="FCKeditor/editor/css/Dphighlighter.css" type="text/css" media="all" /><!--FCK块引用&代码样式-->

---------------------------------2008.5.29更新如下----------------------------------------

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分页演示：http://www.snailstory.cn/blog/article.asp?id=173
UBB分页演示：http://www.snailstory.cn/blog/article.asp?id=184

此分页代码来自论坛tuxw的修改方法 http://bbs.pjhome.net/thread-27803-1-1.html

现在来说说修改方法，只修改一个文件（切忌先备份要修改的文件，这是个良好习惯）：
打开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)

在该页面最后添加如下代码：

复制内容到剪贴板

代码:

<%
'*******************************************
'  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"">&nbsp;</span></div>",1)<>0 Then
        ArrContent=Split(content,"<div style=""page-break-after: always""><span style=""display: none"">&nbsp;</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%>

修改完成，使用分页功能的时候切忌修改格式不要跨分页符修改格式，否则会出现页面变形的情况，简单的说就是设置内容格式的时候每页分别设置，不能全篇一起设置！（这不太好表达，如果没听懂请多读几遍吧，仔细琢磨一下！！）

[ 本帖最后由 Rison 于 2008-5-29 13:48 编辑 ]

轻草飞扬

收到收到。。我马上换，感觉一下。

DonDum

好用的说一下

neono

刚换上，比原来快了～～

jayyes

好东西  支持一下

windy2coast

不能分页。。。。

skylive

呵呵，已经换了，还不错！

keaty

呵呵，我只用UBB

veisin

嗯，还不错

loekman

正在换，文件很多，FTP很慢

[ 本帖最后由 loekman 于 2008-4-12 00:08 编辑 ]