原帖及讨论 : http: //bbs.bccn.net/thread-90981-1-1.html
<%
Set 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 = Pilih * dari siswa
Rs.open SQL, Conn, 3
rs.pageSize = 20
Jika permintaan (halaman) <> lalu
epage = cint (request (halaman))
Jika epage <1 maka epage = 1
Jika epage> rs.pagecount maka epage = rs.pagecount
kalau tidak
Epage = 1
akhiri jika
rs.Absolutepage = epage
%>
<Border Table = 0 CellPadding = 0 CellSpacing = 1 BGColor =#0000ff Lebar = 80% Align = Center>
<tr bgcolor =#ffffff align = center>
<th> <%= rs (0) .NAME%> </t t th> <%= rs (1) .Name%> </t t th> <%= rs (2) .Name%> </th>
</tr>
<%
untuk i = 0 hingga rs.pageSize-1
Jika rs.bof atau rs.eof maka keluar untuk
%>
<tr bgcolor =#ffffff align = center>
<td> <%= rs (0) .value%> </td> <td> <%= rs (1) .value%> </td> <td> <%= rs (2) .value%> </td>
</tr>
<%
rs.movenext ()
Berikutnya
%>
</boable>
<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 ()
%>
********************************************** ***
表有三个字段, 表明为 siswa 其他的就不需要改了, 那个 halaman 也可以改一下, 如果记录少的话.
如果谁有更简单的, 请贴上来, 大家一起研究.