ASP简单分页代码
<%
sql="Select * From news order by id desc"
Call OpenTable(Rs,sql,1,1)
rs.pagesize=2'每页显示的条数
page=clng(request("page"))
if isnumeric(page)=false or page<1 then page=1
Rs.Absolutepage=page
for i=1 to rs.pagesize
if Rs.recordcount=0 then title="无内容!" else title=Rs("title")
response.write("title")
rs.movenext
if rs.eof then exit for
next
%>
<%=page%&
gt;共有新闻<%=rs.recordcount%>条 每页显示&
lt;%=rs.pagesize%>条 <%=page%>/&
lt;%=rs.pagecount%>页 <a
href="?page=1">首页</a> <%if page>1
then%><a
href="?page=<%=page-1%>">上一页</a><%else%>上一页<%end
if%> <%if page<rs.pagecount then%><a
href="?page=<%=page+1%>">下一页</a><%else%>下一页<%end
if%> <a
href="?page=<%=rs.pagecount%>">尾页</a>
<% Call CloseTable(Rs) %>
上一篇:ASP常用函数集
下一篇:ASP突出显示查询字符函数
讨论数量:0