：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也可以改一下，如果记录少的话。
如果谁有更简单的，请贴上来，大家一起研究。