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

作者:网络 来源:佚名 更新时间:2008-09-16 14:58:12 点击:

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

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

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