谁能给小弟一个分页代码程序了，从网上下载的看不懂，小弟只想要一个简单的，谢谢，！

<table width="400" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF0000">
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center">公司新闻</div></td>
</tr>
<%
set rs=server.Createobject("ADODB.Recordset")

'读取新闻
page=1
if request("page")<>"" then page=request("page")
rs.open "select * from news_b order by shijian desc",conn,1,1
'每页分多少行，
rs.pagesize=5

if not rs.eof then
rs.absolutepage=page
for i=1 to rs.pagesize
'"id"可以写成i
%>
<tr bgcolor="#FFFFFF">
<td width="160" align="right"><%=rs("id")%>、</td>
<td width="237"><%=rs("biaoti")%></td>
</tr>
<%
rs.movenext
'如果没有够5行就退出循环
if rs.eof then exit for
next
end if
%>
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center">第
<%
'pagecount是由总数除以pagesize而得到
for i=1 to rs.pagecount
%>
<a href="index_news.asp?page=<%=i%>">[<%=i%>]</a>
<%
next
%>
页</div></td>
</tr><%
rs.close
set rs=nothing
%>
</table>

学习了