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

作者:jogocun 日期:2006-10-22 19:23

字号: 小 | 中 | 大

正在载入，请稍候……

前几天，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 中间的空格
大家可以测试下～!