pagev2.asp

实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用

<%
	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 
	'第一次显示没有页码，默认显示第一页
	If Request("page") <> "" Then
		iPage = Cint(Request("page"))
	Else
		iPage = 1
	End If
	Response.Write("当前第" & iPage & "页")
	rs.AbsolutePage = iPage
%>
<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>
<BR>
<A HREF="#">第一页</A><A HREF="pageV2.asp?page=<%=iPage - 1%>"> 上一页</A>
<A HREF="pageV2.asp?page=<%=iPage + 1%>"> 下一页</A><A HREF="#"> 最后页</A>