急~~! ASP查询结果分页参数传递,高手请进,谢谢~~
查询结果正确,但点下一页的时候,就显示全部记录了,应该怎么修改,请大家帮忙,谢谢~~~!
FORM表单
<form name="form1" method="post" action="search_jh.asp">
search_jh.asp代码如下:
查询代码:
程序代码：<%
keyword=trim(request.form("keyword"))
m=trim(request.form("tiaojian"))
set rs_rk=server.CreateObject("adodb.recordset")
sql="select * from rk where shck='"&session("ckname")&"' and "&m&"='"&keyword&"' order by rksj desc"
rs_rk.open sql,conn,1,1
%>分页代码:程序代码：<%
rs_rk.pagesize=1 '每页显示记录条数
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs_rk.pagecount then epage=rs_rk.pagecount
else
epage=1
end if
rs_rk.absolutepage=epage
for i=0 to rs_rk.pagesize-1
if rs_rk.bof or rs_rk.eof then exit for
%>
<tr class="pt10">
<td height="26" align="center" valign="middle" bgcolor="#F0FBEB"><%=rs_rk("spbh")%></td>
<td align="center" valign="middle" bgcolor="#F0FBEB"><%=rs_rk("cpmc")%></td>
<td align="center" valign="middle" bgcolor="#F0FBEB"><%=rs_rk("sl")%></td>
<td align="center" valign="middle" bgcolor="#F0FBEB"><%=rs_rk("shck")%></td>
<td align="center" valign="middle" bgcolor="#F0FBEB"><%=rs_rk("jbr")%></td>
<td align="center" valign="middle" bgcolor="#F0FBEB"><%=rs_rk("rksj")%></td>
</tr>
<%
rs_rk.movenext
next
%>
</table>
<table width="520" border="0" align="center" cellpadding="0" cellspacing="0" class="pt10">
<tr>
<td height="22" align="right" class="pt10">第<%=epage%>页/共<%=rs_rk.pagecount%>页
<%if epage<>1 then%>
<a href="?<%=m%>=<%=keyword%>&page=0">第一页</a>
<%end if%>
<%if epage<>1 then%>
<a href="?<%=m%>=<%=keyword%>&page=<%=epage-1%>">上一页</a>
<%end if%>
<%if epage<>rs_rk.pagecount then%>
<a href="?<%=m%>=<%=keyword%>&page=<%=epage+1%>">下一页</a>
<%end if%>
<%if epage<>rs_rk.pagecount then%>
<a href="?<%=m%>=<%=keyword%>&page=<%=rs_rk.recordcount%>">最后页</a>
<%end if%></td>
</tr>
</table>
<%end if%>
