stanley527

有时候我们可能会在自己的博客上转载一些比较长的文章，从头看到脚的感觉真的是难过啊。今天苦苦研究，终于写出了一个实现单篇日志也能分页的功能！！！

我已经将修改好的程序打包上传到了我的博客（1.7MB，这里无法上传这么大的）供大家下载，修改了class文件夹下的“cls_article.asp”，并修改了FCKeditor编辑器中几个文件。。。大家下载以后直接覆盖即可。

注：我用的最新版本的FCKeditor 2.3.2  功能较原来的增加了一些，并且我已对其进行过优化，表情图片也进行了更换。

也欢迎大家到我的博客看看效果：

http://stanley.cpf-china.com/article.asp?id=164

下载地址：http://stanley.cpf-china.com/article.asp?id=175

（下载链接已修复，可以正常下载）

有问题大家可以在这里提出，或者在我的博客留言，我会详细解释。

另外，我将cls_article.asp文件中改动过的地方贴出来给大家看一下：

将原来的第120行代码：“response.write (highlight(UnCheckStr(log_ViewArr(8,0)),keyword))”

改写为：
“
       '=======内分页程序============
       dim arrcontent,page,pagelist,content,pagecounter,x,xx
       content=highlight(UnCheckStr(log_ViewArr(8,0)),keyword)
       If InStr(1,cstr(content),"[pagesplitxx]",1)<>0 Then
        ArrContent=Split(content,"[pagesplitxx]")
        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
       '=======内分页程序结束========
      
       response.write (content)
”

必须配合FCKeditor一起使用。。。

我也借此机会抛砖引玉，，，其实大家可以把这个日志内分页做的更完善！

出现无法分页的情况的兄弟们注意！！！

两种方法大家可以试试能不能解决问题：

1、请试试将IE的临时文件夹和历史记录都清除一下，在IE的工具里。。。可能是IE仍然调用缓存中的FCK的js文件导致的。。。清空以后记得关闭所有IE窗口（或者你的maxthon、firefox），然后再打开测试一下。。。
2、如果后台基本设置中构选了“静态日志模式”的话也有可能导致出错！
应该是这两个问题的。。。如果还是不行，请继续留言给我：）

[ 本帖最后由 嵘心天涯 于 2007-1-29 15:42 编辑 ]

stanley527

怎么会链接失效呢。。。。

stanley527

可以正常下载啦。。。。

jogocun

梦寐以求的功能啊～研究之，多谢了～

jogocun

可惜需要结合FCK才能实现～不过也不错～

stanley527

其实也不用非要结合fck的，只要将cls_article.asp文件修改过之后，在你的编辑器中想要分页的地方手动插入“[pagesplitxx]”字符即可。。。我之所以是和fck结合起来用，就是看到fck中本身有个“插入分页符”按钮，对fck进行了修改也就是为了减少手动输入“[pagesplitxx]”字符的麻烦。。。

stanley527

如果想在ubb编辑器中也实现的话，要在cls_artical.asp文件中将
“
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))
”
替换成
“
'=======内分页程序============
       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),"[pagesplitxx]",1)<>0 Then
        ArrContent=Split(content,"[pagesplitxx]")  
        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
       '=======内分页程序结束========
      
       response.write (content)
”

即可，但要注意“dim arrcontent,page,pagelist,content,pagecounter,x,xx”在本页中只能出现一次，否则出错：）

[ 本帖最后由 stanley527 于 2006-10-20 23:58 编辑 ]

stanley527

我觉得新编辑器还可以。。。不过老实说，她自带的图片上传系统好像不是很稳定的。。。

stanley527

谢谢斑竹加精！

jogocun

不错，我也测试完毕，多谢！