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%> 

添加文章时，在想分页的地方，加入分割符 || 即可。