官方论坛官方微博
由于GAE(Google App Engine)被墙,导致PJBlog过去发布在GAE的源码无法正常下载,我们已于2015年1月4日转移至论坛附件。如发现类似问题,敬请反馈。

[PJBlog^2017]用户聚居地 - ASP中文开源轻型云博客系统PJBlog5

 找回密码
 立即加入PJHOME

QQ登录

只需一步,快速开始

扫一扫,访问微社区

PJHOME-PJBlog官方论坛 你的关注和支持,是PJBlog不断成长的动力 指南 - 建议 - 展示 - 风云互联 - 合作

PJBlog3 经典版本(推荐) 最终版本:PJBlog3 V3.2.9.518(2011/11/01) 安装 - 升级 - 转换 - 模板 - 插件 - 反馈

PJBlog5 云博客(不推荐) 公测版本:PJBlog5 V1 公测版(2015/01/01) 发布 - 交流 - 文档 - 主题 - 插件 - 云平台

查看: 79683|回复: 132

插件修改┊让你的博客也可以实现日志的内部分页哦!!

 关闭 [复制链接]
发表于 2006-10-20 21:23 | 显示全部楼层 |阅读模式
有时候我们可能会在自己的博客上转载一些比较长的文章,从头看到脚的感觉真的是难过啊。今天苦苦研究,终于写出了一个实现单篇日志也能分页的功能!!!

我已经将修改好的程序打包上传到了我的博客(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 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即加入PJHOME

x
欢迎来到PJHOME社区,PJ有你更精彩!!
 楼主| 发表于 2006-10-20 21:37 | 显示全部楼层

啊?不是吧。。。。我看看

怎么会链接失效呢。。。。
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-10-20 21:46 | 显示全部楼层

下载链接已经修复。。。

可以正常下载啦。。。。
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

发表于 2006-10-20 22:16 | 显示全部楼层
梦寐以求的功能啊~研究之,多谢了~
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

发表于 2006-10-20 22:17 | 显示全部楼层
可惜需要结合FCK才能实现~不过也不错~
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-10-20 22:21 | 显示全部楼层
其实也不用非要结合fck的,只要将cls_article.asp文件修改过之后,在你的编辑器中想要分页的地方手动插入“[pagesplitxx]”字符即可。。。我之所以是和fck结合起来用,就是看到fck中本身有个“插入分页符”按钮,对fck进行了修改也就是为了减少手动输入“[pagesplitxx]”字符的麻烦。。。
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-10-20 22:33 | 显示全部楼层
如果想在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 编辑 ]
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-10-20 22:45 | 显示全部楼层
我觉得新编辑器还可以。。。不过老实说,她自带的图片上传系统好像不是很稳定的。。。
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-10-20 22:51 | 显示全部楼层
谢谢斑竹加精!
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

发表于 2006-10-20 23:29 | 显示全部楼层
不错,我也测试完毕,多谢!
欢迎来到PJHOME社区,PJ有你更精彩!!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即加入PJHOME

本版积分规则

关闭

PJHOME小黑板报上一条 /1 下一条

小黑屋|手机版|纯文字版|BBS.PJHOME.NET ( 粤ICP备12036560号-1  

GMT+8, 2017-8-18 18:42 , Processed in 0.325523 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表