原帖及讨论 : http: //bbs.bccn.net/thread-90981-1-1.html
<%
Установить conn = server.createObject (adodb.connection)
conn.open (Driver = Driver Do Microsoft Access (*.mdb); uid = admin; pwd =; dbq = & server.mappath (1.mdb)))
Установить rs = server.createObject (adodb.recordset)
SQL = SELECT * от студента
Rs.open SQL, Conn, 3
rs. pageSize = 20
Если запрос (страница) <> then
epage = cint (запрос (page))
Если epage <1, то epage = 1
Если epage> rs.pagecount, то epage = rs.pagecount
еще
epage = 1
конец, если
rs.absolutepage = epage
%>
<таблица границы = 0 cellpadding = 0 cell -spacing = 1 bgcolor =#0000ff ширина = 80% align = center>
<tr bgcolor =#ffffff align = center>
<th> <%= rs (0) .name%> </th> <th> <%= rs (1) .name%> </th> <th> <%= rs (2) .name%> </th>
</tr>
<%
для i = 0 до rs.pageize-1
Если rs.bof или rs.eof, то выходите на
%>
<tr bgcolor =#ffffff align = center>
<td> <%= rs (0) .value%> </td> <td> <%= rs (1) .value%> </td> <td> <%= rs (2). Value%> </td>
</tr>
<%
rs.movenext ()
следующий
%>
</table>
<p align = center>
<a href => 首页 </a> & nbsp;
<a href = index.asp? Page = <%= epage-1%>> 前一页 </a> & nbsp;
<a href = index.asp? Page = <%= epage+1%>> 后一页 </a> & nbsp;
<a href = index.asp? Page = <%= rs.pagecount%>> 末页 </a>
</p>
<p align = center> 现在是第 <%= epage%> 页一页一 有 <%= rs.pagecount%> 页 </p>
<%
conn.close ()
%>
********************************************* ***
表有三个字段, 表明为 Студент 其他的就不需要改了, 那个 PageSize 也可以改一下, 如果记录少的话.
如果谁有更简单的, 请贴上来, 大家一起研究.