ASP查询结果分页显示（下一页）问题？？

cxnwb 2017-06-25 10:12:44
本模块为数据查询页面：其中，sjk.asp文件，页面默认从数据表中读取所有的单据记录，然后进行分页显示：页面跳转的功能就是使用 “首页”“上一页”“下一页”“尾页”进行页面之间的跳转；在这个页面中，分页显示正常；
    但是，我想在查询结果显示页面中也实现类似的功能，但是，问题却出现了：当我输入查询关键字，点击查询以后，返回的查询结果集是正常的（也就是说，SQL语句不存在问题）；但是，当我点击“上一页”或者“下一页”时，显示的记录集却变成了所有的记录集；而不是查询结果集中的记录。
    被这个问题已经困扰了好几天了，请各位大虾多多指教 ！！

默认打开数据库全部文件，分页显示正常。

按条件搜索结果也都正常，但是点击“下一页”结果变成全部数据的“下一页”了。
代码如下 ：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
dim conn,rs,page '连接数据库
dim cj,zt,jx,ch,flag
set conn=server.CreateObject("adodb.connection")
conn.open "dsn=mysql_churuku;uid=root;pwd=admin"
set rs=server.CreateObject("adodb.recordset")
rs.cursorlocation=3

cj=trim(request("chejian")) '从表单中取得搜索条件
zt=trim(request("zhuangtai"))
jx=trim(request("jixing"))
ch=trim(request("chehao"))
sql="select * from churuku where"

flag=0 '按照搜索条件连接SQl语句
if cj<>"" then
sql=sql&" chejian='"&cj&"'"
flag=1
end if

if zt<>"" and flag=1 then
sql=sql&" and zhuangtai='"&zt&"'"

elseif zt<>"" then
sql=sql&" zhuangtai='"&zt&"'"
flag=1
end if

if jx<>"" and flag=1 then
sql=sql&" and jixing='"&jx&"'"
flag=1
elseif jx<>"" then
sql=sql&" jixing='"&jx&"'"
flag=1
end if

if ch<>"" and flag=1 then
sql=sql&" and chehao='"&ch&"'"
elseif ch<>"" then
sql=sql&" chehao='"&ch&"'"
flag=1
end if

if flag=0 then

sql="select * from churuku"
end if

rs.open sql,conn,1,1

rs.pagesize=10 ' 每页10条显示数据库内容
page=clng(request("page"))
if page <1 then page=1
if page >rs.pagecount then page=rs.pagecount
if rs.pagecount>0 then rs.AbsolutePage=page
%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>

<body>
<form id="form2" name="form2" method="post" action="sjk.asp">
<table ""style="text-align:center" width="100%" border="1" align="center" cellpadding="1" cellspacing="0">
<tr bgcolor="#FFFF99" align="center">
<td > </td>
<td>日期 </td>
<td>车间</td>
<td>班次</td>
<td>机型</td>
<td>车号</td>
<td>车次</td>
<td>司机</td>
<td>时间</td>
<td>状态</td>
<td>查看修改</td>
<td>删除</td>
</tr>
<%
for i=1 to rs.pagesize
if rs.eof then exit for
%>

<tr>
<td><%=rs("id")%></td>
<td><%=rs("riqi")%></td>
<td><%=rs("chejian")%></td>
<td><%=rs("banci")%></td>
<td><%=rs("jixing")%></td>
<td><%=rs("chehao")%></td>
<td><%=rs("checi")%></td>
<td><%=(rs("siji"))%></td>
<td><%=rs("shijian")%></td>
<td style="color:#933"><% =rs("zhuangtai")%></td>
<td>查看修改</td>
<td>删除</td>
</tr>
<%
rs.movenext
next
%>
</table>
<p> </p>
<p style="text-align:center; text-indent:40px"> '分页显示
<% if rs.pagecount >0 then %>
当前页：<%=page%>/<%=rs.pagecount%> | 每页: <%=rs.pagesize%> 条信息 | 共 <%=rs.recordcount%> 条信息
<% else %>
当前页： 0/0
<%end if %>
<% if page >1 then %>
<a href="sjk.asp?page=1">首页</a> |
<a href="sjk.asp?page=<%=page-1%>"&cj=<%=request("chejian")%>&z=<%=request("zhuangtai")%>&jx=<%=request("jixing")%>&ch=<%=request("chehao")%>&action=<%=request("action")%>>上一页</a> |
<% end if %>


<%if page<>rs.pagecount then %>
<a href="sjk.asp?page=<%=page+1%>"&cj=<%=request("chejian")%>&z=<%=request("zhuangtai")%>&jx=<%=request("jixing")%>&ch=<%=request("chehao")%>&action=<%=request("action")%>>下一页</a> |
<a href="sjk.asp?page=<%=rs.pagecount%>">尾页</a> |
<% end if %>

'搜索条件
<p >         车间：<select name="chejian" id="chejian" style="text-align:center;width:100Px;height:25px">
<option value=" "> </option>
<option value="大连"<%if request.form("chejian")="大连" then response.Write"selected"%>>大连</option>
<option value="金州"<%if request.form("chejian")="金州" then response.Write"selected"%>>金州</option>
</select>
     状态：
<select name="zhuangtai" id="zhuangtai" style="width:100Px;height:25px">
<option value=" "> </option>
<option value="入库"<%if request.form("zhuangtai")="入库" then response.write"selected"%>>入库</option>
<option value="出库"<%if request.form("zhuangtai")="出库" then response.write"selected"%>>出库</option>
</select>
 
 
<input type="submit" name="button" id="button" style="width:200px;height:150" value="提 交" />
机型：
<select name="jixing" id="jixing" style="width:100Px;height:25px">
<option value=" "> </option>
<option value="HXD2"<% if request.form("jixing")="HXD2" then response.Write"selected"%>>HXD2</option>
<option value="HXD3B"<% if request.form("jixing")="HXD3B" then response.Write"selected"%>>HXD3B</option>
<option value="ND5"<% if request.form("jixing")="ND5" then response.Write"selected"%>>ND5</option>
</select>
 
车号：
<input type="text" name="chehao" id="chehao" style=" height:24px" size="12"/>
</form>
</body>
</html>
...全文
631 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
cxnwb 2017-06-27
  • 打赏
  • 举报
 回复
引用 5 楼 hookee 的回复:
上一页下一页链接里<a ...href=... cj=<%=request("chejian")%>， 程序取的是chejian，而链接用的是cj=, 当然取不到了。 chejian=<%=request("chejian")%>， 其他类似。 首页尾页也要加搜索条件。
“一语点醒梦中人”，程序设计变量取值文本框、下拉列表，我把变量值回传，变量取的值当然全是NULL，终于明白错在哪里了。 谢谢，走了歪路这么简单的问题忙乎了两晚上，再次感谢，谢谢。 这个Web程序如果添加一个按钮把搜索的结果导出excel文件，应许怎么写？
hookee 2017-06-27
  • 打赏
  • 举报
 回复
上一页下一页链接里<a ...href=... cj=<%=request("chejian")%>， 程序取的是chejian，而链接用的是cj=, 当然取不到了。 chejian=<%=request("chejian")%>， 其他类似。 首页尾页也要加搜索条件。
hookee 2017-06-26
  • 打赏
  • 举报
 回复 

...

rs.CursorLocation = 3
rs.CacheSize = 10
rs.Open sql, conn, 3, 1
If Not (rs.BOF AND rs.EOF) Then
	recordCounter = rs.RecordCount
	rs.PageSize = 10
	rs.AbsolutePage = page
	i = 0
	Do While Not rs.EOF AND i<rs.PageSize

.........

		i = i + 1
		rs.MoveNext
	Loop
End If
If rs.State<>0 Then rs.Close
Set rs = Nothing
cxnwb 2017-06-26
  • 打赏
  • 举报
 回复
引用 3 楼 hookee 的回复:

...

rs.CursorLocation = 3
rs.CacheSize = 10
rs.Open sql, conn, 3, 1
If Not (rs.BOF AND rs.EOF) Then
	recordCounter = rs.RecordCount
	rs.PageSize = 10
	rs.AbsolutePage = page
	i = 0
	Do While Not rs.EOF AND i<rs.PageSize

.........

		i = i + 1
		rs.MoveNext
	Loop
End If
If rs.State<>0 Then rs.Close
Set rs = Nothing
答非所问
cxnwb 2017-06-25
  • 打赏
  • 举报
 回复
查看之前的帖子解决了时间显示问题：<%=FormatDateTime(rs("shijian"),3)%>这样就没有前面的日期了，但是不知道前面日期是怎么出现的？
cxnwb 2017-06-25
  • 打赏
  • 举报
 回复
还有一个问题：时间这一列显示出当天的日期，我在数据库里保存的只有时间，提取后不知道为什么加上了当天的日期了？？
ASP技术常遇问题解答-如何分页显示数据库查询结果？.zip
ASP技术问题解答，希望对你有帮助。
asp+access分页显示实例
本例子实现文章列表分页 显示表名 字段名 及相应内容 页显示10条页码 如[1] [2]...[10] 并显示上下页 到N页 等信息 已测试成功
formview分页上一页下一页总页数当前页数首页末页
formview分页上一页下一页总页数当前页数首页末页
【ASP.NET编程知识】asp.net gridview分页：第一页 下一页 1 2 3 4 上一页 最末页.docx
【ASP.NET编程知识】asp.net gridview分页：第一页 下一页 1 2 3 4 上一页 最末页.docx
asp.net分页显示数据库中的信息
我在asp.net 中实现了数据库中的信息分页显示在页面上，
有两中实现的方式，一种是通过DorpDownList实现。
两一种是通过“首页”“上一页”“下一页”“最后”按钮来实现，
我的代码也许很菜，但我相信他可以给你一点点的启示吧。
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章