原帖及讨论 : http: //bbs.bccn.net/thread-90981-1-1.html
<%
Définir Conn = Server.CreateObject (ADODB.Connection)
Conn.open (Driver = Driver Do Microsoft Access (* .mdb); UID = admin; pwd =; dbq = & server.mappath (1.mdb))
set rs = server.createObject (adodb.recordSet)
SQL = SELECT * FROM Student
Rs.Open SQL, Conn, 3
Rs.PageSize = 20
Si demande (page) <> alors
epage = Cint (demande (page))
Si Epage <1 alors Epage = 1
Si Epage> Rs.PageCount alors Epage = Rs.PageCount
autre
Epage = 1
terminer si
Rs.Absolutepage = Epage
%>
<Table Border = 0 CELLPADDING = 0 CELLSPACINE = 1 BGCOLOR = # 0000FF Largeur = 80% Align = Center>
<tr BgColor = # ffffff align = Center>
<h> <% = rs (0) .name%> </th> <th> <% = rs (1) .name%> </th> <th> <% = rs (2) .name%> </th>
</tr>
<%
pour i = 0 à Rs.PageSize-1
Si Rs.Bof ou Rs.Eof, sortez pour
%>
<tr BgColor = # ffffff align = Center>
<td> <% = RS (0) .Value%> </td> <td> <% = RS (1) .Value%> </td> <td> <% = rs (2) .Value%> </td>
</tr>
<%
Rs.movEnext ()
suivant
%>
</ table>
<p align = centre>
<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 = centre> 现在是第 <% = epage%> 页一 页一 有 <% = Rs.pageCount%> 页 </p>
<%
Conn.close ()
%>
**************************************************** ***
表有三个字段, 表明为 Student 其他的就不需要改了, 那个 PageSize 也可以改一下, 如果记录少的话.
如果谁有更简单的, 请贴上来, 大家一起研究.