ASP implementation of long article manual paging code

<%
Set Recordset1=server.createobject ("Adodb.recordset")
Exec= "SELECT * from news where id=" &id
Recordset1. Open exec,conn,1,1
%>

<TD >
.......

<%
If Request ("page") = "" Then
Pagenum=0
Else
Pagenum=request ("page")
End If
Content=replace (Recordset1 ("content"), "", "| | |"
Contentstr=split (Content, "| | |")
For I=pagenum to Pagenum
%>
<%=contentstr (i)%>
<% Next%>


<%if UBound (contentstr) >=1 then%>

<TD height= > This paper is divided into
<%
For p = 0 To UBound (CONTENTSTR)
If p+1= Request ("page") +1 Then
A= ""
Aa= ""
Else
A= ""
Aa= ""
End If
%>
&page=<%=p%>" ><%=a%><%=p+1%><%=aa %>
<% Next%>
Page

<%end if%>

When you add an article, when you want to page out, add a separator.
This article links http://www.cxybl.com/html/wlbc/Asp/20120613/29965.html