求ASP长文章的分页代码，要能用的

<%
dim m,n
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from product order by id desc"
rs.open sqlstr,conn,3,3
rs.pagesize=6 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
'----------------------------
nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数
'--------------------------
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
'--------------------------------
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
'-------------------------------
%>
<%do while not rs.eof%>
<div class="listitem">
<p><h3>产品名称：</h3><h4><a href="product_detail.asp?id=<%=rs("id")%>" target=&quo