为什么查询后,当查询字段分页显示时,点击首页、上页、下页、末页显示的是空白，无记录？！
代码如下： kfs为当前查询字段
<%
kfs=request.form( "kfs ")
lxr=request.form( "lxr ")
ccase=request.form( "ccase ")
worker=request.form( "worker ")
spr=request.form( "spr ")
set conn=server.createobject( "adodb.connection ")
conn.open "driver={microsoft access driver (*.mdb)};dbq= "&server.mappath( "gustb.mdb ")
%>
<%
exec= "select * from beian where kfs= ' "&kfs& " ' "
set rs=server.createobject( "adodb.recordset ")
rs.CursorLocation = 3
rs.PageSize = 10
rs.CacheSize = 5
rs.open exec,conn,1,1
%>
<%
if request( "pages1 ")=0 then
pages1=1
else
pages1=cint(request( "pages1 "))
end if
if not rs.eof then
rs.AbsolutePage=pages1
end if
if not rs.eof then
recPerpage=0
%>
<html>
<head>
<title> kqsjk </title>
</head>
<body bgcolor= "#799AE1 ">
<table border= "0 " width= "80% " id= "table1 " align= "center ">
<tr>
<td colspan= "5 " bgcolor= "#00659C " height= "80 ">
<p align= "center "> <font size= "10 " face= "华文新魏 "> <font color= "#FFFFFF "> 淮安冲浪房产科技有限公司 </font> </font> </td>
</tr>
<tr>
<td bgcolor= "#00659C " width= "10% "> <a href= "kqindex.asp "> <font color= "#000000 "> 回到首页 </font> </a> </td>
<td bgcolor= "#00659C " width= "13% "> <a href= "beian.asp "> <font color= "#000000 "> 备案延时系统 </font> </a> </td>
<td bgcolor= "#00659C " colspan= "2 "> <a href= "javascript:window.close(); "> <font color= "#000000 "> 退出系统 </font> </a> </td>
</tr>
<tr>
<td colspan= "5 "> 您当前位置：备案查询 </td>
</tr>
<tr>
<td colspan= "5 " height= "230 ">
<table width= "100% " border= "1 " bgcolor= "#FFFFFF " align= "center " bordercolor= "#000000 " cellpadding= "1 " cellspacing= "0 " >
<tr bgcolor= "#00659C ">
<td> <div align= "center "> 编号 </div> </td>
<td> <div align= "center "> 开发商 </div> </td>
<td> <div align= "center "> 楼盘 </div> </td>
<td> <div align= "center "> 联系人 </div> </td>
<td> <div align= "center "> 电话 </div> </td>
<td> <div align= "center "> 原因 </div> </td>
<td> <div align= "center "> 开始时间 </div> </td>
<td> <div align= "center "> 结束时间 </div> </td>
<td> <div align= "center "> 操作员 </div> </td>
<td> <div align= "center "> 审批人 </div> </td>
<td colspan= "2 "> <div align= "center "> 操作 </div> </td>
</tr>
<%do while not rs.EOF and recPerpage <rs.pageSize%>
<tr>
<td align= "center "> <%=rs( "id ")%> </td>
<td align= "center "> <%=rs( "kfs ")%> </td>
<td align= "center "> <%=rs( "ccase ")%> </td>
<td align= "center "> <%=rs( "lxr ")%> </td>
<td align= "center "> <%=rs( "tel ")%> </td>
<td align= "center "> <%=rs( "reason ")%> </td>
<td align= "center "> <%=rs( "starttime ")%> </td>
<td align= "center "> <%=rs( "overtime ")%> </td>
<td align= "center "> <%=rs( "worker ")%> </td>
<td align= "center "> <%=rs( "spr ")%> </td>
<td align= "center "> <input type= "hidden " name= "id " id= "id " value= " <%=rs( "id ")%> "> <input type= "submit " id= "xg " value= "修改 " name= "xg "> </td>
<td align= "center "> <input type= "hidden " name= "id " id= "id " value= " <%=rs( "id ")%> "> <input type= "submit " id= "sx " value= "删除 " name= "sx "> </td>
</tr>
<%
rs.MoveNext
recPerpage=recPerPage+1
loop
end if
%>
<tr class=NMTable>
<td align=right colspan= "12 ">
<a href= "cx1.asp?kfs= <%=request( "kfs ")%> &pages1=1 "> 首页 </a>
<a href= "cx1.asp?kfs= <%=request( "kfs ")%> &pages1= <%if pages1> 1 then Response.Write pages1-1 else Response.Write 1 end if%> "> 上页 </a>
<a href= "cx1.asp?kfs= <%=request( "kfs ")%> &pages1= <%if rs.pagecount > 0 then if cint(pages1) < rs.PageCount then Response.Write cint(pages1)+1 elseResponse.Write rs.PageCountend if elseresponse. write 1 end if%> "> 下页 </a>
<a href= "cx1.asp?kfs= <%=request( "kfs ")%> &pages1= <%if rs.PageCount > 0 then response.Write rs.PageCount else response.Write 1 end if%> "> 末页 </a>
第 <%=pages1%> 页
共 <%=rs.PageCount%> 页 <%=rs.RecordCount%> 条记录
</td> </tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</p>
<p align= "center "> <input type=button onClick= "javascript:window.history.back() " value= "返回 " NAME= "back "> </p> </td>
</tr>
<tr>
<td colspan= "5 " bgcolor= "#00659C " height= "1 "> </td>
</tr>
<tr>
<td height= "50 " colspan= "5 "> </td>
</tr>
<tr>
<td colspan= "5 ">
<p align= "center "> 公司版权所有 ◎ 2007 <img src= "t2.gif " width= "30 " height= "41 " border= "0 "> </td>
</tr>
</table>
</body>
</html>
[解决办法]
<a href= "cx1.asp?kfs= <%=kfs%> &pages1=1 "> 首页 </a>
---------
[解决办法]
<%
set ddrs=server.CreateObject( "adodb.recordset ")
if request( "s ")= "b " then
staselect=trim(request.Form( "staselect "))
adminaa=trim(request.Form( "adminaa "))
ddrs.open "select * from StaNews where "&staselect& "= ' "&adminaa& " ' ",conn,1,3
else
ddrs.open "select * from StaNews order by ID desc ",conn,1,1
end if
if ddrs.eof or ddrs.bof then
response.Write( " <script> alert( '现在还没有此会员资料！ ');doccument.location.href= 'right.asp '; </script> ")
response.End()
else
i = 1
PageNo=replace(request( "PageNo "), " ' ", " ")
if not Isnumeric(PageNo) then
PageNo=1
end if
ddrs.pagesize=13
TotalPages=ddrs.pagecount
if PageNo= " " or PageNo <1 then
PageNo=1
end if
if len(PageNo)> =5 then PageNo=1
if cint(pageNo)> cint(totalpages) then
pageNo=ddrs.pagecount
end if
totalpage=ddrs.pagecount
totalrecord=ddrs.recordcount
ddrs.AbsolutePage = PageNo
RowCount=ddrs.pagesize
while not ddrs.eof and Rowcount> 0
%>
<tr id= " <%=i%> " onMouseOver= "changeInColor(this) " onMouseOut= "changeOutColor(this) ">
<td height= "25 " align= "center "> <%=ddrs( "ID ")%> </td>
<td align= "center " > <%=ddrs( "StaName ")%> </td>
<td align= "center " > <%=ddrs( "StaId ")%> </td>
<td align= "center " > <%=ddrs( "Stasex ")%> </td>
<td align= "center " > <%=ddrs( "Staage ")%> </td>
<td align= "center " > <%=ddrs( "Cardnumber ")%> </td>
<td align= "center " > <%=ddrs( "Stapho ")%> </td>
<td align= "center " > <%=ddrs( "Staadd ")%> </td>
<td align= "center " > <%=ddrs( "Fication ")%> </td>
<td align= "center " > <%=ddrs( "Department ")%> </td>
<td width= "69 " align= "center " valign= "middle "> <a href= "# " onclick= "window.open( 'update.asp?id= <%=ddrs( "id ")%> ', '员工资料修改 ', 'width=265,height=320,top=250,left=400 ') "> [修改] </a> </td>
<td width= "58 " colspan= "2 " align= "center " valign= "middle "> <a href= "delet.asp?id= <%=ddrs( "id ")%> " onclick= "if(confirm( '您确定要删除？ ')) return true;else return false; "> [删除] </a> </td>
</tr>
<%
i = i + 1
rowcount=rowcount-1
ddrs.movenext
wend
end if
ddrs.close
set ddrs=nothing
%>
<tr>
<td height= "15 " colspan= "12 " align= "center " valign= "bottom ">
<form name= "frmPage " action= "?id=2 " method= "post " onsubmit= "return chack() ">
<table width= "99% " align= "center " class= "no12 ">
<tr>
<td width= "36% " height= "23 " align= "center " class= "black ">
<%
if pageNo= " " then pageno=1
if totalPages= " " then TotalPages=1
if PageNo > 1 Then
response.write " <a href=?PageNo=1&id=2> 首页 </a> | <a href=?PageNo= " & (PageNo-1) & "&id=2> 上一页 </a> | "
end if
if TotalPages > 1 and cint(PageNo) <> cint(TotalPages) then
response.write " <a href=?PageNo= " & (PageNo+1) & "&id=2> 下一页 </a> | <a href=?PageNo= " & TotalPages & "&id=2> 末页 </a> "
end if
%> </td>
<td width= "19% " align= "left " class= "black "> 总共 <%=TotalRecord%> 条记录 </td>
<td width= "14% " align= "left "> <%Response.Write "Page: 转到第 "& PageNo & " / "& TotalPages & " "%> </td>
<td width= "4% " align= "left "> <input name= "pageNo " type= "text " id= "pageNo " size= "4 " maxlength= "5 " /> </td>
<td width= "27% " align= "left "> <input name= "button " type= "submit " id= "button " value= "GoTo " style= "border:0 solid #FFFFFF " /> </td>
</tr>
</table>
</form> </td>
</tr>
