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

來源:互聯網
上載者:User

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

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

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。