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

 
正在载入,请稍候……
  有时候我们可能会在自己的博客上转载一些比较长的文章,从头看到脚的感觉真的是难过啊。
  方法来自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 | 引用: 0 | 查看次数: 13942 | 打印此页 | 关闭此页 | 返回顶部 | 直达底部
评论列表 ↓ 点击显示/隐藏5条博友们的评论
发表评论

① 若您已是本站注册用户,请填入名称和密码,发表留言后即默认登陆.
② 若您尚未在本站注册,为了保护您的发言权,建议您注册账号,进而保护您的名称在本站不被他人所占用.若未特别说明,本站原创或转载的文章,均遵循创作共用协议.^_^
③ 若您不想注册,可以只填写用户名进行发表.
④ 转载本站文章,请注明出处,或者填写文章的引用通告地址,谢谢!
⑤ 本站注册是免费,自由的,但发表 评论/留言 即默认您遵守本站用户协议.
昵 称: 要想好哦.
密 码: 游客评论不需要密码.
验证码: 刷新验证码 | 不区分大小写.
内 容:
选 项:
(发表评论后,帮点点广告,友情支持下)
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册账号.
字数限制 500 字 | UBB代码 开启 | [img]标签 关闭