该方法的前期工作是在使用编辑器(如eWebEditor等等)编辑文章的时候在需要分页的地方插入分页符。分页符必须是统一的或者有可控制的规律字符串,但为了操作和程序的双重简单,建议使用同一的分页符。而另外一点是:分页符不要与现有的文章内容当中有相同的代码。比如文章中有相同的分页符的话,也会被程序认为是分页的位置。如果因此导致分页不准确显得很没有必要,所以要设置好分页符的特殊性。
单说程序显示。假设我们的分页符是“[分页]”字段。则有:
——————————————分隔符:以下为代码——————————————————
<!--#include file=conn.asp-->
<%
Set rs = CreateObject("ADODB.RecordSet")
sql = "Select * from info where id = 1"
rs.open sql,conn,1,1
content = rs("content")
pbnum = UBound(Split(content,"[分页]")) '获取分页符个数
pno = pbnum + 1 '除非文章最后加一个分页符,否则页码比分页符个数多1
i = 1
Do While i <= pno
response.write "<br><span style=color:#f20>第"&i&"页:</span><br>"
response.write Split(content,"[分页]")(i-1) '输出相应页面需要显示的内容
i = i + 1
Loop
%>
——————————————分隔符:以上为代码——————————————————
这个是最简单的ASP长文章分页完美显示解决方案,优点是显示上可以做到完美,缺点是需要人手工分页,相对比较繁琐。
上一篇: 浅析ASP.NET生成随机密码
下一篇: ASP长文