Question

ASP怎么实现长文章分页

看这个代码怎么分页此文件为《newshow.asp》下面是主要程序table width="100%" border="0" cellpadding="4" cellspacing="1" class="box">
<tr valign="baseline" bgcolor="#EEEEEE">
<td width="100" height="20" align="right" bgcolor="#990099"><font color="#FFFFFF" size="2"><strong>新闻标题：</strong></font></td>
<td height="20"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> [<%=(RecNews.Fields.Item("news_type").Value)%>]</strong> <strong><font size="3"><%=(RecNews.Fields.Item("news_title").Value)%></font></strong></font></td>
</tr>
<tr valign="baseline" bgcolor="#EEEEEE">
<td height="20" align="right" bgcolor="#990099"><font color="#FFFFFF" size="2"><strong>公告时间：</strong></font></td>
<td height="20"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(RecNews.Fields.Item("news_time").Value)%></font></td>
</tr>
<tr valign="baseline" bgcolor="#EEEEEE">
<td height="20" align="right" bgcolor="#990099"><font color="#FFFFFF" size="2"><strong>编辑人：</strong></font></td>
<td height="20"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(RecNews.Fields.Item("news_editor").Value)%></font></td>
</tr>
<tr valign="baseline" bgcolor="#EEEEEE">
<td height="20" align="right" bgcolor="#990099"><font color="#FFFFFF" size="2"><strong>新闻内容：</strong></font></td>
<td height="20"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CleanHtmlBr(RecNews.Fields.Item("news_content").Value)%></font></td>
</tr>
</table>
<hr>
<div align="center"><font size="2">[ <a href="news.asp">回主画面</a>
]</font></div></td>
</tr>
</table>不要在网上直接复制的，希望可以根据实际情况来说明。另外本人是菜鸟希望可以说的详细些！！万分感谢！！！数据库名为news.mdb

Answer 1

有几种方法：
一、你在你的新闻内容中插入一个分布标签比如:[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),"<br>")%>
<%
rs("ClickNumber")=rs("ClickNumber")+1
response.write "<div align='right'><br>Tatol：<font color=red>"&maxpage&"</font> Pages   "
for i=1 to maxpage
if thispage=i then
response.write "["&i&"] "
else
response.write "<a href='?p="&i&"&ID="&ID&"'>["&i&"]</a> "
response.write "<a href='?p="&i&"'>"&i&"</a> "
end if
next
response.write "pages</div>"
rs.update
rs.close
else
response.write "<div align='center'>Nothing</div>"
end if
set rs=nothing
%>

其实按标签分页也是差不多，就是会用到split函数来分隔内容！