ASP实现超长文章内容因太长自动分页或手动分页-ASP教程-爱易网页

ASP实现超长文章内容因太长自动分页或手动分页

日期：2010-03-18　浏览次数：20977 次

以下是几种文章内容过长实现的内容分页源代码.

’按标识手动分页
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
                      %>

如果你需要更多的相关ASP分页资讯,在爱易学习网www.aiyiweb.com将还有更多的相关解决方案提供给你.
本站推荐使用添加标记分页方式,想哪换就哪换,可以避免节断位置的不合理现象。

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

ASP实现超长文章内容因太长自动分页或手动分页

相关资料更多>

推荐阅读更多>