关于ASP分页问题

<% 
  set rs = server.CreateObject("adodb.recordset")
  sql = "select * from commodity order by com_id"
  rs.open sql,conn,1,1
  rs.pagesize=5
  curpage=Request.QueryString("curpage")
  if curpage="" then curpage=1
  rs.absolutepage=curpage
  for i= 1 to rs.pagesize
  if rs.eof then
  exit for
  end if
  %>
<%=rs(title)%>
 <%
  rs.movenext
  Next
%>


  <%if curpage=1 then%>
  首页
  <%else%>
  <a href="?curpage=1">首页</a>
  <%end if%>

  <%if curpage=1 then%>
  上一页
  <%else%>
  <a href="?curpage=<%=curpage-1%>">上一页</a>
  <%end if%>

  <%if rs.pagecount<curpage+1 then%>
  下一页