<%
	set conn = Server.CreateObject("ADODB.Connection")
	conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
		Server.MapPath("person.mdb"))
	set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT * FROM grade"
	rs.Open sql, conn, 3
	rs.PageSize = 4
	rs.AbsolutePage = 2
%>
<TABLE border="1"><TR>
	<TD>學號</TD><TD>性別</TD><TD>姓名</TD><TD>數學</TD><TD>語文</TD><TD>英語</TD>
</TR>
<%
For I = 0 To rs.PageSize-1
	If rs.EOF OR rs.BOF Then Exit For
		Response.Write("<TR>")
		Response.Write("<TD>" & rs("學號") & "</TD>")
		Response.Write("<TD>" & rs("性別") & "</TD>")
		Response.Write("<TD>" & rs("姓名") & "</TD>")
		Response.Write("<TD>" & rs("數學") & "</TD>")
		Response.Write("<TD>" & rs("語文") & "</TD>")
		Response.Write("<TD>" & rs("英語") & "</TD>")
		Response.Write("</TR>")
		rs.movenext()
Next
	conn.close()
%>
</table>