实现FCK模式下日志内页分页功能

作者:jogocun 日期:2006-10-20 23:35

字号: 小 | 中 | 大

正在载入，请稍候……

　　有时候我们可能会在自己的博客上转载一些比较长的文章，从头看到脚的感觉真的是难过啊。
　　方法来自stanley，http://stanley.cpf-china.com。
　　实现本功能主要修改了class文件夹下的“cls_article.asp”，并修改了FCKeditor编辑器中几个文件（编辑器中改动的页面过多，恕不一一列举）。。。如果确定你的cls_article.asp之前没有改过，请大家下载以后直接覆盖到博客根目录即可。
　　注：同时升级编辑器至FCKeditor 2.3.2 功能较原来的增加了一些。下载已经改好的日志内分页
　　或者到我的个人网盘空间： http://my.mofile.com/jogocun 密码：haifolcom
　　大家可以点下面链接看看效果：http://blog.haifol.com/article.asp?id=387
　　也可以到原作者看这个帖子：http://stanley.cpf-china.com/article.asp?id=175

　　打开cls_article.asp 找到

程序代码

[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),"[page splitxx]",1)<>0 Then    '注意去掉page和splitxx 中间的空格
     ArrContent=Split(content,"[page splitxx]")  '注意去掉page和splitxx 中间的空格
     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)

　　实现UBB发帖模式日志内分页功能：
　　http://blog.haifol.com/article.asp?id=393

谷歌AD正在载入，请稍候……

点此快速转到评论处，留下您的宝贵见解吧^_^

本文如需转载，请详细注明出处，尊重版权，尊重别人的劳动成果，谢谢合作哦！

Google内容AD正在载入，请稍候……

相关日志

详细信息

日志搜索

推荐收藏

反向链接

本站声明

相关日志:

评论列表 ↓ 点击显示/隐藏5条博友们的评论
点击显示/隐藏评论内容

发表评论

① 若您已是本站注册用户,请填入名称和密码,发表留言后即默认登陆.
② 若您尚未在本站注册,为了保护您的发言权,建议您注册账号,进而保护您的名称在本站不被他人所占用.若未特别说明,本站原创或转载的文章,均遵循创作共用协议.^_^
③ 若您不想注册,可以只填写用户名进行发表.
④ 转载本站文章,请注明出处,或者填写文章的引用通告地址,谢谢!
⑤ 本站注册是免费,自由的,但发表评论/留言即默认您遵守本站用户协议.

你没有权限发表评论！响应党的号召，十七大期间关闭评论功能