asp中查找页面，分页显示不正常（分页代码在普通显示页面正常）
代码第一部分：<!--#includefile="inc/conn.asp"--><!--#includefile="inc/Page.asp"--><html><hea...
代码第一部分：
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/Page.asp" -->
<html>
<head>
<title>sx</title>
</head>
<body >
<%
yjlb=request("yjlb")
ybjg=request("ybjg")
juese=request("juese")
if yjlb="" and ybjg="" and juese="" then
response.write "<script>alert('请至少选择或填写一个选项！');history.back();</Script>"
response.end
end if
%>
<table width="895" border="0" align="center">
<tr>
<td height="35" class="unnamed11">当前板块：<span class="STYLE1">筛选结果</span> <input type="button" value="返回" onClick="javascript:window.history.go(-1);"></td>
</tr>
</table>
<%
on error resume next
set rs=server.CreateObject("adodb.recordset")
sql="select * from hjbg where 1=1"
if yjlb<>"" then
sql=sql&" and [ysbd] Like '%"& yjlb &"%'"
else
sql=sql
end if
if ybjg<>"" then
sql=sql&" and [ybjg] Like '%"& ybjg &"%'"
else
sql=sql
end if
if juese<>"" then
sql=sql&" and [名次] Like '%"& juese &"%'"
else
sql=sql
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " 没有符合条件的查找记录!"
else
dim currentpage,page_count,Pcount
dim totalrec,endpage
Const sm=10
if request("page")="" or not isnumeric(request("page")) then
currentPage=1
else
currentPage=cint(request("page"))
end if
perpage=sm
rs.PageSize=perpage
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
%>
因字符数限制，代码第二部分 用图片附件上传了。
以上代码，是在直接运行下可以分页的，一切正常。我将它应用在查找后的显示页面，第2页开始，点击都是显示“请至少选择或填写一个选项”。
也即，筛选页面的操作记录，都不可以传导到第2页以上了。怎么解决呢？ 展开
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/Page.asp" -->
<html>
<head>
<title>sx</title>
</head>
<body >
<%
yjlb=request("yjlb")
ybjg=request("ybjg")
juese=request("juese")
if yjlb="" and ybjg="" and juese="" then
response.write "<script>alert('请至少选择或填写一个选项！');history.back();</Script>"
response.end
end if
%>
<table width="895" border="0" align="center">
<tr>
<td height="35" class="unnamed11">当前板块：<span class="STYLE1">筛选结果</span> <input type="button" value="返回" onClick="javascript:window.history.go(-1);"></td>
</tr>
</table>
<%
on error resume next
set rs=server.CreateObject("adodb.recordset")
sql="select * from hjbg where 1=1"
if yjlb<>"" then
sql=sql&" and [ysbd] Like '%"& yjlb &"%'"
else
sql=sql
end if
if ybjg<>"" then
sql=sql&" and [ybjg] Like '%"& ybjg &"%'"
else
sql=sql
end if
if juese<>"" then
sql=sql&" and [名次] Like '%"& juese &"%'"
else
sql=sql
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " 没有符合条件的查找记录!"
else
dim currentpage,page_count,Pcount
dim totalrec,endpage
Const sm=10
if request("page")="" or not isnumeric(request("page")) then
currentPage=1
else
currentPage=cint(request("page"))
end if
perpage=sm
rs.PageSize=perpage
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
%>
因字符数限制，代码第二部分 用图片附件上传了。
以上代码，是在直接运行下可以分页的，一切正常。我将它应用在查找后的显示页面，第2页开始，点击都是显示“请至少选择或填写一个选项”。
也即，筛选页面的操作记录，都不可以传导到第2页以上了。怎么解决呢？ 展开
4个回答
展开全部
关键在于，分页函数中，没有把筛选条件传递下去
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
yjlb=request("yjlb")
ybjg=request("ybjg")
juese=request("juese")
以上三个值考虑用sseion保存
ybjg=request("ybjg")
juese=request("juese")
以上三个值考虑用sseion保存
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
分页中缺失条件参数的传递
追问
怎么补充上去呢？
追答
要重新做一个或把原来的加进条件参数
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
session传递也不好，问题应该在分页函数那里，贴函数 FenYePage的代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
