ASP document paging object

<%
STR = "Database Article Content testing content haha"
Function page (STR, fontnum)
If Len (STR)> fontnum then
If Len (STR) mod fontnum> 0 then' calculate the total number of pages
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 ("<br> ")

For I = 1 to pagecontent
Response. Write ("<a href =? Page = "& I &"> "& I &" </a> ")
Next
Else
Response. Write (STR)
End if
End Function

Call page (STR, 5)
%>
If your content here is Rs ("body"), change the last sentence to call page (RS ("body"), 200 ).

I just wrote a rough picture above, which is not perfect, but it is basically like this.