嘉兴美丹食品有限公司:在asp网页中，如果一篇文章太长分为若干页

set rs=Server.CreateObject("ADODB.Recordset")
sqlliuxue="select * from tablename"
rs.open sqlliuxue, conn,1,3
rs.pagesize=20
if not isempty(request("topage")) then
topage=cint(request("topage"))
if topage > rs.pagecount then
rs.absolutepage=rs.pagecount
elseif topage <=0 then
rs.absolutepage =1
else
rs.absolutepage=topage
end if
end if
intcurpage=rs.absolutepage%>
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
rs.movenext
next

<table width="80%" border="0" cellpadding="3" cellspacing="3" class="table2">
<tr>
<td align="right">共 <font color="#FF3300"><%=rs.recordcount%></font> 条新闻
<% if intcurpage <>1 then%>
| <a href="/new/zxnew/morelist.asp?listtype=os1" class="submenu"><font color="#006699"> 首页</font></a> |
<a href="/new/zxnew/morelist.asp?topage=<%=intcurpage-1%>&listtype=os1" class="submenu"> <font color="#006699">上一页</font></a>
<%else%>
| 首页 | 上一页
<% end if%>
<% if intcurpage <> rs.pagecount then%>
| <a href="/new/zxnew/morelist.asp?topage=<%=intcurpage + 1%>&listtype=os1" class="submenu"> <font color="#006699">下一页</font></a>
| <a href="/new/zxnew/morelist.asp?topage=<%=rs.pagecount%>&listtype=os1" class="submenu"> <font color="#006699">末页</font></a> |
<%else%>
| 下一页 | 末页 |
<% end if%>

页次：<font color="#FF3300"><%=intcurpage%></font>/<%=rs.pagecount%>页 </td>
</tr>
</table>