永发信息网

asp 分页搜索时,第二页出问题

答案:3  悬赏:50  手机版
解决时间 2021-08-20 12:12

当我进行搜索时,第一页可以显示出来,但是第二页却显示无查询结果

源码如下

<% Option Explicit %>
<!--#include file="../config/conn.asp"-->
<%
on error resume next
if session("login")<>"yes" then
response.write "<script language=JavaScript> alert('您未登陆或登陆超时,请重登陆!');window.location.href = '../login.asp' </script>"
response.end
end if
if request.QueryString("c")="" then session("fenl")="0"
if request.QueryString("c")<>"" then session("fenl")=request.QueryString("c")
dim rst,sql,curpage,i,rst1,sql1,zonge,c,time1,time2
set rst1=server.createobject("adodb.recordset")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登记管理</title>
<link href="../style.css" rel="stylesheet" type="text/css">
<script language="javascript"> 
function checkForm(obj)
{
   if(obj.time1.value.length==0)
    {
        alert("请输入查询起始日期")
        obj.time1.focus()
        return false
    }
 if(obj.time2.value.length==0)
    {
        alert("请输入查询结束日期")
        obj.time2.focus()
        return false
    }
 }
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>

<body>
<table width="100%" height="292"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="27" valign="top">&nbsp;</td>
  </tr>
  <tr>
    <td height="140" valign="top"><table width="96%" border="1" align="center" cellpadding="0" cellspacing="0"  bordercolor="#FFFFFF" bordercolorlight="#9CA6C6" bordercolordark="#CCE3FF">
      <tr bgcolor="#FF9933">
        <td height="15" colspan="7" nowrap class="word_white">&nbsp;当前位置:销售查询>销售查询>&gt;&gt;</td>
      </tr >
   <form name="form2" method="post" action="chaxun.asp?act=shijian" onSubmit="return checkForm(this)">
    <tr bgcolor="#CCE3FF">
  <td  colspan="2">请输入要查询的时间段:</td>
  <td colspan="5">
      &nbsp;&nbsp;
      <input type="text" name="time1" value="<%=year(date)&"-1-1"%>"> &nbsp; &nbsp;至 &nbsp; &nbsp;<input type="text" name="time2"value="<%=year(date)&"-1-31"%>">
      选择商品分类:
      <select name="fenlei" id="fenlei">
                    <option value="0" selected>全部</option>
                    <%
sql1="select f_id,f_name from [fenlei]"
rst1.open sql1,conn,1,1
do while not rst1.eof
%>
                    <option value="<%=rst1("f_id")%>" <% if cint(session("fenl"))=rst1("f_id") then
      response.Write(" selected")
    end if
    %>><%=rst1("f_name")%></option>
                    <%
rst1.movenext
loop
rst1.close
%>
              </select>
      &nbsp;&nbsp; &nbsp;
      <input type="submit" name="Submit" value="确定" />
      <span class="STYLE1">&nbsp;*日期格式:2000-1-1</span></td>
  </tr>
   </form>
<%
if request.QueryString("act")="shijian" then
zonge=0
time1=request.Form("time1")
time2=request.Form("time2")
set rst=server.createobject("adodb.recordset")
sql="select x_bid,x_name,x_upid,x_num,x_price,x_sname,x_time,f_name,f_id from [xiaoshou],[fenlei] where x_time<='"&time2&"'and x_time>='"& time1 &"'and x_upid=f_id"
if request.Form("fenlei")<>0 then
sql=sql&" and x_upid="&request.Form("fenlei")
end if
sql=sql & " order by x_id desc"
rst.open sql,conn,1,1
if rst.eof and rst.bof then
%>
<%response.write "<script language=JavaScript>alert('您查询的结果不存在或者已删除!');history.back()</script>"%>
<%else%>    
<tr bgcolor="#CCE3FF">
<%
do while not rst.eof
zonge=zonge+rst("x_price")
rst.movenext
loop
%>  
<td  height="20" colspan="7" align="right">
销售总额 :<%=zonge%>元</td>
      </tr>
      <tr bgcolor="#CCE3FF">
        <td  height="20" colspan="7" ><%=session("time1")%> 至 <%=session("time2")%></td>
        </tr>
   <tr bgcolor="#CCE3FF">
        <td width="9%"  height="20" align="center" class="word_yellow">商品编号</td>
        <td width="8%" align="center" class="word_yellow">商品分类</td>
        <td width="13%" align="center" class="word_yellow">商品名称</td>
        <td width="9%" align="center" class="word_yellow">销售数量</td>
        <td width="11%" align="center" class="word_yellow">销售金额</td>
        <td width="14%" align="center" class="word_yellow">收款员</td>
        <td width="36%" align="center" class="word_yellow">销售时间</td>
      </tr>
      <%
rst.pagesize=20
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rst.absolutepage=curpage
for i= 1 to rst.pagesize
if rst.eof then
exit for
end if
%>
      <tr bgcolor="#CCE3FF">
        <td align="center"><%=rst("x_bid")%></td>
        <td align="center"><%=rst("f_name")%></td>
        <td align="center"><%=rst("x_name")%></td>
        <td align="center"><%=rst("x_num")%></td>
        <td align="center"><%=rst("x_price")%></td>
        <td align="center"><%=rst("x_sname")%></td>
        <td align="center"><%=rst("x_time")%></td>
      </tr>
      <%
rst.movenext
next
%>

      <tr bgcolor="#CCE3FF">
        <td colspan="7" >当前第<%=curpage%>页,共有<%=rst.pagecount%>页,共有:<%=rst.recordcount%>条记录
         
         
          <%if curpage=1 then%>
          首页
          <%else%>
          <a href="?act=shijian&curpage=1">首页</a>
          <%end if%>
          <%if curpage=1 then%>
          上一页
          <%else%>
          <a href="?act=shijian&curpage=<%=curpage-1%>">上一页</a>
          <%end if%>
          <%if rst.pagecount<curpage+1 then%>
          下一页
          <%else%>
          <a href="?act=shijian&curpage=<%=curpage+1%>">下一页</a>
          <%end if%>
          <%if rst.pagecount<curpage+1 then%>
          尾页
          <%else%>
          <a href="?act=shijian&curpage=<%=rst.pagecount%>">尾页</a>
          <%end if%>        </td>
      </tr>
    </table>
  </tr>
<%end if%>
<%end if%>
</table>
 <!--#include file="../Bottom.asp"-->
<%
rst.close
set rst=nothing
set rst1=nothing
conn.close
set conn=nothing
%>

</body>
</html>

问题已经知道是哪里出错了,就是时间参数丢失。求高手帮忙改下代码。

最佳答案

替换以下内容,并反馈结果给我。


<tr bgcolor="#CCE3FF">
    <td colspan="7" >当前第<%=curpage%>页,共有<%=rst.pagecount%>页,共有:<%=rst.recordcount%>条记录
    
    
    <%if curpage=1 then%>
    首页
    <%else%>
    <a href="?act=shijian&curpage=1&time1=<%=cstr(time1)%>&time2=<%=cstr(time2)%>">首页</a>
    <%end if%>
    <%if curpage=1 then%>
    上一页
    <%else%>
    <a href="?act=shijian&curpage=<%=curpage-1%>&time1=<%=cstr(time1)%>&time2=<%=cstr(time2)%>">上一页</a>
    <%end if%>
    <%if rst.pagecount<curpage+1 then%>
    下一页
    <%else%>
    <a href="?act=shijian&curpage=<%=curpage+1%>&time1=<%=cstr(time1)%>&time2=<%=cstr(time2)%>">下一页</a>
    <%end if%>
    <%if rst.pagecount<curpage+1 then%>
    尾页
    <%else%>
    <a href="?act=shijian&curpage=<%=rst.pagecount%>&time1=<%=cstr(time1)%>&time2=<%=cstr(time2)%>">尾页</a>
    <%end if%>    </td>
    </tr>

全部回答

用一个<input text='hidden' value=‘当前页’>

每次调用下页的时候,用JavaScript得到并+1,就是下一页的值

参数丢失,你可以把获取的参数记录为变量,然后在本页再次传递参数即可了。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
显露什么意思,显露什么意思?
用什么方法可以把腿粗变成腿细
湖滨区三门峡伟宏打印店在什么地方啊,我要过
花药离体培养过程中不涉及减数分裂和配子形成
翻译浮光跃金,静影沉壁
暑假剩一月时该怎样休性?
营销师算职称吗,研究生导师是否属于专业技术
三星e958 小说阅览器安装方法
组词,超级急bao bian (第一音) (第二音)
枣阳市襄樊和协康复理疗中心地址是什么,有没
奢望无度是什么意思,纵欲无度是什么意思
尼康s570的充电器和连接线配一套要多少钱
一部关于一个老人和一只猴子和一条狗的电影
班主任如何写评语,用很搞笑的话形容一个人,
是不是破羊水了
推荐资讯
龙亭区开封艺扬绘画艺术学校西郊教学点地址在
岳阳县岳阳爱宝贝童装地址在哪里啊
松滋市荆州袁妈砂锅串串(松滋旗舰店)地址在哪
芙蓉区长沙168家庭旅馆我想知道这个在什么地
钟祥市荆门味道(金都国际广场A区)地址有谁知
犹言遵命的意思,有恶字的成语大全
谁有重庆沙坪坝区搬运货物的电话号码?
有关如何教好英语语法的书籍
我有对双胞胎女儿,属鼠,五行缺金,帮忙取两
对苏州美景赞美的诗句,读古诗写地名,什么城外
手机淘宝怎么进入店铺,手机淘宝上如何搜索商
策划总监的职责是什么,厂长和生产总监的职位
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?