日期:2010-02-28  浏览次数:20923 次

在发布文章时,在你想让它分页的地方加上预设的分页符。

实现步骤:

一、我后台的编辑器用的是FCK,怎样让它具备这个功能呢?最简单的办法,就是把一个不常用的按钮替换成“插入分页符”按钮。(在FCK文件夹“fckeditor\editor\js”里有两个文件,fckeditorcode_gecko.js和fckeditorcode_ie.js,给它们动下手术就OK了,具体不说了,手头没源文件,我不知道具体的代码,有兴趣的朋友PM我)我预设了“<div>::</div>”作为分页符,这个随便设,只要它不会在文章要正常显示的地方出现就行了。

二、写前台文章显示页的代码,怎么链接数据库,读取数据库等代码就不说了。以下是关键代码:

'文章页码参数,从1开始
page = Request.QueryString("page")

'按分页符分割文章
arrContent = split(rs("文章正文字段"),"<div>::</div>")

'显示指定页的文章正文
arrContent(page-1)

'文章分页页码链接
Call TextPage(ubound(arrContent))

TextPage函数代码:
以下是引用片段:
代码:
<%
function TextPage(Pages)
    if Pages > 0 then
        Response.Write(VbCrlf & "<div class=""textpage"">")
        for p = 1 to Pages+1
            Response.Write("<a href=""?id="& id &"&page="& p &""">第" & p & "页</a> | ")
        next
        Response.Write("</div>")
    End if
End function
%>