急死了,那位大侠帮忙啊!我找出原因了,查询表单的输入框和结果在同一个页面内,翻页时输入框置空,从而

主题：急死了,那位大侠帮忙啊!我找出原因了,查询表单的输入框和结果在同一个页面内,翻页时输入框置空,从而

sldd [专家分：0] 发布于 2007-04-10 09:43:00

关键字也置空了,请高手给出解决思路,要求查询输入框和结果仍然在同一个页面内,不用框架

贴出了整段代码,很容易看的,网上摘的比较经典的

这个问题的关键在于查询表单和结果在同一个页面内,这样翻页时,文本框跟着刷新,从而关键字跟着置空

我编写了一个简单的设备浏览查询程序，进入页面后会分页显示所有设备，
如果在搜索框内填入关键字搜索后，如果得到的记录少于每页显示的个数18个，程序是没有问题的，

如果大于18个，只要点击下一页，则显示的记录立即变为所有记录的第二页

有网友说,用表单传递参数,我加了一句,
response.write "<form method=Post action="&filename&"?keyword="&request("keytxt")&">"

<table width="754" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
      <table width="754" cellspacing="0" cellpadding="0" height="34" bgcolor="#FFCC33">
        <tr>
          <td width="25%" height="33">
            <div align="center"><font color="#330099" size="2">设备登记</font></div>
          </td>
          <td width="25%" height="33">
            <div align="center"><font color="#330099" size="2"><a href="xiu_index.asp" target="_self">设备修理</a></font></div>
          </td>
          <td width="25%" height="33">
            <div align="center"><font color="#330099" size="2"><a href="jie_index.asp">设备借用</a></font></div>
          </td>
          <td width="25%" height="33">
            <div align="center"><font color="#330099" size="2">设备转移</font></div>
          </td>
        </tr>
      </table>
</td>
  </tr>
</table>
<tr>
    <td  valign="top" bgcolor="#FFFFFF">

    <form name="test" method="POST" action="deng_index.asp">

      <p align="center"><font color="#FF0000"> 按</font>
        <select  size="1" name="sss">
          <option value="设备名称">设备名称</option>

        ...............

        </select>
        条件　 <font  color="#FF0000">输入查询的字符串</font>：
       [b] <input name="keytxt" type="text" id[/b]="keytxt" style="font-family: 宋体; font-size: 9pt;  color: #000064" onFocus="this.value=''"   size="20">
        <input  type="submit"  value="查询"  name="submit">
        <input  type="reset"  value="全部重写"  name="reset">
      </p>
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/system.asp") '## MS Access 2000 using virtual path
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.open strConnString
Set my_rs= Server.CreateObject("ADODB.Recordset")
%>



<%dim sss,keyword
keyword=Trim(Request("keytxt"))

if trim(request.form("sss"))<>"" then
select case request.form("sss")
case "设备名称"
strSql ="select * from jhtdata where (设备名称 like '%"&keyword&"%') and (部门='"&myUpart&"') order by id Desc"

end select

else
strSql ="select * from jhtdata where 部门='"&myUpart&"' order by id Desc"
end if
my_rs.open strSql,my_Conn,1,1

if my_rs.eof and my_rs.bof then
response.write "<p align='center'> 还没有任何设备 </p>"%>
      <table width="754" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>

          <td bgcolor="#CCCCFF"><img border="0" src="images_oishbgl/Form.gif" align="absmiddle" width="14" height="11">
            <%=myUpart%>设备登记表 </td>

          <td bgcolor="#CCCCFF"><img border="0" src="images_oishbgl/write.gif" width="16" height="16">
            <%if myUrule="b" then%>
            <a href="#" onClick="MM_openBrWindow('sendinf.asp','','scrollbars=yes,width=800,height=570')">
            <%end if%>
            登记设备</a>　</td>
            </tr>
          </table>
<%else
totalPut=my_rs.recordcount

if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showpage totalput,MaxPerPage,"deng_index.asp"
showContent
showpage totalput,MaxPerPage,"deng_index.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
my_rs.move  (currentPage-1)*MaxPerPage
showpage totalput,MaxPerPage,"deng_index.asp"
showContent
showpage totalput,MaxPerPage,"deng_index.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"deng_index.asp"
showContent
showpage totalput,MaxPerPage,"deng_index.asp"
end if
end if
my_rs.close
end if

set my_rs=nothing
my_conn.close
set my_conn=nothing%>
<%
sub showContent
dim i
i=0
%>
</form>
    <table border="0" width="754" bgcolor="#8080C0" align="center">
      <tr>

        <td width="100%" bgcolor="#CCCCFF" height="23">
          <table width="336" border="0" cellspacing="0" cellpadding="0" height="20">
            <tr>
              <td><img border="0" src="images_oishbgl/Form.gif" align="absmiddle" width="14" height="11">
                <%=myUpart%>设备登记表 </td>
              <td><img border="0" src="images_oishbgl/write.gif" width="16" height="16">
                <%if myUrule="b" then%>
                <a href="#" onClick="MM_openBrWindow('sendinf.asp','','scrollbars=yes,width=800,height=570')">
                <%end if%>
                登记设备</a>　</td>
            </tr>
          </table>
        </td>
        </tr>
        <tr>
        <td bgcolor="#FFFFFF">
          <table width="754" border="1" style='border-collapse: collapse;table-layout:fixed;' x:str>
            <tr align="center">
              <td width="72" nowrap >设备名称</td>
              <td width="87" >设备编号</td>
              <td width="102" >规格型号</td>
              <td width="93" >生产厂商</td>
              <td width="75" >管理部门</td>
              <td width="59" >运行状况</td>
              <td width="73" >设备负责人</td>
              <td width="61" >是否借出</td>
              <td colspan="2" > 管理栏 </td>
            </tr>
       <%do while not my_rs.eof %>


            <tr align="center">
              <td width="72" ><a href="#" onClick="MM_openBrWindow('view_inf.asp?view_id=<%=my_rs("id")%>','','scrollbars=yes,width=660,height=550')"><%=my_rs("设备名称")%></a></td>
              <td width="87" ><%=my_rs("设备编号")%></td>
              <td width="102" ><%=my_rs("设备规格型号")%></td>
               <td width="93" ><%=my_rs("生产厂商")%></td>
              <td width="75" nowrap ><%=my_rs("部门")%></td>
              <td width="59" ><%=my_rs("运行状况")%></td>
              <td width="73" ><%=my_rs("设备负责人")%></td>
              <td width="61" >
                <%if my_rs("已借出")=false then%>
                否
                <%else%>
                是
                <%end if%>
              </td>
              <td width="38" >
                <%if my_rs("已借出")=false then%>
                <%if  myUrule="b" then%>
                <a href="#" onclick="MM_goToURL('parent','del_from_db.asp?delid=<%=my_rs("id")%>&delbz=My_public');return document.MM_returnValue">
               <%end if%> <%end if%>
                <img border="0" src="images_oishbgl/icon_delete.gif" alt="删除此条信息！" align="absmiddle" width="15" height="15">
                 </a>


              <td width="30" >
                <%if  myUrule="b" then%>
                <a href="#" onClick="MM_openBrWindow('edit_inf.asp?edit_id=<%=my_rs("id")%>','','scrollbars=yes,width=780,height=570')">
                <%end if%>
                <img border="0" src="images_oishbgl/0037.gif" width="20" height="18" alt="编辑此记录">
                </a> </td>
            </tr>
             <%
i=i+1
if i>=MaxPerPage then exit do
my_rs.movenext
loop
%>
          </table>
      </table>
    <%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if

[b]关键语句[/b]

response.write "<p align='center'>&amp;nbsp;"
if CurrentPage<2 then
response.write "<font color='#000080'><a href="&amp;filename&amp;"?page=1&amp;keyword="&amp;keyword&amp;">首页</a> 上一页</font>&amp;nbsp;"
else
response.write "<a href="&amp;filename&amp;"?page=1&amp;keyword="&amp;keyword&amp;">首页</a>&amp;nbsp;"
response.write "<a href="&amp;filename&amp;"?page="&amp;CurrentPage-1&amp;"&amp;keyword="&amp;keyword&amp;">上一页</a>&amp;nbsp;"
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页尾页</font>"
else
response.write "<a href="&amp;filename&amp;"?page="&amp;(CurrentPage+1)&amp;"&amp;keyword="&amp;keyword&amp;">"
response.write "下一页</a> <a href="&amp;filename&amp;"?page="&amp;n&amp;"&amp;keyword="&amp;keyword&amp;">尾页</a>"
end if[b]关键语句[/b]

response.write "<font color='#000080'>&amp;amp;amp;amp;nbsp;页次：</font><strong><font color=red>"&amp;amp;amp;amp;CurrentPage&amp;amp;amp;amp;"</font><font color='#000080'>/"&amp;amp;amp;amp;n&amp;amp;amp;amp;"</strong>页</font> "
response.write "<font color='#000080'>&amp;amp;amp;amp;nbsp;共<b>"&amp;amp;amp;amp;totalnumber&amp;amp;amp;amp;"</b>个记录 <b>"&amp;amp;amp;amp;maxperpage&amp;amp;amp;amp;"</b>个记录/页</font> "

response.write "<font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&amp;amp;amp;amp;Currentpage&amp;amp;amp;amp;">&amp;amp;amp;amp;nbsp;"
   response.write "<input class=buttonface type='submit'  value='Go'  name='cndok' >&amp;amp;amp;amp;nbsp;&amp;amp;amp;amp;nbsp;"
end function
%>

最后更新于：2007-04-10 16:19:00

本帖地址： http://bbs.pfan.cn/post/225717.html

回复列表（共14个回复）

沙发

wangsdong [专家分：21390] 发布于 2007-04-10 10:21:00

response.write "<form method=Post action="&filename&"?keyword="&request("keytxt")&">"
这句去掉

if CurrentPage<2 then
response.write "<font color='#000080'><a href='?page=1&keyword="&keyword&">首页</a> 上一页</font>&nbsp;"
其它相应的地方你自己改一下

板凳

sldd [专家分：0] 发布于 2007-04-10 10:35:00

试过了,还是不行

function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if

'response.write "<form method=Post action="&filename&"?keyword="&request("keytxt")&">"
response.write "<p align='center'> "
if CurrentPage<2 then
response.write "<font color='#000080'><a href="&filename&"?page=1&keyword="&keyword&">首页</a> 上一页</font> "
else
response.write "<a href="&filename&"?page=1&keyword="&keyword&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&keyword="&keyword&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&keyword="&keyword&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&keyword="&keyword&">尾页</a>"
end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>个记录 <b>"&maxperpage&"</b>个记录/页</font> "

response.write "<font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&"> "
response.write "<input class=buttonface type='submit' value='Go' name='cndok' >  "
end function

3 楼

sldd [专家分：0] 发布于 2007-04-10 13:56:00

我想问题的关键在于查询表单和结果在同一个页面内,这样,一翻页查询框也跟着刷新,关键字就为空了,从而,翻页时不能传递关键字一参数,哪位高手知道,这种情况下,如何传递关键字

为了调试方便,我把关键字输入框置为一个初始值,比如"灯",结果还是不能正确显示,看来不简单

4 楼

shiwei2006 [专家分：1340] 发布于 2007-04-10 17:41:00

有很多方法都可以将最初的关键字跟踪并添加到相应的页面中,不过最简单的你可以看看百度它就是将查询关键字放到查询字符串进行的,在翻页时链接也有要查询的关键字,不过是经过url编码了,你也可以这样,也可以传递到一个<input type=hidden>变量中利用表单翻页,也可以最简单用一个简单的session进行跟踪,这要看你的具体程序运行环境了.

5 楼

sldd [专家分：0] 发布于 2007-04-11 10:33:00

[quote]有很多方法都可以将最初的关键字跟踪并添加到相应的页面中,不过最简单的你可以看看百度它就是将查询关键字放到查询字符串进行的,在翻页时链接也有要查询的关键字,不过是经过url编码了,你也可以这样,也可以传递到一个<input type=hidden>变量中利用表单翻页,也可以最简单用一个简单的session进行跟踪,这要看你的具体程序运行环境了.[/quote]

response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&keyword="&keyword&">"

这样试过了
不行

6 楼

liulei001 [专家分：12820] 发布于 2007-04-11 13:58:00

你的代码太多了，没时间看。给你一个例子，自己扩展把。

<%
    dim keyword,Page
    keyword = Trim(Request("keyword"))
%>

<table border="0" width="100%">
<form method="POST" action="<%=Request.ServerVariables("Script_Name")%>" target="_self">
<tr height="25">
    <td>关键字</td>
    <td><input type="text" name="keyword"    size="20" value="<%=Server.HTMLEncode(keyword)%>"></td>
    <td><input class="Button1" type="submit" value=" 查  询 " name="btnSearch"></td>
</tr>
</form>
</table>
<%
  dim SQL
  If keyword <> "" Then
    SQL = "Select * from [表] where 关键字='" & keyword &"'"
    '执行数据库查询，此处省略

    If 记录集不为空 Then
      '初始化页数，如果是第一次访问，则页数为1
      If Request("page")="" then
        page = 1
      Else
        page = cint(request("page"))
      End If

      Rs.pagesize=18 '定义每页显示数据数量
      Rs.absolutepage = page
      total=Rs.pagecount
      Rowcount = Rs.pagesize

      Do While not Rs.eof and Rowcount>0
        '输出数据
      Rs.movenext
      Rowcount=Rowcount-1
      loop

      '简单的翻页代码
      If page = 1 then
        Response.Write("<font color=#808080>第一页　上一页　</font>")
      Else
        Response.Write("<b><a href=本页.asp?page=1"          & "&keyword="& keyword &">第一页</a></b>　")
        Response.Write("<b><a href=本页.asp?page="& (page-1) & "&keyword="& keyword &">上一页</a></b>　")
      End If

      If page<>total then
        Response.Write("<b><a href=本页.asp?page="& (page+1) & "&keyword="& keyword &">下一页</a></b>　")
        Response.Write("<b><a href=本页.asp?page="& total    & "&keyword="& keyword &">最后页</a></b>　")
      Else
        Response.Write("<font color=#808080>下一页　最后页　</font>")
      End If

    Else
      Response.Write "没有符合条件的记录。"
    End If
  End If
%>

7 楼

sldd [专家分：0] 发布于 2007-04-12 08:20:00

liulei001 你好,我按照你的修改了,搜索的第一页是没有问题的,但是一翻页,还是所有记录的第二页,

翻页的链接显示如下,表示已经传递了关键字吧,可为什么还是不行了???

http://10.68.48.123/online_shebeigli/deng_index.asp?page=5&keyword=灯

我的搜索框和显示结果始终在一个页面内,这样有影响吗?
看看此图,是我的程序的一个截屏,
http://photos.album.mop.com/c03/32/32/83/857731/1175912388067.jpg
[img]http://photos.album.mop.com/c03/32/32/83/857731/1175912388067.jpg[/img]
我贴的代码虽然多了点,但是全是网上找来的翻页和显示页面的

sub showContent
function showpage(totalnumber,maxperpage,filename)

,很容易看的,麻烦你了,如果帮我解决这个问题,我愿意付出MONEY,真的.
我也在网上搜索过,包括你给我的代码,我都试过了,翻来覆去的试,我都心凉了

谢谢了!

8 楼

liulei001 [专家分：12820] 发布于 2007-04-12 12:02:00

（公司网络限制，看不到图）

检查SQL语句了吗？
即便是参数传到下一页面，如果没有带入到SQL语句中，还是没用。
在页面上输出SQL语句检查一下。

为这点小事就心凉？太不值得了。
我刚学的时候，因为一个回车键导致代码错误，我足足检查了三天。

9 楼

sldd [专家分：0] 发布于 2007-04-12 16:46:00

[quote]（公司网络限制，看不到图）

检查SQL语句了吗？
即便是参数传到下一页面，如果没有带入到SQL语句中，还是没用。
在页面上输出SQL语句检查一下。

为这点小事就心凉？太不值得了。
我刚学的时候，因为一个回车键导致代码错误，我足足检查了三天。[/quote]

可是第一页的结果是正确

10 楼

liulei001 [专家分：12820] 发布于 2007-04-12 21:02:00

[quote][quote]（公司网络限制，看不到图）

检查SQL语句了吗？
即便是参数传到下一页面，如果没有带入到SQL语句中，还是没用。
在页面上输出SQL语句检查一下。

为这点小事就心凉？太不值得了。
我刚学的时候，因为一个回车键导致代码错误，我足足检查了三天。[/quote]

可是第一页的结果是正确
[/quote]

所以才让你看看第二页的SQL语句，还有Page等参数是否正确。

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：急死了,那位大侠帮忙啊!我找出原因了,查询表单的输入框和结果在同一个页面内,翻页时输入框置空,从而

回复列表（共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：急死了,那位大侠帮忙啊!我找出原因了,查询表单的输入框和结果在同一个页面内,翻页时输入框置空,从而

回复列表 （共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共14个回复）