查询结果不能翻页,GGJJ们帮忙看一下
<%'接受查询条件
set rs2=server.CreateObject("adodb.recordset")
pri_key=trim(request("pri_key"))
leixin=trim(request("leixin"))
if leixin="1" then
tablename="proname"
elseif leixin="2" then
tablename="txtlb"
elseif leixin="3" then
tablename="txttype"
elseif leixin="4" then
tablename="introduce"
end if
strsqla="select * from vprotype where "&tablename&" like '%"&pri_key&"%'"
'分页处理
response.Write(pri_key)
rs2.open strSQLa,MM_data_STRING,1,3
if rs2.eof and rs2.bof then
response.Write("<b>SORRY!!!没有找到相关的记录!!!</b>")
response.Write("<a href=index.asp>返回</a>")
response.End()
end if
rs2.pagesize=3
CurrentPage=trim(request("page"))
if CurrentPage="" then
CurrentPage=1
elseif CurrentPage<1 then
CurrentPage=1
elseif CurrentPage>cint(rs2.pagecount) then
CurrentPage=cint(rs2.pagecount)
end if
response.Write(CurrentPage)
if not rs2.eof then rs2.absolutepage=currentpage%>
...
'分页显示
<%for i=1 to rs2.pagesize
if rs2.eof then exit for%>
<tr>
<td width="3%" align="center" valign="middle"><img src="images/title_2.gif" width="4" height="7"></td>
<td><a href="productdetail.asp?id=<%=rs2("id")%>" class="a02" target="_blank"> <%=rs2("proname")%></a><font color="#999999">[<%=rs2("ontime")%>]</font></td></tr>
<%rs2.movenext
next%>
%>
<tr>
<td align="center" >共有记录<%=rs2.recordcount%>条,分为<%=rs2.pagecount%>页,当前为第<%=currentpage%>页<br>
<a href="search.asp?page=1&leixin=<%=leixin%>&pri_key=<%=pri_key%>" class="a02">首页</a>
<a href="search.asp?page=<%=(currentpage-1)%>&leixin=<%=leixin%>&pri_key=<%=pri_key%>" class="a02">上一页</a>
<a href="search.asp?page=<%=(currentpage+1)%>&leixin=<%=leixin%>&pri_key=<%=pri_key%>" class="a02">下一页</a>
<a href="search.asp?page=<%=rs.pagecount%>&leixin=<%=leixin%>&pri_key=<%=pri_key%>" class="a02">末页</a> </td>
</tr>
不管怎么翻,都只到最后一页,弄了半天还没好,帮帮忙,在线等