ASP怎么实现长文章分页

有几种方法：
一、你在你的新闻内容中插入一个分布标签比如:[NewsPages],你想要到哪里分页，就到哪个地方插入这个标签，然后再在你输入新闻内容的时候按 [NewsPages]这个标签来分隔内容就可以了。
二、就是按字数来进行分页，比如你想新闻按1000字每页来分，你可以在程序里来按1000字来分隔新闻的内容，以达到分页效果！

下面给你一个按字数来分例子吧：
<%
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_News where ViewFlag and ID="&ID
rs.open sql,conn,1,3
if not rs.eof then
numbers=len(rs("content")) '总字节数
pagenum=1000 '每页显示的数量
maxpage=-int(-numbers/pagenum)'总页数
requestpage=clng(request("p"))'接收页码
if requestpage="" or requestpage=0 then'获取默认页码
requestpage=1
end if
if requestpage>maxpage then '当前页的页码大于最大页码时，使当前页码等于最大页码
requestpage=maxpage
end if
if not requestpage=1 then '当前页码不等于1时，向下移动相应的字节数
content=mid(rs("content"),(requestpage-1)*pagenum+1,Sitenum)
else
content=left(rs("content"),Sitenum) '当页码等于1时，截取相应文本
end if
if isempty(requestpage) then
thispage=1
else
thispage=cint(requestpage)
end if
%>
<%=Replace(content,chr(13),"
")%>
<%
rs("ClickNumber")=rs("ClickNumber")+1
response.write "