以下是几种文章内容过长实现的内容分页源代码.
| ’按标识手动分页 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.alixixi.com将还有更多的相关解决方案提供给你.
本站推荐使用添加标记分页方式,想哪换就哪换,可以避免节断位置的不合理现象。
时间： 2024-11-08 21:08:03