请问ASP分页程序怎么做啊？

//先把数据表中的记录读到结果集rs中，这个就不赘述了，以下是分页部分。
rs.pagesize=10 //每页显示10条记录
page=cint(request("page")) //接收页码

//以下处理无效页码
if page<1 then //在asp中，空值比1小
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if

rs.absolutepage=page //指定当前页码，这是最关键的
for i=1 to rs.pagesize //开始循环显示每页记录
...
...
rs.movenext
if rs.eof then exit for
next

//以下实现分页控制
if page=1 then
首页 上一页
else
<a href="<%=Request.ServerVariables ("script_name")%>?page=1">首页</a> <a href="<%=Request.ServerVariables ("script_name")%>?page=<%=page-1%>">上一页</a>
end if
if page=rs.pagecount then
下一页 末页
else
<a href="<%=Request.ServerVariables ("script_name")%>?page=<%=page+1%>">下一页</a> <a href="<%=Request.Serve