：http：//bbs.bccn.net/thread-90981-1-1.html
<％
設置conn = server.createobject（adodb.connection）
conn.open（驅動程序=驅動程序Do Microsoft Access（*.mdb）; uid = admin; pwd =; dbq =＆server.mappath（1.mdb））
設置RS = Server.CreateObject（adodb.RecordSet）
sql =從學生那裡選擇 *
Rs.open SQL，Conn，3
rs.pagesize = 20
如果要求（pag）<>然後
epage = cint（請求（page））
如果epage <1，則epage = 1
如果epage> rs.pagecount，則epage = rs.pagecount
別的
epage = 1
如果結束
rs.absolutepage = epage
％>
<table border = 0 cellpadding = 0 cellpacing = 1 bgcolor =＃0000ff寬度= 80％align =中心=中心>
<tr bgcolor =＃ffffff align =中心>
<th> <％= rs（0）.name％> </th> <th> <％= rs（1）.name％> </th> <th> <％= rs（2）.name％> </th>
</tr>
<％
對於i = 0至rs.pagesize-1
如果rs.bof或rs.eof，則退出
％>
<tr bgcolor =＃ffffff align =中心>
<td> <％= rs（0）.value％> </td> <td> <％= rs（1）.value％> </td> <td> <td> <％= rs（2）. value％> </td>
</tr>
<％
Rs.Movenext（）
下一個
％>
</table>
<p align =中心>
<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 =中心>現在是第<％= epage％>頁一<％= rs.pagecount％>頁</p>
<％
conn.close（）
％>
************************************************** **** ***
表有三個字段，表明為學生其他的就不需要改了，那個pageize也可以改一下，如果記錄少的話。
如果誰有更簡單的，請貼上來，大家一起研究。