谁有asp中的记录分布技术代码？

兄弟，记得下次给分。。

不然很少有人花时间解决的。

我有个分页的代码。
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset") '创建recordset对象
sql="select * from main order by id desc "
rs.open sql,conn,1,1 '1,1为只读数据,1,3为插入数据，2,3是修改数据

Page=request.QueryString("page")
pagesize = 6 '每页显示记录数
rs.pagesize=pagesize
pg=rs.pagecount
rd=rs.recordcount '共记录条数
if page=""or clng(page)<1 then page=1
if clng(page)>rs.pagecount then page=pg
if rs.pagecount>0 then rs.absolutepage=page
%>
<%
dim i
i=1
count=0
do while not rs.eof and count< rs.pagesize
%>
</div>
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666">
<tr>
<td>
<di