为什么我写得分页程序,只可以读取第一页上的的数据呢?我初学者,很急,帮忙看看吧,再线等
程序不长,请看看吧,谢谢!
<!-- #INCLUDE FILE="conn.asp" -->
<%
response.buffer=true
Response.Expires=0
sql="select * from news where news_native='"&request("native")&"' order by news_date"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1
page=1
rs.PageSize =20
if Not IsEmpty(Request("Page")) then
Page = CInt(Request("Page"))
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
End if
%>
共有<%=rs.recordcount%>条记录 当前是第<%=page%>页 共有<%=rs.pagecount%>页
<%if page<>1 then%>
<a Href="nesw2.asp?Page=1">首页</a>
<a Href="nesw2.asp?Page=<%=Page-1 %>">上一页</a>
<%end if %>
<%if page<>rs.pagecount then %>
<a Href="nesw2.asp?Page=<%=Page+ 1%>">下一页</a>
<a Href="nesw2.asp?Page=<%=rs.PageCount%>">尾页</a>
<% end if %>
<hr>
<%
For i = 1 to rs.PageSize
if trim(rs("news_native"))=request("native") then
end if
%>
<img src="images/pot.gif" width="17" height="13"> <font
class="p9-200"><%=rs("news_date")%></font> <a
href="disp.asp?recno=<%=rs("news_no")%>" target="news"><%=rs("news_title")%></a>
<br>
<%
if rs.eOF then
Exit For
end if
rs.movenext
next
%>
<%rs.close
set rs=nothing%>