产品发布分页显示问题!

来源:百度知道 编辑:UC知道 时间:2024/05/27 12:37:35
分页的时候显示的内容数目不对!比如rsp.PageSize=4 if i mod 2 = 0 时,分页的页数是对的~可是在第一页他会显示6条数据~而不是4条~应该是显示4条!

代码如下:
<%
page=Request("page")
if page="" then
page=1
End if
rsp.PageSize=20
Page=CLng(Request.QueryString("Page"))
If Page<1 Then
Page=1
End If
If Page>rsp.PageCount Then
Page=rsp.PageCount
End If

if not rsp.EOF Then
rsp.AbsolutePage=Page
End if
if not rsp.eof then
dim i
i=1
'do while not rsp.eof
Do While Not Rsp.Eof
%>

<td>
.............内容.................
</td>
<%if i mod 5 = 0 then%>
</tr>
<%end if
rsp.movenext
i=i+1
loop
end if
%>

<%
rsp.pagesize=20
page=Request.QueryString("page")
if page="" then page="1" end if
if page>rsp.pagecount then page=rsp.pagecount end if
rsp.absolutepage=page

%>
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
for i= 1 to rsp.pagesize
if rsp.eof then
exit for
end if
%>
<td>内容</td>
<%
if i mod 5 = 0 then
response.Write("</tr><tr>")
end if
rsp.movenext
next
%>
</tr>
</table>

rsp.PageSize=20 是显示20个产品,如果你每行显示2个产品的话,就是显示10行!如果你一行显示5个产品,那就是显示4行!