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

2015-06-28 00:00作者：网管联盟

一篇文章如字数太多，则用1,2,3.... 分成多页，便于用户浏览。

<%
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=¢er& cellpadding=&3& cellspacing=&0&>
    <tr> <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 %>
</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%>

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