高分求解小问题-分页问题

tang 2005-01-07 10:50:57

<%
Set rs = Server.CreateObject("ADODB.Recordset")
dingdanhao=request("dingdanhao")
fuzeren=request("fuzeren")
sql="Select * from fu34_view where 1=1"
sqla=""
if fuzeren<>"" then
sqla=sqla&" and sales like '"&request("fuzeren")&"' or 负责人 like '"&request("fuzeren")&"'"
end if
if dingdanhao<>"" then
sqla=sqla&" and 订单号='"&request("dingdanhao")&"'"
end if
...
..
if sqla<>"" then
sql=sql&sqla
end if

rs.open sql,conn,1,1
if rs.eof then
response.Write("没有所要的数据")
response.end
end if
rs.PageSize=20
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
%>
...
...
<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if%>
<tr bgcolor="#0066FF">
<td width="60">
<div align="center"><font color="#000000" size="-1"><%=rs("订单号")%></font></div>
</td>
<td width="60">
<div align="center"><font color="#000000" size="-1"><%=rs("负责人")%></font></div>
</td>
...
...
</tr>
<%
rs.movenext
next%>
</table>
<table>
<tr>
<td colspan=3 align=right>
共有[<%=rs.recordcount%>]条纪录每页显示20条信息
<%if page=1 and not page=pagecount then%>
<div align="right">第<%=page%>页  <a href="new.asp?page=<%=page+1%>">下一页</a>  </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">第<%=page%>页  <a href="new.asp?page=<%=page-1%>">上一页</a>  </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">第<%=page%>页  <a href="new.asp?page=<%=page-1%>">上一页</a>
<a href="new.asp?page=<%=page+1%>">下一页</a>  </div>
<%end if%>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
表有1000条数据
如果rs.pagesize=20，符合条件的数据有30条时，第一页正常显示，共有30条数据，第二页就变成：共有1000条数据，第二页，而且还有"下一页"，点击还能继续显示（就是符合条件的不是30条，成了全部数据了）。可能是"sql=...."的问题，但是不知道怎么解决。

...全文