网页分页技术的代码

<%
set conn=server.CreateObject(adodb.connection)
conn.opendriver={microsoft access driver (*.mdb)};dbq=&server.MapPath(user.mdb)
set rs=server.CreateObject(adodb.recordset)
sql=select * from student
rs.open sql,conn,3,2
%>
<%
rs.pagesize=2
page=request.QueryString(page)
if page= then page=1
if isnumeric(page) then
page=int(page)
else
page=1
end if

if page<=0 then page=1
if page>=rs.pagecount then page=rs.pagecount
rs.absolutepage=page

%>

<h1 align=center>学生基本情况---览表</h1>
<hr>
<table border=1 align=center>
<tr>
<td>学号</td>
<td>姓名</td>
<td>性别</td>
<td>出生日期</td>
<td>班级</td>
</tr>
<%
for i=0 to rs.pagesize-1
if not rs.eof then
%>
<tr>
<td><%=rs(uid)%></td>
<td><%=rs(name)%></td>
<td><%=rs(sex)%></td>
<td><%=rs(birthday)%></td>
<td><%=rs(class)%></td>
</tr>
<%
end if
rs.movenext
next
%>
</table>
<form action=2.asp method=get>
<center>
<% if page>1 then %>
<a href=2.asp?page=<%=(page-1)%>>上一页</a> 
<%end if%>
<%
for j=1 to rs.pagecount
if j=page then
%>
<%=j%>
<%else%>
<a href=2.asp?page=<%=j%>><%=j%></a> 

<%
end if
next
%>
<% if page<rs.pagecount then %>
<a href=2.asp?page=<%=(page+1)%>>下一页</a> 
<%end if%>
[首次：<%=page%>/<%=rs.pagecount%>] [共<%=rs.recordcount%>条记录 <%=rs.pagesize%>条/页] 转到：
<input type=text name=page value=<%=page%> size=5>  
<input type=submit name=submit value=Enter >
</center>
</form>