每次换页关键字消失!如何解决??(在线)

junyimei 2003-09-03 03:21:59
每次换页时,填写关键字的文本框就变空了,这是怎么一回事?只能查到第一页的内容,我很着急,希望有人帮忙!!
...全文
32 25 打赏 收藏 转发到动态 举报
写回复
用AI写文章
25 条回复
切换为时间正序
请发表友善的回复…
发表回复
jz_bnx 2003-09-03
  • 打赏
  • 举报
回复
<%
...
Response.Write "<table width='155' cellpadding=0 cellspacing=0 border=0>"
Response.Write " <tr>"
Response.Write " <td class='title'>搜索查询</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td align='center'>"
Response.Write " <table width='120' cellpadding=2 cellspacing=0 border=0>"
Response.Write " <form name='frmSearch' action='basic_1.asp?menuid=1' method='post'>"
Response.Write " <tr>"
Response.Write " <td align='center'>"
Response.Write " <select name='selField' size=1>"
Response.Write " <option value='rymc' "
If sSearchField = "rymc" Then Response.Write "selected" End If
Response.Write " >按姓名查找</option>"
Response.Write " <option value='bmmc' "
If sSearchField = "bmmc" Then Response.Write "selected" End If
Response.Write " >按部门查找</option>"
Response.Write " <option value='ryzc' "
If sSearchField = "ryzc" Then Response.Write "selected" End If
Response.Write " >按职称查找</option>"
Response.Write " <option value='xl' "
If sSearchField = "xl" Then Response.Write "selected" End If
Response.Write " >按学历查找</option>"
Response.Write " </select><br>"
Response.Write " <input type='text' class='text' name='txtSearchWord' size=13 value='"& sSearchWord &"' onfocus='javascript:this.select()'><br>"
Response.Write " <input type='submit' name='btnSearch' class='button' value=' 搜索 '>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"

Dim iPageCount
Dim iRecordCount
Dim sSQL

Response.Write "<table cellspacing=0 cellpadding=2 width='96%'>"
Response.Write " <tr>"
Response.Write " <td class='listHeader' width='10%'>工号</td>"
Response.Write " <td class='listHeader' width='15%'>姓名</td>"
Response.Write " <td class='listHeader' width='10%'>性别</td>"
Response.Write " <td class='listHeader' width='10%'>民族</td>"
Response.Write " <td class='listHeader' width='15%'>学历</td>"
Response.Write " <td class='listHeader' width='20%'>所在部门</td>"
Response.Write " <td class='listHeader' width='20%'>职称</td>"
Response.Write " </tr>"
Response.Write "</table>"
sSQL = "Select rybh,rymc,ryxb,mz,bmbh,bmmc,ryzc,xl From zgxx Where "&sSearchField&" Like '%"& sSearchWord &"%' Order By "&sSort
Set oConn = GetDbfConnection(m_dataSource, m_dataSourceType)
Set oRS = GetDbfRecordSet(oConn,sSQL,1,1)
If Not oRS.Eof Then
oRS.PageSize = m_listRecordNumber
iPageCount = oRS.PageCount
iRecordCount = oRS.RecordCount
If iCurrentPage-iPageCount>0 Then iCurrentPage=iPageCount End If
oRS.AbsolutePage = iCurrentPage
Response.Write "<table cellspacing=1 cellpadding=5 class='tblList'>"
For i=1 To m_ListRecordNumber
If oRS.Eof Then Exit For
Response.Write " <tr>"
Response.Write " <td class='listItem' width='10%'><img src='../image/spacer.gif'><a href='#' onclick='javascript:BNX_detailWin(""basic_1_detail.asp?rybh="& oRS("rybh") &""",550,400)'>"& oRS("rybh") &"</td>"
Response.Write " <td class='listItem' width='15%'><img src='../image/spacer.gif'>"& oRS("rymc") &"</td>"
Response.Write " <td class='listItem' width='10%'><img src='../image/spacer.gif'>"& oRS("ryxb") &"</td>"
Response.Write " <td class='listItem' width='10%'><img src='../image/spacer.gif'>"& oRS("mz") &"</td>"
Response.Write " <td class='listItem' width='15%'><img src='../image/spacer.gif'>"& oRS("xl") &"</td>"
Response.Write " <td class='listItem' width='20%'><img src='../image/spacer.gif'>"& oRS("bmmc") &"</td>"
Response.Write " <td class='listItem' width='20%'><img src='../image/spacer.gif'>"& oRS("ryzc") &"</td>"
Response.Write " </tr>"
oRS.MoveNext
Next
Response.Write "</table>"
Response.Write "<table width='96%' cellspacing=0 cellpadding=2>"
Response.Write " <tr>"
Response.Write " <td class='pageBar'>"
Response.Write " 每页记录数:"& m_listRecordNumber &"  记录总数:"&iRecordCount&"  当前页次:"&iCurrentPage&"/"&iPageCount&"  "
If iPageCount = 1 Then
Response.Write " 前一页 后一页 "
Else If iCurrentPage=1 Then
Response.Write " 前一页 <a href='#' onclick=""javascript:BNX_gotoPage('basic_1.asp?menuid=1&sort="&sSort&"&page=','frmSearch',2)"">后一页</a> "
Else If iCurrentPage = iPageCount Then
Response.Write " <a href='#' onclick=""javascript:BNX_gotoPage('basic_1.asp?menuid=1&sort="&sSort&"&page=','frmSearch',"& iPageCount-1 &")"">前一页</a> 后一页 "
Else
Response.Write " <a href='#' onclick=""javascript:BNX_gotoPage('basic_1.asp?menuid=1&sort="&sSort&"&page=','frmSearch',"& iCurrentPage-1 &")"">前一页</a> <a href='#' onclick=""javascript:BNX_gotoPage('basic_1.asp?menuid=1&sort="&sSort&"&page=','frmSearch',"& iCurrentPage+1 &")"">后一页</a> "
End If
End If
Response.Write "<input type='text' class='text' name='txtGotoPage' size=4 value='"& iCurrentPage &"' onfocus='javascript:this.select()' onkeyup='value=value.replace(/[^\d]/gi,"""")'>"
Response.Write " <input type='button' name='btnSubmit' value='GO' class='button' onclick=""javascript:BNX_gotoPage('basic_1.asp?menuid=1&sort="&sSort&"&page=','frmSearch',MM_findObj('txtGotoPage').value);"">"
End IF
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
End If
closeRecordSet(oRS)
closeConnection(oConn)
...
%>

我现在就是这么用的,^-^
cfzx 2003-09-03
  • 打赏
  • 举报
回复
用url传递参数,如果不明白可以看看google的url
raoguofeng 2003-09-03
  • 打赏
  • 举报
回复
怎么样看懂了吗 要是你还是不会 这样把你的页面贴出来我给你改 呵呵 很简单的 不过你要快 因为我要下班了 了 呵呵
raoguofeng 2003-09-03
  • 打赏
  • 举报
回复
很简单 !!比如说你翻页 不就是下一页吗 你这样写

xxx.asp?pp=<%=你要传递的参数%>&pageno=<%=pageno+1%>
接收的时候你这样写
tt=Request.QueryString("pp")

你不是要在查询框里显示出来吗
这样写
<input name="tt" type="text" value="<%response.Write(tt)%>" size="50">maxlength="100">明白 ??
简单吧!
junyimei 2003-09-03
  • 打赏
  • 举报
回复
阿标,你的方法不行;wcq我已经做传递了亚
junyimei 2003-09-03
  • 打赏
  • 举报
回复
up
wcqwcqwcq 2003-09-03
  • 打赏
  • 举报
回复
换页带上参数
if page<>1 then
response.write "  <a href=XXX.asp?txtpage=1&keyword="&keyword&"><font size=2>第一页</font></a>"
response.write "  <a href=XXX?txtpage="&(page-1)&"&keyword="&keyword&"><font size=2>上一页</font></a>"
end if
if page<>rs.pagecount then
response.write "  <a href=XXX.asp?txtpage="&(page+1)&"&keyword="&keyword&"><font size=2>下一页</font></a>"
response.write "  <a href=XXX.asp?txtpage="&rs.pagecount&"&keyword="&keyword&"><font size=2>最后一页</font></a>"
end if
csdntoll 2003-09-03
  • 打赏
  • 举报
回复
Response.Write"<a href='page.asp?page="&j&"&cn="&keyword&"'>["&j&"]</a>"

注意连接符&
junyimei 2003-09-03
  • 打赏
  • 举报
回复
蓝羽,你说的意思我明白,虽然我不用js的,我试过不行
ajoy 2003-09-03
  • 打赏
  • 举报
回复
直接在分页时候把参数传递过去即可
jz_bnx 2003-09-03
  • 打赏
  • 举报
回复
<script language="javascript">
function BNX_gotoPage(u, f, p){
if(f != null){
eval("document.all."+f+".action='"+u+p+"'");
eval("document.all."+f+".submit();");
}
}
</script>
<form name="frmSearch" action="a.asp" method="post">
<input type="text" name="txtName" value="<%=Request.Form("txtName")%>">
<input type="submit" name="btnSearch" value="Search">
</form>
<%
...
<a href="a.asp?page=","frmSearch",1>首页</a>
<a href="a.asp?page=","frmSearch",nPage></a>
...
%>
BainStudio 2003-09-03
  • 打赏
  • 举报
回复
最好你在连接一个新页面的时候,都把这个数据给传递过去.否则将失效.
wxlada 2003-09-03
  • 打赏
  • 举报
回复
要在页面传递关键字,要么直接加在地址后面的关键字传递,如果用FORM的话,就用

<input type="hidden">来传递。session的话,timeout后会丢失的。
飞羽 2003-09-03
  • 打赏
  • 举报
回复
<input type="text" name="cn" value=<%=request("cn")%>>
飞羽 2003-09-03
  • 打赏
  • 举报
回复
<input type="text" name="cn" value=<%request("cn")%>>
junyimei 2003-09-03
  • 打赏
  • 举报
回复

<form method="post" action="page.asp">
请输入关键字:
<input type="text" name="cn" >
<input type="submit" value="搜索" name="submit">
</form>

<%
keyword=request.form("cn")
set mycon=server.createobject("adodb.connection")
set mycom=server.createobject("adodb.command")
set myrec=server.createobject("adodb.recordset")
mycon.open "driver={sql server};server=hxy;Password=qf;User ID=sa;Database=agricultures"
myrec.open "select cid,cname from dbo.companys1 where cname like '%"&keyword&"%'",mycon,3,3
%>
<table width="90%" border="0">
<tr>
<td>
<%
if keyword="" then
response.write(" ")
else
if myrec.bof and myrec.eof then
response.write("未搜索到相关纪录,请做其他尝试")
%>
</td>
</tr>
<%
else
nowpage=request.querystring("page")
if nowpage="" then
ispage=1
else
ispage=nowpage
end if
myrec.pagesize=3
myrec.absolutepage=ispage
totpage=myrec.pagecount
while ( i<3 and not myrec.eof)
%>
<tr><td><%=myrec.fields(1).value%></td></tr>
<%
i=i+1
myrec.movenext
wend
%>
<tr><td>
<%
response.write("总共搜索到"&totpage&"页")
for j=1 to totpage
If j = CInt(Request.QueryString("page")) Then
Response.Write"["&j&"]"
Else
Response.Write"<a href='page.asp?page="&j&"cn="&keyword&"'>["&j&"]</a>"
End If
next
myrec.close
end if
end if
%>
</td></tr>
</table>
junyimei 2003-09-03
  • 打赏
  • 举报
回复
<input name="text1" type="text" value="<%=session("a")%>">还是不行
换页,就是先把查询结果用多页显示,但现在每次换页的时候,关键字消失,所以显示不出任何结果
junyimei 2003-09-03
  • 打赏
  • 举报
回复
我这里网苏太慢,我发个留言,都上不去!!
csdntoll 2003-09-03
  • 打赏
  • 举报
回复
换页?什么意思?把你要做的动作意图说说,
tigerwen01 2003-09-03
  • 打赏
  • 举报
回复
用来session保存关键字。
加载更多回复(5)

28,390

社区成员

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

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