关于ASP查询结果多条记录如何显示，高手帮帮忙。

我初学ASP，做了一个小系统，功能是复合查询，然后将记录列出来，遇到了两个问题，
1：查询结果有多条的时候，页面只返回一条，而且是整页重复输出那条记录（如附件图）。
2：点“下一页”的时候返回的结果改变了，没有按照我的查询条件返回。
各位帮改一下代码好吗，小弟不胜感激！

代码如下：


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>套餐延期资料批量查询</title>
</head>
<body>
<%
dim sql,RS,area,xy,saler,etime,page,pagecount
saler = Trim(request.Form("saler"))
area = Trim(request.Form("area"))
xy = Trim(request.Form("xy"))
etime = Trim(request.Form("etime"))

'area = ""
tele = ""
product = ""
username = ""
tc_name = ""
byz = ""
bs = ""
stime =""
etime = ""
'saler = ""
'xy = ""
'uptime = ""

Set RS=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM tc WHERE"
If saler<>"" Then sql=sql&" saler='"&saler&"' AND"
        If area<>"" Then sql=sql&" area='"&area&"' AND"
If xy<>"" Then sql=sql&" xy='"&xy&"' AND"
If etime<>"" Then sql=sql&" etime<'"&etime&"' AND"

if right(sql,5)="WHERE" then sql=left(sql,clng(len(sql))-5) '解决所有参数都为空的情况
if right(sql,3)="AND" then sql=left(sql,clng(len(sql))-3) '去掉参数最后的and
sql=sql&" order by number"
RS.open sql,Conn1,3,1

RS.PageSize=100
pagecount=RS.PageCount
page=int(request.QueryString("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
RS.AbsolutePage=page

'if request.form("area")="" and request.form("xy")="" and request.form("saler")="" then
     'response.write("请输入查询条件(可模糊查询)")
     'response.end
'end if

if  RS.eof or RS.bof then
       response.write("<script language='javascript'>alert('没有该用户信息,请返回重新查询');location.href='search1.asp'</script>")
       response.end

else
area = RS ("area")
tele = RS ("number")
product = RS ("product")

username = RS ("username")
tc_name = RS ("name")
byz = RS ("byz")
bs = RS ("bs")

stime = RS ("stime")
etime = RS ("etime")
xy = RS ("xy")
saler = RS ("saler")
uptime = RS ("uptime")
reason = RS("reason")

end if
%>
<table   id="t1" align="center" width="90%" height="102" border="1" cellspacing="1"  bordercolor="#FFFFFF">
<form name="Myform">
<tr style="text-align:center " id="tr1">
    <th colspan="14">套餐延期资料批量查询</th>
    </tr>
<tr bgcolor="#99FFFF" style="text-align:center "  bordercolordark="#FFCCFF"  bordercolorlight="#FFFFFF">
     <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
         end if
%>

     <tr style="text-align:center " bordercolordark="#FFCCFF"  bordercolorlight="#FFFFFF" >

<td><%=area %></td>
       <td><%=tele %></td>
       <td><%=product %></td>
       <td><%=username %></td>
       <td><%=tc_name %></td>
       <td><%=byz %></td>
       <td><%=bs %></td>
<td><%=stime %></td>
<td><%=etime %></td>
<td><%=xy %></td>
<td><%=saler %></td>
<td><%=uptime %></td>
</tr>
<%
RS.movenext
next
%>
</form>
</table>
<%if page=1 and not page=pagecount then%>
            <div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="info.asp?page=<%=i%>"><%=i%></a> <%next%><a href="info.asp?page=<%=page+1%>">下一页</a>  </div>
             <%elseif page=pagecount and not page=1 then%>
            <div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="info.asp?page=<%=i%>"><%=i%></a> <%next%><a href="info.asp?page=<%=page-1%>">上一页</a>  </div>
            <%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
            <%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
             <%elseif page=1 and page=pagecount then%>
            <%else%>
            <div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="info.asp?page=<%=i%>"><%=i%></a> <%next%><a href="info.asp?page=<%=page-1%>">上一页</a>
              <a href="info.asp?page=<%=page+1%>">下一页</a>  </div>
<%end if%>
</body>
</html>

25 个解决方案

#1

你的变量赋值的就是第一条

#2

1楼
要怎么改呢？
我想要的结果是多条记录分行、分页输出。

#3

 <%for   i=1   to   RS.PageSize%>  

                <%

if   RS.EOF   then  

                exit   for

                end   if

%>


        <tr   style="text-align:center   "   bordercolordark="#FFCCFF"     bordercolorlight="#FFFFFF"   >

           

            <td> <%= RS   ("area")  %> </td> //下面一样改

            <td> <%=tele   %> </td>

            <td> <%=product   %> </td>

            <td> <%=username   %> </td>

            <td> <%=tc_name   %> </td>

            <td> <%=byz   %> </td>

            <td> <%=bs   %> </td>  

<td> <%=stime   %> </td>

<td> <%=etime   %> </td>

<td> <%=xy   %> </td>

<td> <%=saler   %> </td>

<td> <%=uptime   %> </td>

</tr>

<%

RS.movenext

next

%>

#4

多谢 zhujinqiang ！第一个问题已经解决了。
还有第二个问题
就是我点“下一页”的时候，返回的记录不符合我的查询要求了，变成没有约束的了

#5

<a   href="info.asp?page= <%=page+1%> "> 下一页 </a>  //这个不对。

改为：

response.write "<a href=info.asp?page="&(page+1)&">下一页</a>&nbsp;"


跳转页面必须传递参数

#6

还是不行哦

怎么加不了分啊？

#7

这是谁教你的写法，我还是头一次见这么写的。

#8

使使这个：

<%if page>1 then%>

<a href=info.asp?page=<%=(page-1)%>>上一页</a>

<%else%>

上一页

<%end if%> 

<%if page < trim(pagecount) then%>

<a href=info.asp?page=<%=(page+1)%>>下一页</a>

<%else%>

下一页

<%end if%>

#9

还是不行哦

这个写法是网上COPY的，我自己不会。

#10

<html>
<head>
<meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">
<title> 套餐延期资料批量查询 </title>
</head>
<body>
<%
dim   sql,RS,area,xy,saler,etime,page,pagecount
saler   =   Trim(request.Form("saler"))
area   =   Trim(request.Form("area"))
xy   =   Trim(request.Form("xy"))
etime   =   Trim(request.Form("etime"))

'area   =   ""
tele   =   ""
product   =   ""
username   =   ""
tc_name   =   ""
byz   =   ""
bs   =   ""
stime   =""
etime   =   ""
'saler   =   ""
'xy   =   ""
'uptime   =   ""

  Set   RS=Server.CreateObject("ADODB.Recordset")
sql="SELECT   *   FROM   tc   WHERE"
  If   saler <> ""   Then   sql=sql&"   saler='"&saler&"'   AND"
                If   area <> ""   Then   sql=sql&"   area='"&area&"'   AND"
If   xy <> ""   Then   sql=sql&"   xy='"&xy&"'   AND"
If   etime <> ""   Then   sql=sql&"   etime <'"&etime&"'   AND"

if   right(sql,5)="WHERE"   then   sql=left(sql,clng(len(sql))-5)   '解决所有参数都为空的情况
if   right(sql,3)="AND"   then   sql=left(sql,clng(len(sql))-3)   '去掉参数最后的and
sql=sql&"   order   by   number"
RS.open   sql,Conn1,3,1

RS.PageSize=100
pagecount=RS.PageCount
page=int(request.QueryString("page"))
if   page <=0   then   page=1
if   request.QueryString("page")=""   then   page=1
RS.AbsolutePage=page

'if   request.form("area")=""   and   request.form("xy")=""   and   request.form("saler")=""   then
        'response.write("请输入查询条件(可模糊查询)")
        'response.end
'end   if

if     RS.eof   or   RS.bof   then
            response.write(" <script   language='javascript'> alert('没有该用户信息,请返回重新查询');location.href='search1.asp' </script> ")
            response.end

end   if
%>
<table       id="t1"   align="center"   width="90%"   height="102"   border="1"   cellspacing="1"     bordercolor="#FFFFFF">

<tr   style="text-align:center   "   id="tr1">
      <th   colspan="14"> 套餐延期资料批量查询 </th>
      </tr>
<tr   bgcolor="#99FFFF"   style="text-align:center   "     bordercolordark="#FFCCFF"     bordercolorlight="#FFFFFF">
        <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
       end   if
area   =   RS   ("area")
tele   =   RS   ("number")
product   =   RS   ("product")

username   =   RS   ("username")
tc_name   =   RS   ("name")
byz   =   RS   ("byz")
bs   =   RS   ("bs")

stime   =   RS   ("stime")
etime   =   RS   ("etime")
xy   =   RS   ("xy")
saler   =   RS   ("saler")
uptime   =   RS   ("uptime")
reason   =   RS("reason")
%>

        <tr   style="text-align:center   "   bordercolordark="#FFCCFF"     bordercolorlight="#FFFFFF"   >

<td> <%=area   %> </td>
            <td> <%=tele   %> </td>
            <td> <%=product   %> </td>
            <td> <%=username   %> </td>
            <td> <%=tc_name   %> </td>
            <td> <%=byz   %> </td>
            <td> <%=bs   %> </td>
<td> <%=stime   %> </td>
<td> <%=etime   %> </td>
<td> <%=xy   %> </td>
<td> <%=saler   %> </td>
<td> <%=uptime   %> </td>
</tr>
<%
RS.movenext
next
%>

</table>
<%if   page=1   and   not   page=pagecount   then%>
                        <div   align="right"> 第 <%=page%> 页   <%for   i=1   to   pagecount%>
<a   href="javascript:void(0)" onclick="pageTo(<%=i %>)"> <%=i%> </a>   <%next%> <a href="javascript:void(0)" onclick="pageTo(<%=page+1 %>)"> 下一页 </a>    </div>
                          <%elseif   page=pagecount   and   not   page=1   then%>
                        <div   align="right"> 第 <%=page%> 页   <%for   i=1   to   pagecount%>
<a   href="javascript:void(0)" onclick="pageTo(<%=i %>"> <%=i%> </a>   <%next%> <a    href="javascript:void(0)" onclick="pageTo(<%=page-1 %>)"> 上一页 </a>    </div>
                        <%elseif   page <1   then%> <div   class="font"   align="right"> <font   color=red> 没有任何记录！ </font> </div>
                        <%elseif   page> pagecount   then%> <div   class="font"   align="right"> <font   color=red> 没有任何记录！ </font> </div>
                          <%elseif   page=1   and   page=pagecount   then%>
                        <%else%>
                        <div   align="right"> 第 <%=page%> 页   <%for   i=1   to   pagecount%>
<a    href="javascript:void(0)" onclick="pageTo(<%=i %>)"> <%=i%> </a>   <%next%> <a   href="javascript:void(0)" onclick="pageTo(<%=page-1 %>)"> 上一页 </a>
                            <a   href="javascript:void(0)" onclick="pageTo(<%=page+1 %>.)"> 下一页 </a>    </div>
<%end   if%>
<form action="" method="post" id="f2" name="f2">
<input type="hidden" name="salor" value="<%=salor %>" />
<input type="hidden" name="area" value="<%=area %>" />
<input type="hidden" name="xy" value="<%=xy %>" />
<input type="hidden" name="etime" value="<%=etime %>" />
</form>
<script type="text/javascript">
   function pageTo(page){
       form2.action=page;
       form2.submit();
   }
</script>
</body>
</html>

#11

hanpoyangtitan

按照你的做法，点“下一页”的时候没有什么反应啊？？？

#12

把鼠标指向“下一页”的时候，看状态栏显示的连接地址page＝？，参数传的值正确吗？

#13

参数传的值没有错啊，page=2.
但是为什么第二页不按照前面的查询条件返回结果了？

#14

先写个静态sql

<%
sql="SELECT * FROM tc WHERE etime<nnn"
%>

调试分页代码。

#15

function   pageTo(page){
              form2.action="?page="+page;
              form2.submit();
      }

#16

下一页的时候把参数通过url传过去

#17

哎，什么都不会，都不好意思再问你们了。

zhujinqiang ，不起作用啊。

hanpoyangtitan，这个js是不是没有执行到啊，把鼠标指向“下一页”的时候，看状态栏显示javascript:void(0)，但是页面还是没有反应呢，郁闷了。

#18

mufengwsp2004

要怎么弄参数才通过url传递过去，我初学，不会代码啊。

#19

我这里没有环境，只能你自己调试一下，因为你的参数的接受方法定为request.form，所以要表单提交
如果你要使用url建议你用request("???")。

#20

http://www.elook.net.cn/handbook/aspinnerobjects/index.html

how to use request

i didn't see the code

but only when you post a form to asp example:

<form action="aaa.asp">
<input name="aaa" value = 1>
</form>

and then u can use request to get that value in form

request.form("aaa")

#21

感谢大家！
随后一个问题，我数据库的etime字段格式是smalldatetime（YYYY-MM-DD HH：MM：SS），提交表单的etime格式是YYYY-MM-DD ，这两个怎么比较大小，语句怎么写？

我自己写了sql=sql&" convert(char(10),etime,120)<'convert(char(10),'"&etime&"',120)' AND"

但是比较不出来

#22

<%

'saler   =   Trim(request.Form("saler"))

'area   =   Trim(request.Form("area"))

'xy   =   Trim(request.Form("xy"))

'etime   =   Trim(request.Form("etime")) 


'以上代码要改，下一页的参数从url中读取,下面以saler为例，其他照样；

if request.querystring("saler")<>"" then

saler=request.querystring("saler")

else

saler   =   Trim(request.Form("saler"))

end if


%>


<%

'下面修改url传递

if   page<pagecount then

%>

<a   href="info.asp?page=<%=page+1%>&saler=<%=saler%>&area=<%=area%>&xy=<%=xy%>&etime=<%=etime%>"> 下一页 </a> &nbsp;&nbsp; </div>

<%else%>

下一页

<%end if%>

#23

<%

sql=sql&"where   convert(char(10),etime,120) <"&"&etime&"&" AND  ..." 

%>

注意前一个etime是sql字符，后一个是asp变量。

#24

sql=sql&"where convert(char(10),etime,120) <'"&etime&"' AND"

asp变量etime是字符窜，单引号。

#25

韩波洋是个好同志啊~~~

#1