分页失败求助
<--定义SQL--><% if rsProduct.recordcount>0 Then
rsProduct.pagesize = 10
num=rsProduct.recordcount
pagenum=rsProduct.recordcount
page=request("page")
if page <> "" Then
page= cint(page)
if err.number <> 0 Then
err.clear
page = 1
End if
if page < 1 Then
page = 1
End if
else
page=1
End if
if page*rsProduct.pagesize > num and NOT((page-1)*rsProduct.pagesize < num) Then
page=1
End if
rsProduct.absolutepage = page%>
<%if page <> pagenum Then
lablenum=rsProduct.pagesize
Else
lablenum=num-(page-1)*rsProduct.pagesize
End if %>
<--横向重复显示-->
<tr>
<td height="21" colspan="2"><div align="right">
<font color="#999900">共有<%=numb %>个链接
<a href="default.asp?page=1">首页</a>
<% if page>1 Then %><a href="default.asp?page="<%=page-1 %>><% End If %>
上一页</a>
<% If page < pagenum Then %><a href="default.asp?page="<%=page+1 %>><% End If %>下一页</a>
<a href="default.asp?page="<%=pagenum %>>尾页</a>
页次<%=page %>/<%=pagenum %>页
共<%=pagenum %>页
</font></div> </td>
</tr><% Else %>
<tr>
<td height="21" colspan="2">
<div align="center"><% Response.Write("没有结果可显示") %></div></td>
</tr>
<% End If %>
</table>
页面虽然能显示,但不能移到下一页,请教错在哪?