ASP实现长文章手动分页的代码_ASP教程

<%  
set recordset1=server.createobject("adodb.recordset")  
exec="SELECT * FROM news  where id="&id  
recordset1.Open exec,conn,1,1  
%> 
 <table width="85%" border="0" align="center" cellpadding="3" cellspacing="0">
          <tr>  <td > 
.......

<% 
If Request("page")="" Then 
pageNum=0 
Else 
pageNum=Request("page") 
End if 
ContentStr=split(recordset1("detail"),"||")
For i=pageNum to pageNum 
%> 
<%=ContentStr(i)%>  
<% Next %> 
            </td> 
          </tr> 
 <%if ubound(ContentStr)>=1 then%> 
          <tr>  
            <td height="30" >本文共分  
<% 
For p = 0 to ubound(ContentStr) 
if p+1= Request("page")+1 then 
a="<font color=red>" 
aa="</font>" 
else 
a="" 
aa="" 
end if 
%> 
              <a href="detail.asp?ID=<%=request("ID")%>&page=<%=p%>"><%=a%><%=p+1%><%=aa%></a>  
              <% Next %> 
              页 </td> 
          </tr> 
          <%end if%>