＋设为首页 ＋添加到收藏夹
我想要的是我查出来的记录分页，而不是全部！
呵呵.那是因为你没有把本页的查询参数带到下一面中
试一下这套吧
set rs=server.createobject("adodb.recordset")
sql="select * from message order by id desc"
rs.open sql,conn,1,1
if rs.recordcount<1 then
%>
对不起无资料
<%
else
rs.pagesize =10
page = request("page")
if page <> "" and isnumeric(page) then
page = cint(page)
if page <= 1 then page = 1
if page > rs.pagecount then page = rs.pagecount
else
page = 1
end if
rs.absolutepage = page
pagecounts=rs.pagecount
for i=1 to rs.pagesize
%>
读取数据库内容
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
<form method="post" action="allmessage.asp" name="form1">
<%first_page="第一页"
previous_page="上一页"
next_page="下一页"
end_page="尾页"
if Page = 1 then
response.write first_page&" "&previous_page&" "
end if
if Page > 1 then
response.write "<a href=javascript:form1.page.value=1;form1.submit();>"&first_page&"</a> <a href=javascript:form1.page.value=" & (page-1) & ";form1.submit();>"&previous_page&"</a> "
end if
if page < pagecounts then
response.write "<a href=javascript:form1.page.value=" & (page+1) & ";form1.submit();>"&next_page&"</a> <a href=javascript:form1.page.value=" & pagecounts& ";form1.submit();>"&end_page&"</a>"
end if
if page >= pagecounts then
response.write next_page&" "&end_page
end if%>
<input type="hidden" name="page" value="<%=page%>">
</form>
将本页的sql语句传到下一页。例如：
a.asp内容:
<%
if trim(request("sqlstr"))<>"" then
sql=request("sqlstr")
else
sql="select * from table"
end if
.............
%>
<a href=a.asp?sqlstr=<%=sql%>>下一页</a>
把下一页的页码传过来
rs.absolutepage = X X=页码的值
