Paging long articles in Classic ASP
split() returns a one-dimensional zero-based array containing a number of substrings, so it is perfect for this job. What I want to do is take an article (which is a string) and divide it into substrings. In order to do this, I need a delimiter, and I use <!--pagebreak-->. As I enter the article into the database, I place <!--pagebreak--> at the points I want to break the article.
Then, having extracted the article from the database as part of a recordset, and consigned it to the variable article, I use split() to create an array, with each element of the array being a page.
<% article = "This <!--pagebreak--> is <!--pagebreak--> a <!--pagebreak--> paged <!--pagebreak--> article"
Some articles may be small enough not to require paging, so we check to see if this is one that has been divided into pages on entry into the database
if instr(article,"<!--pagebreak-->") then pages = split(article,"<!--pagebreak-->")
I add 1 to ubound(pages) to take account of the fact that this array is zero based
totalpages = ubound(pages)+1
I need to keep track of which is the current page
if request.querystring("page") = "" then currentpage = 1 else currentpage = cint(request.querystring("page")) end if if pageno > totalpages then pageno = totalpages
I write out the contents of the current page of the article - not forgetting that I need to adjust the value by deducting 1 for the zero-based array
response.write "<br><strong><font color=""red"">" & pages(currentpage-1) & "</font></strong><br>"
And then the links from one page to the next at the bottom.
for j = 1 to totalpages if j = currentpage then response.write " " & j & " " else response.write " <a href=""article_paging.asp?page=" & _ & j & """>" & j & "</a> " end if next end if %>
Currently rated 4.14 by 7 people
31 March 2007 17:46
Posted by: Mikesdotnetting
Total Views to date: 4846
Unfortunately, something went wrong and your message or comments have not been submitted successfully. I'll try to fix whatever the problem is as soon as I can.
Thanks for your comments. They have been successfully sent to me. It may take a while before I review them for publishing, so please check back again.