PJBLOG日志内分页修改方法

让你的博客也可以实现日志的内部分页：由于PJBLOG本身日志编辑时不具备日志内分页功能，当我们有比较长的文章，从头看到脚的感觉真的是难受。针对此问题的一个实现单篇日志也能分页的功能。另外也可以有效增加一定的PV量。

修改代码时注意：由于受到日志内分页符作用的原因，本篇文章在修改代码中不使用具体日志内分页代码，而以文字“日志内分页代码”来代替，请大家在修改代码时记得修改成自己需要的日志内分页代码，我们教程修改时日志内分页符号一率使用的是：方括号内pagesplitxx

第一种修改方法：

PJBLOG带有两个编辑器，日志内分页修改时需要先在FCK编辑模式修改，来实现FCK模式下的日志内分页。如果要实现UBB编辑器模式日志内分页，还需要在FCK模式修改的基础上再对UBB相关文件做一些修改。相关的文件在此之前如果没有做过改动，可以下载文件直接覆盖，如果已经做过改动，只能手动查找代码并修改。修改好的文件以及具体的修改代码说明教程已经打在压缩包里了。效果见本站长篇的分页文章。免费下载地址：http://www.box.net/shared/dcihk6c8t8

class目录下的cls_article.asp文件中原来的第120行代码：

response.write (highlight(UnCheckStr(log_ViewArr(8,0)),keyword))

改写为：

'=======FCK内分页程序============
'dim arrcontent,page,pagelist,content,pagecounter,x,xx
content=highlight(UnCheckStr(log_ViewArr(8,0)),keyword)
If InStr(1,cstr(content),"日志内分页代码",1)<>0 Then
ArrContent=Split(content,"日志内分页代码")
PageCounter=UBound(ArrContent)
Page=Request.QueryString("Page")
If isnumeric(Page)=false Then Page=1
If Page<1 Then Page=1
If Page-1>PageCounter Then Page=1
For x=1 To PageCounter+1
xx=x
If CInt(Page)=x Then xx="<font style='color:red;font-weight:bold'>"&x&"</font>"
PageList=PageList&" "&"<a href='?id="&logID&"&Page="&x&"'>["&xx&"]</a>"
Next
content=ArrContent(Page-1)&"<hr><div align='center' style='font-size:12px'>"&pagelist&"</div>"
End If
'=======FCK内分页程序结束========

response.write (content)

打开 fckeditor\editor\js目录下的fckeditorcode_gecko.js和fckeditorcode_ie.js这两个文件：

查找如下代码：

<span style="DISPLAY:none">&nbsp;</span>

替换成你的“日志内分页代码”代码即可。

关于UBB编辑器中实现内分页的修改：

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))

替换成

'=======UBB模式内分页程序============
       dim arrcontent,page,pagelist,content,pagecounter,x,xx
       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),"日志内分页代码",1)<>0 Then
        ArrContent=Split(content,"日志内分页代码")  
        PageCounter=UBound(ArrContent)
        Page=Request.QueryString("Page")
        If isnumeric(Page)=false Then Page=1
        If Page<1 Then Page=1
        If Page-1>PageCounter Then Page=1
        For x=1 To PageCounter+1
         xx=x
         If CInt(Page)=x Then xx="<font style='color:red;font-weight:bo