实现UBB发帖模式日志内分页功能

 
正在载入,请稍候……
前几天,stanley写了FCK模式下实现日志内分页功能,为了方便在UBB模式下使用,在FCK方法的基础上,我又参考了Alone Fly 的一个[UBB模式下插入全角]的修改方法,并请教了Alone Fly在UBBcode.asp不需要对分页苻转义为ACS码实现,步骤也简单,整理了这个UBB插入分页的方法。

现在整理过程如下:强烈建议修改之前,备份好你的文件!
●为了方便大家,放出用PJ03原版测试修改好的文件,在覆盖这些文件前请主动备份好原来的文件!
●注意看里面的修改说明!    
    http://bbs.pjhome.net/viewthread.php?tid=10288
    - jogocun by 2007.04.18 00:14

以下为手动修改步骤:
1.打开cls_article.asp找到

A.还没有安装FCK模式下日志分页的,大家可以参考:实现FCK发帖模式下日志内页分页

B.在已经安装了FCK模式的分页功能后
程序代码 程序代码
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),"[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)

然后去掉:<当初实现FCK模式分页加入的代码起始段>
    
程序代码 程序代码
dim arrcontent,page,pagelist,content,pagecounter,x,xx

  
2.打开common/ubbcode_Gecko.js 和Ubbcode_ie.js
   最后面增加
程序代码 程序代码

function UBB_pagesplitxx()
{
if (EditMethod=="normal")
{
  AddText("[page splitxx]")     '注意去掉page和splitxx 中间的空格
}

if (EditMethod=="expert")
{
  AddText("[page splitxx]")     '注意去掉page和splitxx 中间的空格
}
}  

3.打开common/UBBcode.asp 找到
程序代码 程序代码
'-----------字体格式----------------

在其下面加入 [经过我再测试,这段不加也可以!不影响效果,加了只是让其和FCK模式下代码一样]
  
程序代码 程序代码
  
   re.Pattern="\[page splitxx\]"    '注意去掉page和splitxx 中间的空格
   strContent=re.Replace(strContent,"<span style=""PAGE-BREAK-AFTER: always"">[page splitxx]</span>")

4.打开common/ubbconfig.asp 找到
程序代码 程序代码
   "link,mail,image,insertunorderedlist,quote,hidden,code,html"

  修改成
程序代码 程序代码
"link,mail,image,insertunorderedlist,quote,hidden,code,html,pagesplitxx"

  即在最后面加入标签 ,pagesplitxx

同样在这个文件找到:
程序代码 程序代码

function Tip(str)
Select Case str

在下面添加
程序代码 程序代码

case "pagesplitxx":
Tip="插入分页符"

另外我也顺便从FCK图片目录中裁剪了个分页标签图
。图片地址http://blog.haifol.com/attachments/month_0610/320061022192217.gif,起名叫 pagesplitxx.gif 放入 ubb/icons 目录下即可!

至此修改过程全部完成!
在UBB模式下,选择分页符标签插入分页符,即插入[page splitxx] '注意去掉page和splitxx 中间的空格
大家可以测试下~! 谷歌AD正在载入,请稍候……
点此快速转到评论处,留下您的宝贵见解吧^_^

本文如需转载,请详细注明出处,尊重版权,尊重别人的劳动成果,谢谢合作哦!
Google内容AD正在载入,请稍候……

相关日志
详细信息
日志搜索
推荐收藏
反向链接
本站声明

    相关日志:

     
评论: 12 | 引用: 0 | 查看次数: 14190 | 打印此页 | 关闭此页 | 返回顶部 | 直达底部
评论列表 ↓ 点击显示/隐藏12条博友们的评论
发表评论

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