您所在位置：主题：为什么我的查询分页结果只显示第一页，第2页就出现请输入查询关键字的提示？
karas
[专家分：0] 发布于 2009-07-15 12:38:00
<%
keyword=Request("keyword")
if keyword="" or keyword="请输入查询关键字" then
%>
<script language=javascript>
alert("请输入查询关键字！")
history.back()
</script>
<body onload=javascript:window.close()></body>
<%
Response.End
end if
if request("action")="jfdw" then
findword="jfdw like '%"&keyword&"%' "
elseif request("action")="sfdw" then
findword="sfdw like '%"&keyword&"%' "
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from srtz"
rs.open rs.Source,conn,1,3
dim Arrayjfdw(10000),Arraysfdw(10000)
typeCount=rs.RecordCount
for i=1 to typeCount
Arrayjfdw(i)=rs("jfdw")
Arraysfdw(i)=rs("sfdw")
rs.MoveNext
next
rs.Close
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/home.css" rel=stylesheet type=text/css>
<LINK href="css/news.css" rel="stylesheet">
<noscript><iframe scr="*"></iframe></noscript>
</head>
<body>
<!--内容部分开始-->
<div id="Content">
<!--#include file="Top.asp"-->
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" bordercolor="#FFDFBF" width="66%" id="AutoNumber1">
<form method="post" name="myform" action="srresult.asp">
<tr>
<td width="19%" align="center"> 查询条件： </td>
<td width="26%" align="left">
<select size="1" name="action">
<option value="sfdw" >收费单位</option>
<option value="jfdw" selected="selected">缴费单位</option>
</select>  </td>
<td width="14%" height="37"> 关键字：</td>
<td width="37%" align="left"><input type="text" name="Keyword" size="25" class="input" value="请输入查询关键字" onfocus="if (value =='请输入查询关键字'){value =''}"onblur="if (value ==''){value='请输入查询关键字'}" maxlength="50" align="middle">
   
<input type="submit" value="搜 索"></td>
</tr>
</form>
</table>
<br />
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="57%" id="AutoNumber1">
<tr align="center" class="TDtop1">
<td width="35" height="27">ID号</td>
<td width="99">金额（元）</td>
<td width="96">编号</td>
</tr>
<%
dim page
dim nowpage
dim nextpage
dim backpage '----------定义请求页,当前页面,下一页,上一页变量
page=Request("page")'--------接收当前页传给变量
if page="" then '-------判断请求页是否为空，如果为空，则默认为第一页--BEGIN
page=1
else
page=Request("page")
end if '--------END
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * "& " from fmsrtz where " & findword & " "
rs.open rs.Source,conn,1,3'’---读取数据库内容信息
rs.PageSize=5'’设置每页显示条数。当前设置为5条
nowpage="fmsrresult.asp"'’-------当前页面名称，
nextpage=page+1'’--------下一页
if nextpage>rs.pagecount then'’-------如果下一页大于逻辑分页，则返回最后一页
nextpage=page
end if
backpage=page-1'’------上一页
if backpage=0 then'’---如果上一页为0，则返回上一页为第一页
backpage=1
end if
if not rs.eof then'’------如果数据库内容不为空执行
rs.AbsolutePage=page'’-----设置游标指针当前页为请求页
for i=1 to rs.PageSize'’-------循环读取输出每条信息
%>
<tr align="center">
<td width=40 align="center" ><%=rs("fmsrID")%></td>
<td width=71 align="center" ><%=rs("cfje")%> </td>
<td width=87 align="center" ><%=rs("fshm")%></td>
</tr><%
rs.movenext
if rs.EOF Then Exit For
next
else
%>
<tr align="center">
<td height="19" colspan="10"> 抱歉，没有搜索到相关的资料！</td>
<% end if %>
</tr>
<tr align="center">
<td height="19" colspan="10">
<%
if page=1 then'’--------第二种以分页前进后退方式输出分页链接，
%>
首页 上一页 <a href="<%=nowpage%>?page=<%=nextpage%>">下一页</a> <a href="<%=nowpage%>?page=<%=rs.pagecount%>">最后一页</a> <%=page %>页/<%= rs.pagecount %>页 共有<%= rs.recordcount%>条记录
<%
else
if page<>rs.pagecount then
%>
<a href="<%=nowpage%>?page=1"> 首页</a> <a href="<%=nowpage%>?page=<%=backpage%>">上一页 </a> <a href="<%=nowpage%>?page=<%=nextpage%>">下一页</a> <a href="<%=nowpage%>?page=<%=rs.pagecount%>">最后一页</a> <%=page %>页/<%= rs.pagecount %>页 共有<%= rs.recordcount%>条记录
<%
end if
end if
%>
</td>
</tr>
</table>
上面是我查询页面的详细代码，麻烦高手帮我看看，我如果把查询关键字传值到分页代码中，就不会出现“请输入查询关键字的提示",但是，点下页却不显示查询结果。。。。
keyword=Request("keyword")
if keyword="" or keyword="请输入查询关键字" then
%>
<script language=javascript>
alert("请输入查询关键字！")
history.back()
</script>
<body onload=javascript:window.close()></body>
<%
Response.End
end if
if request("action")="jfdw" then
findword="jfdw like '%"&keyword&"%' "
elseif request("action")="sfdw" then
findword="sfdw like '%"&keyword&"%' "
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from srtz"
rs.open rs.Source,conn,1,3
dim Arrayjfdw(10000),Arraysfdw(10000)
typeCount=rs.RecordCount
for i=1 to typeCount
Arrayjfdw(i)=rs("jfdw")
Arraysfdw(i)=rs("sfdw")
rs.MoveNext
next
rs.Close
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/home.css" rel=stylesheet type=text/css>
<LINK href="css/news.css" rel="stylesheet">
<noscript><iframe scr="*"></iframe></noscript>
</head>
<body>
<!--内容部分开始-->
<div id="Content">
<!--#include file="Top.asp"-->
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" bordercolor="#FFDFBF" width="66%" id="AutoNumber1">
<form method="post" name="myform" action="srresult.asp">
<tr>
<td width="19%" align="center"> 查询条件： </td>
<td width="26%" align="left">
<select size="1" name="action">
<option value="sfdw" >收费单位</option>
<option value="jfdw" selected="selected">缴费单位</option>
</select>  </td>
<td width="14%" height="37"> 关键字：</td>
<td width="37%" align="left"><input type="text" name="Keyword" size="25" class="input" value="请输入查询关键字" onfocus="if (value =='请输入查询关键字'){value =''}"onblur="if (value ==''){value='请输入查询关键字'}" maxlength="50" align="middle">
   
<input type="submit" value="搜 索"></td>
</tr>
</form>
</table>
<br />
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="57%" id="AutoNumber1">
<tr align="center" class="TDtop1">
<td width="35" height="27">ID号</td>
<td width="99">金额（元）</td>
<td width="96">编号</td>
</tr>
<%
dim page
dim nowpage
dim nextpage
dim backpage '----------定义请求页,当前页面,下一页,上一页变量
page=Request("page")'--------接收当前页传给变量
if page="" then '-------判断请求页是否为空，如果为空，则默认为第一页--BEGIN
page=1
else
page=Request("page")
end if '--------END
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * "& " from fmsrtz where " & findword & " "
rs.open rs.Source,conn,1,3'’---读取数据库内容信息
rs.PageSize=5'’设置每页显示条数。当前设置为5条
nowpage="fmsrresult.asp"'’-------当前页面名称，
nextpage=page+1'’--------下一页
if nextpage>rs.pagecount then'’-------如果下一页大于逻辑分页，则返回最后一页
nextpage=page
end if
backpage=page-1'’------上一页
if backpage=0 then'’---如果上一页为0，则返回上一页为第一页
backpage=1
end if
if not rs.eof then'’------如果数据库内容不为空执行
rs.AbsolutePage=page'’-----设置游标指针当前页为请求页
for i=1 to rs.PageSize'’-------循环读取输出每条信息
%>
<tr align="center">
<td width=40 align="center" ><%=rs("fmsrID")%></td>
<td width=71 align="center" ><%=rs("cfje")%> </td>
<td width=87 align="center" ><%=rs("fshm")%></td>
</tr><%
rs.movenext
if rs.EOF Then Exit For
next
else
%>
<tr align="center">
<td height="19" colspan="10"> 抱歉，没有搜索到相关的资料！</td>
<% end if %>
</tr>
<tr align="center">
<td height="19" colspan="10">
<%
if page=1 then'’--------第二种以分页前进后退方式输出分页链接，
%>
首页 上一页 <a href="<%=nowpage%>?page=<%=nextpage%>">下一页</a> <a href="<%=nowpage%>?page=<%=rs.pagecount%>">最后一页</a> <%=page %>页/<%= rs.pagecount %>页 共有<%= rs.recordcount%>条记录
<%
else
if page<>rs.pagecount then
%>
<a href="<%=nowpage%>?page=1"> 首页</a> <a href="<%=nowpage%>?page=<%=backpage%>">上一页 </a> <a href="<%=nowpage%>?page=<%=nextpage%>">下一页</a> <a href="<%=nowpage%>?page=<%=rs.pagecount%>">最后一页</a> <%=page %>页/<%= rs.pagecount %>页 共有<%= rs.recordcount%>条记录
<%
end if
end if
%>
</td>
</tr>
</table>
上面是我查询页面的详细代码，麻烦高手帮我看看，我如果把查询关键字传值到分页代码中，就不会出现“请输入查询关键字的提示",但是，点下页却不显示查询结果。。。。