Automatic pagination code for ASP long articles

 
 

  
  

  
<%
  
  

  
Sub AutoPage ()
  
  

  
Dim Maxpagelen,page,content,pagenumber,articleid
  
  

  
Dim Contentlen
  
  

  
Dim beginpoint,endpoint
  
  

  

  
  

  
maxpagelen=1000
  
  

  
Content=ubbcode (RS ("content"))
  
  

  
Articleid=rs ("ArticleID")
  
  

  
Contentlen=len (content)
  
  

  
Page=request. QueryString ("page")
  
  

  

  
  

  
If Contentlen<=maxpagelen Then
  
  

  
Response. Write Content
  
  

  
Else
  
  

  
If page= "" Then
  
  

  
Page=1
  
  

  
Else
  
  

  
Page=cint (page)
  
  

  
End If
  
  

  

  
  

  
If Pagenumber*maxpagelen
  
  

  
Pagenumberpagenumber=pagenumber+1
  
  

  
End If
  
  

  
Pagenumber=int (Contentlen/maxpagelen) +1
  
  

  
If Page<1 then page=1
  
  

  
If Page>pagenumber then Page=pagenumber
  
  

  
If Page=1 Then
  
  

  
Beginpoint=1
  
  

  
Else
  
  

  
beginpoint=maxpagelen* (page-1) +1
  
  

  
End If
  
  

  
If Page=pagenumber Then
  
  

  
Endpoint=contentlen
  
  

  
Else
  
  

  
Endpoint=maxpagelen*page
  
  

  
If Endpoint>=contentlen Then
  
  

  
Endpoint=contentlen
  
  

  
End If
  
  

  
End If
  
  

  

  
  

  
Content=mid (Content,beginpoint,endpoint-beginpoint)
  
  

  
Response. Write Content
  
  

  
Response. Write "
"
  
  

  
Response. Write "
"
  
  

  
Response. Write "
"
  
  

  

  
  

  
End If
  
  

  
For I=1 to PageNumber
  
  

  
Response. Write " "& I &"  "
  
  

  
Next
  
  

  
End Sub
  
  

  
%>
 
 

This article links http://www.cxybl.com/html/wlbc/Asp/20120613/29951.html