时间:2021-04-16
以下是长文章的动态分页功能。
'按标识手动分页
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> ")
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
%>
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
本文实例讲述了PHP实现的超长文本分页显示功能。分享给大家供大家参考,具体如下:一、代码1、index.php超长文本的分页显示 &nbs
这里小编参考了几篇文章特为大家整理下,用到的朋友多支持一下了。进行长文章分页,编辑人员在控制分页符的时候手工插入很麻烦,所以修改了FCK的插入分页符的插入字符:
一、AspNetPager分页控件分页是Web应用程序中最常用到的功能之一,在ASP.NET中,虽然自带了一个可以分页的DataGrid(asp.net1.1)
1、长文章形式特点:创作自由度高,多元素组件灵活编辑。优质的长文章更容易黏住消费者产生持续回访。长文章有点像公众号里的文章,一般篇幅都很长。创作的灵活度高,可以
淘宝微淘长文章内容作用将在5月中下旬上线,淘宝微淘长文章内容和照片文图广播节目的区别是啥?淘宝微淘长文章内容要怎么公布?下边一起跟RUZW我看来下。 近日,手机