分页问题：不加搜索条件分页正常，加上搜索条件后分页出错！请高手指教！

[weibeauty]

分页问题：不加搜索条件分页正常，加上搜索条件后，点“下一页”，又回到不加搜索条件的分页结果！

郁闷！
我想还是分页这一块没搞明白，请各位高手指教！

是不是在“下一页”的链接里边再加一个“Key”值什么的？！

[zc2cm]

如果加搜索条件，上面请使用
key=request.QueryString("key")
sql="select * from table where key='"&key&"'"
...
..
这样就ＯＫ了

[sy_binbin]

没把搜索条件带到连接里

<a href="aa.asp?a=<%=条件1%>&b=<%条件2%>">下一页</a>

[weibeauty]

我把分页相关的代码贴上来，帮我改一下啊！光说这个道理我搞不明白！嘿，脸皮厚一点呵！

'### 下边是SQL代码，包括本页的一些查询条件
<%
dim i,intPage,page,pre,last,filepath
set rs=server.createobject("adodb.recordset")
sql="select corp_info.*,calling_info.*,corp_info.id as corp_info_id from corp_info,calling_info where calling_info.corp_calling=corp_info.corp_calling "
if trim(request("corp_calling"))<>"" then
sql=sql&" and corp_info.corp_calling='"&trim(request("corp_calling"))&"' "
end if

if trim(request("corp_danwei"))<>"" then
sql=sql&" and corp_info.corp_danwei='"&trim(request("corp_danwei"))&"' "
end if

if trim(request("rongzi_leixing"))<>"" then
sql=sql&" and corp_info.rongzi_leixing='"&trim(request("rongzi_leixing"))&"' "
end if

sql=sql&" order by corp_info.id"

rs.PageSize = 30
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))'变量是跳转页面时的值

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>


'### 下边是显示分页的代码

<tr bgcolor="#EEF0F2">
<td height="30" colspan="11" align="center">
<div align="right">共 <%=rs.recordCount%>
项　第 <%=page%>/<%=rs.pageCount%> 页

<a href="browse.asp?page=1">首页</a>
<%if pre then%>
<a href="browse.asp?page=<%=intpage -1%>">上一页</a> <%end if%>
<%if last then%>
<a href="browse.asp?page=<%=intpage +1%>">下一页</a> <%end if%>
<a href="browse.asp?page=<%=rs.PageCount%>">尾页</a> 转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="browse.asp?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="browse.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页</font>
</div>
</td>
</tr>

[stou]

UP

[班门弄斧]

<a href="browse.asp?page=1&corp_danwei="&request("corp_danwei")&"&rongzi_leixing="&request("rongzi_leixing")&"">首页</a>

上一页、下一页、尾页类似的都加上搜索条件即可。

[jingxiaoping]

<%
dim i,intPage,page,pre,last,filepath
set rs=server.createobject("adodb.recordset")
sql="select corp_info.*,calling_info.*,corp_info.id as corp_info_id from corp_info,calling_info where calling_info.corp_calling=corp_info.corp_calling "
if trim(request("corp_calling"))<>"" then
sql=sql&" and corp_info.corp_calling='"&trim(request("corp_calling"))&"' "
end if

if trim(request("corp_danwei"))<>"" then
sql=sql&" and corp_info.corp_danwei='"&trim(request("corp_danwei"))&"' "
end if

if trim(request("rongzi_leixing"))<>"" then
sql=sql&" and corp_info.rongzi_leixing='"&trim(request("rongzi_leixing"))&"' "
end if

sql=sql&" order by corp_info.id"

'增加变量
instring="?" '连接串的类型
pagestr="browse.asp" '跳转的地址
if trim(request("corp_calling"))<>"" then '判断相应的参数是否为空，以方便跳转的时候携带
pagestr=pagestr&instring&"corp_calling="&trim(request("corp_calling"))
instring="&"
end if
if trim(request("corp_danwei"))<>"" then
pagestr=pagestr&instring&"corp_danwei="&trim(request("corp_danwei"))
instring="&"
end if
if trim(request("rongzi_leixing"))<>"" then
pagestr=pagestr&instring&"corp_danwei="&trim(request("rongzi_leixing"))
instring="&"
end if

rs.PageSize = 30
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))'变量是跳转页面时的值

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>


'### 下边是显示分页的代码

<tr bgcolor="#EEF0F2">
<td height="30" colspan="11" align="center">
<div align="right">共 <%=rs.recordCount%>
项　第 <%=page%>/<%=rs.pageCount%> 页

<a href="<%=pagestr%>&page=1">首页</a>
<%if pre then%>
<a href="<%=pagestr%>&page=<%=intpage -1%>">上一页</a> <%end if%>
<%if last then%>
<a href="<%=pagestr%>&page=<%=intpage +1%>">下一页</a> <%end if%>
<a href="<%=pagestr%>&page=<%=rs.PageCount%>">尾页</a> 转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="<%=pagestr%>&page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="<%=pagestr%>&page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页</font>
</div>
</td>
</tr>

[jingxiaoping]

下面再修正一下。

<tr bgcolor="#EEF0F2">
<td height="30" colspan="11" align="center">
<div align="right">共 <%=rs.recordCount%>
项　第 <%=page%>/<%=rs.pageCount%> 页

<a href="<%=pagestr%><%=instring%>page=1">首页</a>
<%if pre then%>
<a href="<%=pagestr%><%=instring%>page=<%=intpage -1%>">上一页</a> <%end if%>
<%if last then%>
<a href="<%=pagestr%><%=instring%>page=<%=intpage +1%>">下一页</a> <%end if%>
<a href="<%=pagestr%><%=instring%>page=<%=rs.PageCount%>">尾页</a> 转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="<%=pagestr%><%=instring%>page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="<%=pagestr%><%=instring%>page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页</font>
</div>
</td>
</tr>

[weibeauty]

TO：jingxiaoping(我徘徊在世界的边缘|有人说我是魔|但我更愿意自己是鬼)

大哥，我爱死你了！调好了！

分页这个东西我搞了好几天，晕头转向了都，郁闷之极之下决定求助CSDN，这么短的时间就让你搞定了！——汗颜之余，还是汗颜，还要努力！！20分不多，就给大哥您了！

楼上各位的回复，也让小弟受益良多，感激之际，请不惜加上小弟的QQ，以便多有请教！
我的QQ：452252053

[weibeauty]

再问一个郁闷的问题：
CSDN里怎么给分呢？“给分”按钮前边那个“码：”是什么，是在这里边填上想给的人的用户名吗？它显示的是类似密码的东西！

[weibeauty]

OK!第一次在CSDN结账！感觉挺爽的！