一篇文章内容过长怎么分页

luofei614 楼主

一般的分页我会， 这里我说的分页是只在一条字段里面的内容过长然后分页的代码。哪个高手给一下代码。

ambushaa

按字数分啊。比如说500字一页，可以在字串500的位置上找最近一个换行符，然后分页，后面类推。

kko4455

网上有这个Js的 按照 字数分页 、有手动添加[NextPage]指定分页 两个模式 用起来挺方便的，不信你可以去查查。

mumakisss

要动态的还是静态的。先给你动态的吧。这个问题我弄了很久了，你好幸运有现成的给你，下面编写的函数
'按标识手动分页
function manualPage(str)
pages=request.QueryString("page")
contentstr=split(str,"{$page$}")
Response.Write(ContentStr(pages))
Response.Write("<p/>")
Response.Write("<div class=""pageList"">")
For i = 0 to ubound(ContentStr)
Response.Write("<a href='?ID="&id&"&page="&i&"'>"&i+1&"</a>&nbsp;")
Next
Response.Write("</div>")
end function


'按长度分页
function autoPage(str,fontnum)
if len(str)>fontnum then
if len(str) mod fontnum>0 then '计算总页数
pagecontent=len(str)\fontnum+1
else
pagecontent=len(str)\fontnum
end if
Dim arr()
ReDim arr(pagecontent)
for m = 1 to pagecontent
if m<>pagecontent then
arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)
else
arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))
end if
next
if Request.QueryString("page")<>"" then
Response.Write(arr(Request.QueryString("page")))
else
Response.Write(arr(1))
end if
Response.Write("<p/>")
Response.Write("<div class=""pageList"">")
for i = 1 to pagecontent
Response.Write("<a href=?ID="&id&"&page="&i&">"&i&"</a> ")
next
Response.Write("</div>")
else
Response.Write(str)
end if
end function
=============================
在页面中
                        <%
                        if Instr(Content,"{$page$}")=0 then '判断是否是手工分页标志，不是就自动分页
                        call autoPage(Content,2000)
                        else
                        call manualPage(Content)
                        end if
                         %>

kyllen

手动的代码看起来不错，有时间研究下，谢谢楼上的朋友

kuhanzhu

添加标记最好了。
想哪换就哪换。

zz1001

还没达到这地步！先收藏下

maxegx

要研究一下了

jsw0528

提醒:最后回贴距现在 330 天，请不要无意义回复

原帖由 kuhanzhu 于 2008-8-20 20:20 发表
添加标记最好了。
想哪换就哪换。

同意，编辑器我用FCK，我使用打印分页那个按钮做标记