Question

asp 查询分页后第一页正常第二页显示无记录

<%
dim m,n
set rsc=server.createobject("adodb.recordset")
'sqlc="select * from main where time='"&keytime&"' order by id desc"
sqlc="select * from main where time='"&request.form("time")&"' order by id desc"
rsc.open sqlc,conn,3,3
if rsc.eof and rsc.bof then
response.write("<font color=red>找不到相关记录.</font>")
response.End()
end if
rsc.pagesize=8 '定义一页显示的记录数目
tatalrecord=rsc.recordcount '获取记录总数目
tatalpages=rsc.pagecount '获取分页的数目
rsc.movefirst
'----------------------------
nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数
'--------------------------
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
'--------------------------------
rsc.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
n=1
while not rsc.eof and n<=rsc.pagesize
SeachTime=request.form("time")
%>
<tr>
<td width="162" bordercolor="#0099CC" class="classlist"><%=rsc("lanmu")%></td>
<% if len(rsc("content"))>50 then%>
<td width="800" height="17" bordercolor="#0099CC">
<a href="http://<%=rsc("url")%>" target="_blank"> <%=left(rsc("content"),50)%>...</a></td>
<%else%>
<td width="800" height="17" bordercolor="#0099CC">
<a href="http://<%=rsc("url")%>" target="_blank"> <%=rsc("content")%></a></td>
<%end if%>
<td width="103" height="16" bordercolor="#0099CC" ><%=rsc("time")%></td>
<%
n=n+1
rsc.movenext '显示页面的数据
wend
%>
</tr>

<tr>

<td colspan="2" class="classlist">

<table width="110%">
<tr><td width="100%">

<a><font color=red><%=tatalrecord%></font> 条记录 </a> 共:<%=tatalpages%>页 当前为:第<font color=red><%=nowpage%></font>页
<%if nowpage>1 then%>
<a href="show_lanmulist.asp?id=<%=rst("id")%>&page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="show_lanmulist.asp?id=<%=rst("id")%>&page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="show_lanmulist.asp?page=<%=nowpage+1%>&Seachtime="&request("Seachtime")&">下一页</a>
<%else%>
下一页
<%end if%>
<%if nowpage<>1 then%>
<a href="show_lanmulist.asp?id=<%=rst("id")%>&page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="show_lanmulist.asp?id=<%=rst("id")%>&page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>

Answer 1

这里出错了,传到本页的值应该是time而不是searchtime
<%if nowpage < tatalpages then%>
<a href="show_lanmulist.asp?page=<%=nowpage+1%>&Seachtime="&request("Seachtime")&">下一页</a>
<%else%>
下一页
<%end if%>
改为:
<%if nowpage < tatalpages then%>
<a href="show_lanmulist.asp?page=<%=nowpage+1%>&time="&request("time")&">下一页</a>
<%else%>
下一页
<%end if%>

别的第一页和最后页的传值也是有问题的

Answer 2

sqlc="select * from main where time='"&request.form("time")&"' order by id desc"

翻页就不是表单提交了

sqlc="select * from main where time='"&request("time")&"' order by id desc"