查询结果不能翻页,GGJJ们帮忙看一下

[kebeixueng]

<%'接受查询条件
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>

不管怎么翻，都只到最后一页，弄了半天还没好，帮帮忙，在线等

[lsxaa]

比较的时候

if CurrentPage="" then
CurrentPage=1
elseif CurrentPage<1 then
CurrentPage=1
elseif CurrentPage>cint(rs2.pagecount) then
CurrentPage=cint(rs2.pagecount)
end if

加上cint 比如 cint(CurrentPage)<1

[serverme]

给你个分页的代码自己改一下就好了
<%
if rs.eof then
response.write "<tr><td><font color=red>没有信息</font></td></tr>"
else
Myself = Request.ServerVariables("PATH_INFO")
rs.PageSize =10
if Request("Page")="" then
page=1
else
Page = CLng(Request("Page"))
end if
If Page < 1 Then Page = 1 end if
If Page > rs.PageCount Then Page = rs.PageCount end if
rs.AbsolutePage = Page
for i=1 to rs.pagesize
if i mod 2<>0 then
%>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%response.Write i%></td>
<td>
<%
if rs("jd_tuijian")=0 then
response.Write "<font color=red>未推荐</font>"
else
response.Write "<font color=red>已推荐</font>"
end if
%>
</td>
<td><%response.Write rs("jd_name")%></td>
<td><%response.Write rs("jd_tel")%></td>
<td><%response.Write rs("jd_time")%></td>
<td><%response.Write rs("jd_updatetime")%></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<a onclick="javascript:check('<%response.Write rs("jd_id")%>','update')" style="cursor:hand;">修改</a>
</td>
<td>
<a href="jqjd_manger.asp?jd_id=<%response.Write rs("jd_id")%>&action=delete" style="cursor:hand;">删除</a>
</td>
<td>
<%
if rs("jd_tuijian")=0 then
%>
<a href="jqjd_manger.asp?jd_id=<%response.Write rs("jd_id")%>&action=3" style="cursor:hand;">推荐</a>
<%else%>
<a href="jqjd_manger.asp?jd_id=<%response.Write rs("jd_id")%>&action=4" style="cursor:hand;">不推荐</a>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<%
else
%>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%response.Write i%></td>
<td>
<%
if rs("jd_tuijian")=0 then
response.Write "<font color=red>未推荐</font>"
else
response.Write "<font color=red>已推荐</font>"
end if
%>
</td>
<td><%response.Write rs("jd_name")%></td>
<td><%response.Write rs("jd_tel")%></td>
<td><%response.Write rs("jd_time")%></td>
<td><%response.Write rs("jd_updatetime")%></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<a onclick="javascript:check('<%response.Write rs("jd_id")%>','update')" style="cursor:hand;">修改</a>
</td>
<td>
<a href="jqjd_manger.asp?jd_id=<%response.Write rs("jd_id")%>&action=delete" style="cursor:hand;">删除</a>
</td>
<td>
<%
if rs("jd_tuijian")=0 then
%>
<a href="jqjd_manger.asp?jd_id=<%response.Write rs("jd_id")%>&action=3" style="cursor:hand;">推荐</a>
<%else%>
<a href="jqjd_manger.asp?jd_id=<%response.Write rs("jd_id")%>&action=4" style="cursor:hand;">不推荐</a>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<%
end if
rs.movenext
if rs.eof then exit for
next
%>
<tr>
<td>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="cccccc">
<tr bgcolor="#FFFFFF">
<td width="47%" align="right">共 <font color="#FF0000">
<%Response.write rs.recordcount%>
</font>条 这是第 <font color="#FF0000">
<%response.write page%>
</font> 页 </td>
<td width="53%" align="right"><table width="73%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%If Page <> 1 Then ' 如果不是位于第一页%>
<td width="25%"><img src="images/first.gif" width="8" height="8"> <A HREF=<%=Myself%>?Page=1>首页</A></td>
<td width="25%"><img src="images/pre.gif" width="8" height="8"> <A HREF=<%=Myself%>?Page=<%=(Page-1)%>>上一页</a></td>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%>
<td width="25%"><img src="images/lat.gif" width="8" height="8"><A HREF=<%=Myself%>?Page=<%=(Page+1)%>>下一页</A></td>
<td width="25%"><img src="images/last.gif" width="8" height="8"><A HREF=<%=Myself%>?Page=<%=rs.PageCount%>>尾页</A></td>
<%
end if
%>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<%
end if
%>

[jzywh]

看翻页连接参数传递是否正确

[liujun999999]

肯定是参数传递错误
你的代码太长了，不好看

[hxnet]

分页时，是应该带tablename参数吧，应为<%=leixin%>等于1

[kebeixueng]

自己搞定了，我把代码贴出来，多谢大家的友情UP，待会给分
'分页处理做如下改动就可以了
rs2.pagesize=3
CurrentPage=trim(request("page"))
if CurrentPage="" then
CurrentPage="1"
elseif CurrentPage<"1" then
CurrentPage=1
elseif CurrentPage>cstr(rs2.pagecount) then
CurrentPage=cstr(rs2.pagecount)
end if
pcount=cint(rs2.pagecount)