6-08.asp

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· ASP 代码 · 共 12 行

<%
	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, 1
	rs.PageSize = 4
	rs.AbsolutePage =2
	Response.Write(rs(1))
%>