'=最经典最简单的ASP分页程序=
set rs=server.createobject("adodb.recordset")
conn="DBQ="+server.mappath("check.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};pwd=yaday"
sql="select * from news order by id desc"
rs.open sql,conn,1,1
%>
<%
dim page
page=Clng(request("page"))
rs.pagesize=6
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page
%>
<%
for i=1 to rs.pagesize
%>
<a href=shownews.asp?id=<% = rs("id") %> target="_blank"><% = rs("bt")%></a><br/><br/>
<%
rs.movenext
if rs.eof then exit for
next
%>
<%
if page<>1 then
response.write "<a href=index.asp?page=1>首页</a> "
response.write "<a href=index.asp?page="&(page-1)&">上一页</a> "
end if
if page<>rs.pagecount then
response.write "<a href=yaday.asp?page="&(page+1)&">下一页</a> "
response.write "<a href=yaday.asp?page="&rs.pagecount&">尾页</a> "
end if
%>
第<%=page%>页/共有<%=rs.pagecount%>页
<form name="form1" method="get" action="index.asp">
<input name="page" size="2" value="<%=page%>">
<input type="submit" method="submit" value="GO">
</form>