急~~! ASP查询结果分页参数传递,高手请进,谢谢~~ - 编程论坛

#2

sjhqqq2011-10-14 10:15

人呢?都跑哪里去了~~!

#3

yms1232011-10-14 13:08

<%
if trim(request.form("keyword"))<>"" and trim(request.form("tiaojian"))<>"" Then
   keyword=trim(request.form("keyword"))
   m=trim(request.form("tiaojian"))
else
   keyword=trim(request("keyword"))
   m=trim(request("tiaojian"))
end if
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="?tiaojian=<%=m%>&keyword=<%=keyword%>&page=0">第一页</a> 
                    <%end if%>
                    <%if epage<>1 then%>
                    <a href="?tiaojian=<%=m%>&keyword=<%=keyword%>&page=<%=epage-1%>">上一页</a> 
                    <%end if%>
                    <%if epage<>rs_rk.pagecount then%>
                    <a href="?tiaojian=<%=m%>&keyword=<%=keyword%>&page=<%=epage+1%>">下一页</a> 
                    <%end if%>
                    <%if epage<>rs_rk.pagecount then%>
                    <a href="?tiaojian=<%=m%>&keyword=<%=keyword%>&page=<%=rs_rk.recordcount%>">最后页</a>
                    <%end if%></td>
              </tr>
        </table>
<%end if%>

#4

sjhqqq2011-10-14 14:47

回复 3楼 yms123

版主,点下一页还是会出现错误提示

只有本站会员才能查看附件，请登录

16行如下:

只有本站会员才能查看附件，请登录

[ 本帖最后由 sjhqqq 于 2011-10-14 14:51 编辑 ]

#5

wwm1234567892011-10-14 17:01

我也遇到过，如下可以成功
Response.Write(" <a href=""?name="+cstr(name)+"&page="&CurrentPage+1&""">下一页</a> ")
其中name是查询关键字段！

[ 本帖最后由 wwm123456789 于 2011-10-14 17:06 编辑 ]

#6

yms1232011-10-14 17:13

<%
if trim(request.form("keyword"))<>"" and trim(request.form("tiaojian"))<>"" Then
   keyword=trim(request.form("keyword"))
   m=trim(request.form("tiaojian"))
else
   keyword=trim(request("keyword"))
   m=trim(request("tiaojian"))
end if
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
%>
你把参数都带着了？你这里加判断了?

#7

sjhqqq2011-10-14 23:00

回复 6楼 yms123

呃。把判断给漏了。。。谢谢版主，可以了

[ 本帖最后由 sjhqqq 于 2011-10-14 23:13 编辑 ]

#8

sjhqqq2011-10-14 23:16

顺便问一下，为什么还得要判断呢？

#9

yms1232011-10-14 23:33

以下是引用sjhqqq在2011-10-14 23:16:08的发言：

顺便问一下，为什么还得要判断呢？

第一页是表单提交过来的，第二页是URL参数接收方法不一样就要加判断。

#10

sjhqqq2011-10-15 08:30

回复 9楼 yms123

哦.原来这样,谢谢!!!