<% set conn=server.CreateObject("adodb.connection") DBPath = Server.MapPath("db1.mdb") conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath exec="select * from info" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %> <% rs.PageSize=3 pagecount=rs.PageCount page=int(request.QueryString ("page")) if page<=0 then page=1 if request.QueryString("page")="" then page=1 end if rs.AbsolutePage=page for i=1 to rs.PageSize if rs.EOF then exit for end if %> <% rs.movenext next %>

编号	姓名	地址
<%=rs("id")%>	<%=rs("name")%>	<%=rs("addr")%>

<%if page=1 and not page=pagecount then%> 第<%=page%>页 <%for i=1 to pagecount%> <%=i%> <%next%> 下页 <%elseif page=pagecount and not page=1 then%> 第<%=page%>页 <%for i=1 to pagecount%> <%=i%> <%next%> 上页 <%elseif page<1 then%>没有任何记录！ <%elseif page>pagecount then%>没有任何记录！ <%elseif page=1 and page=pagecount then%> <%else%> 第<%=page%>页 <%for i=1 to pagecount%> <%=i%> <%next%> 上页 下页 <%end if%>

<% rs.close set rs=nothing conn.close set conn=nothing %>