有哪为能给我一些分页的代码？

这个是我网站用到的asp分页代码，用了五年了：
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% aa=request.querystring("aa")
if aa="" then aa=1
bb=request.querystring("bb")
set conn=server.createobject("adodb.connection")
conn.open=connstr
sql="select * from tablename where ads='01' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof then
response.write "没有数据，请先返回！"
response.end
else
rs.pagesize=15
rs.absolutepage=aa
%>
<%
i=0
do while not rs.eof and i<rs.pagesize
%>
<tr>
<td><li><a href="cm.asp?aa=<%=rs("id")%>"><%=rs("biaoti")%> </a></td>
</tr>