一个简单的分页程序
<!--#include file="conn.asp"-->
<br><br>
<p ALIGN="CENTER"><font COLOR="red" FACE="华文新魏" SIZE="+3">简单的分页程序</font></p>
<% 
sql="select * from tab1 order by id desc"
rs.Open sql, conn, 1,1

page=1           ' 设置变量PAGE=1
rs.PageSize = 3  '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
  Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
  if Page > rs.PageCount then '如果接收的页数大于总页数
     rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
     else
     rs.AbsolutePage = Page '显示当前页等于接收的页数
  end if
  else
  Page = 1 '如果page未被初始化则设为1
End if
rs.AbsolutePage=page
%>

<%
i=0
do while not rs.eof
%>
 <table width="600" border="1" ALIGN="CENTER">
 <tr>
    <td><%=rs("id")%></td>
    <td><%=rs("name")%></td>
    <td><%=rs("riqi")%></td>
 </tr>
 <tr>
    <td COLSPAN="3" align="center"><%=rs("content")%></td>
</tr>
</table>
<%
'当显示记录大于maxperpage时结束这页
i=i+1
IF i>=rs.PageSize then exit do
rs.movenext
loop
%> 

<p ALIGN="CENTER">
<%if page>1 then%>
  <a Href="page.asp?Page=<%=1%>">首页</a> <a Href="page.asp?Page=<%=page-1%>">上一页</a>
<%end if %>
<%if page<>rs.pagecount then %>
  <a Href="page.asp?Page=<%=page+1%>">下一页</a> <a Href="page.asp?Page=<% = rs.PageCount%>">尾页</a>
<% end if %>
</p>

 <%
 '最后.关闭记录集释放资源
 rs.close
 Set rs = Nothing
 conn.close
 set conn=nothing
 %>
<p>
<p ALIGN="CENTER"><INPUT onclick=javascript:window.close() type=button value=关闭窗口 name=button></p>