ASP實現超長文章內容因太長自動分頁或手動分頁

以下是幾種文章內容過長實現的內容分頁原始碼.

’按標識手動分頁 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將還有更多的相關解決方案提供給你.
本站推薦使用委任標記分頁方式,想哪換就哪換,可以避免節斷位置的不合理現象。