access 数据库 分页

 

<span style="white-space:pre">	</span>Public Function getmblist()
		rs.pagesize=1
		rs.absolutepage=1
		Response.write  "　一共有：" & rs.recordcount & "　条数据" & "<br />"
		Response.write  "每页显示：" & rs.pagesize & "　条数据" & "<br />"
		Response.write  "　共显示：" & rs.pagecount & "　页数据" & "<br />"
		Response.write  "指定显示：" & rs.absolutepage & "　页数据" & "<br />"
		for n=1 to rs.pagesize
			for i=0 to rs.fields.count-1
				Response.write "<span style=""color:#ff0000"">" & rs.fields(i).name & ":" & rs.fields(i).value & "<span><br />"
			next
			Response.write "<hr />"
			rs.movenext
		next
		Response.write  request("username")
		Response.write  request("content")
	End Function