原帖及讨论 : http: //bbs.bccn.net/thread-90981-1.html
<%
Setzen Sie conn = server.createObject (adodb.Connection)
conn.open (Treiber = Treiber do microsoft access (*.mdb); uid = admin; pwd =; dbq = & server.mappath (1.mdb))
Setzen Sie rs = server.createObject (adodb.Recordset)
SQL = SELECT * vom Schüler
Rs.open SQL, Conn, 3
Rs.PageSize = 20
Wenn Anfrage (Seite) <> dann
epage = cint (request (Seite))
Wenn epage <1 dann epage = 1
Wenn epage> rs.pagecount dann epage = rs.pagecount
anders
Epage = 1
Ende wenn
Rs.absolutepage = Epage
%>
<Table Border = 0 CellPadding = 0 Cellspacing = 1 bgcolor =#0000ff Breite = 80% Align = Center>
<tr bgcolor =#ffffff align = center>
<Th> <%= rs (0) .Name%> </th> <th> <%= Rs (1) .Name%> </th> <%= Rs (2) .Name%> </th>
</tr>
<%
für i = 0 bis rs.pageSize-1
Wenn Rs.Bof oder Rs.eof dann beenden Sie für
%>
<tr bgcolor =#ffffff align = center>
<td> <%= rs (0) .Value%> </td> <td> <%= Rs (1) .Value%> </td> <%= Rs (2) .Value%> </td>
</tr>
<%
rs.movenext ()
nächste
%>
</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 ()
%>
******************************************************** ***
表有三个字段, 表明为 Student 其他的就不需要改了, 那个 pageSize 也可以改一下, 如果记录少的话.
如果谁有更简单的, 请贴上来, 大家一起研究.