asp 下面的代码怎样修改才能实现“上一页 下一页 共？页 当前第？页”啊？

这是一个分页的写法:







<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from album order by id asc",conn,1,1
if not rs.eof then
i=0
rs.pagesize=10
page=request("page")
if trim(page)="" then
page=1
elseif Cint(page)<1 then
page=1
else
if not isnumeric(page) then page=1 end if
end if
if Cint(page)>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
for m=1 to rs.pagesize
if rs.eof then exit for
%>








<% rs.movenext
i=i+1
next
end if
%>

编号	封面图片	名称	发布时间
<%=rs("id")%>	" width="50px" height="50px">	<%=rs("title")%>	<%=rs("time")%>
总计 <%=rs.recordcount%> 个记录分为 <%=rs.pagecount%> 页当前第 <%=page%> 页 &page=1">第一页&page=<%=page-1%& gt;">上一页 &page=<%=page+1%& gt;">下一页 &page=& lt;%=rs.pagecount%>">最末页

这个分页程序简单而且使用，你看看合不合适。