ASP 检索的分页显示 下一页的问题。 急 急 急!!
我有一个查询页面。输入条件查询后(在同一个页面显示查询到的记录)第一页没问题但是一点分页显示的下一页就变成了显示表的所有记录的第二页了.我觉得应该加个判断,但我不知道怎么...
我有一个查询页面。
输入条件查询后 (在同一个页面显示查询到的记录)第一页没问题 但是一点分页显示的下一页 就变成了 显示表的所有记录的第二页了.
我觉得应该加个判断 ,但我不知道怎么加 这是全部代码 大家给看看 谢谢
<form name="form1" method="post" action="">
选择查询条件
<select name="sc1">
<option value="0">班级不限</option>
<option value="1">信本411</option>
<option value="2">国贸411</option>
<option value="3">会计411</option>
<option value="4">旅游411</option>
<option value="5">信本611</option>
</select>
<select name="sc2">
<option value="0">性别不限</option>
<option value="1">男</option>
<option value="2">女</option>
</select>
<input type="submit" name="Submit" value="search">
</form>
<%
dim sc1,sc2,rs
sc1=trim(request("sc1"))
sc2=trim(request("sc2"))
set rs=server.createobject("adodb.recordset")
ssql="select * from s_info"
select case sc1
case "0"
ssql=ssql
case "1"
ssql=ssql& " where class='信本411' "
select case sc2
case "0"
ssql=ssql
case "1"
ssql=ssql& " and ssex='男' "
case "2"
ssql=ssql& " and ssex='女' "
end select
case "2" (字符有限,省略)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write"对不起,没有找到您要查找的信息!"
else
%>
<%
rs.pagesize=9
page=Cint(request("page"))
if page=1 then
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
for ipage=1 to rs.pagesize
%>
<%=rs("sid")%>
<%=rs("sname")%>
<%=rs("ssex")%>
<%=rs("sbirth")%>
<%=rs("class")%>
<%
rs.movenext
if rs.EOF then exit for
next
%>
<%if page<>1 then%>
<a href=search2.asp?page=1>首页</a>
<a href=search2.asp?page=<%=(page-1)%>>上一页</a>
<%end if%>
<%if page<>rs.pagecount then%>
<a href=search2.asp?page=<%=(page+1)%>>下一页</a>
<a href=search2.asp?page=<%=rs.pagecount%>>尾页</a>
<%end if%> 展开
输入条件查询后 (在同一个页面显示查询到的记录)第一页没问题 但是一点分页显示的下一页 就变成了 显示表的所有记录的第二页了.
我觉得应该加个判断 ,但我不知道怎么加 这是全部代码 大家给看看 谢谢
<form name="form1" method="post" action="">
选择查询条件
<select name="sc1">
<option value="0">班级不限</option>
<option value="1">信本411</option>
<option value="2">国贸411</option>
<option value="3">会计411</option>
<option value="4">旅游411</option>
<option value="5">信本611</option>
</select>
<select name="sc2">
<option value="0">性别不限</option>
<option value="1">男</option>
<option value="2">女</option>
</select>
<input type="submit" name="Submit" value="search">
</form>
<%
dim sc1,sc2,rs
sc1=trim(request("sc1"))
sc2=trim(request("sc2"))
set rs=server.createobject("adodb.recordset")
ssql="select * from s_info"
select case sc1
case "0"
ssql=ssql
case "1"
ssql=ssql& " where class='信本411' "
select case sc2
case "0"
ssql=ssql
case "1"
ssql=ssql& " and ssex='男' "
case "2"
ssql=ssql& " and ssex='女' "
end select
case "2" (字符有限,省略)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write"对不起,没有找到您要查找的信息!"
else
%>
<%
rs.pagesize=9
page=Cint(request("page"))
if page=1 then
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
for ipage=1 to rs.pagesize
%>
<%=rs("sid")%>
<%=rs("sname")%>
<%=rs("ssex")%>
<%=rs("sbirth")%>
<%=rs("class")%>
<%
rs.movenext
if rs.EOF then exit for
next
%>
<%if page<>1 then%>
<a href=search2.asp?page=1>首页</a>
<a href=search2.asp?page=<%=(page-1)%>>上一页</a>
<%end if%>
<%if page<>rs.pagecount then%>
<a href=search2.asp?page=<%=(page+1)%>>下一页</a>
<a href=search2.asp?page=<%=rs.pagecount%>>尾页</a>
<%end if%> 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询