请帮忙把这段代码弄个翻页``
<style type= "text/css ">
<!--
a:link{text-decoration:none;color:green};
a:visited{text-decoration:none;color:000000};
-->
</style>
<title> ===学生列表=== </title> <body bgcolor= "d9e9ee "> <div align= "center ">
<!--#include file= "../conn.asp "-->
<% set rs=server.CreateObject( "adodb.recordset ")
sql= "select*from stu order by stu_depa "
rs.open sql,conn,1,3%>
<table width= "643 " height= "101 " border= "0 " cellpadding= "0 " cellspacing= "1 " bgcolor= "#000000 ">
<tr bgcolor= "d9e9ee ">
<td height= "31 " colspan= "5 "> <div align= "center "> <strong> <font color= "#FF0000 "> 学 生 列 表 </font> </strong> </div> </td>
</tr>
<tr bgcolor= "#FFFFFF ">
<td width= "127 " height= "23 "> <div align= "center "> <font color= "#0000FF " size= "2 "> 学生证号 </font> </div> </td>
<td width= "83 "> <div align= "center "> <font color= "#0000FF " size= "2 "> 学生姓名 </font> </div> </td>
<td width= "143 "> <div align= "center "> <font color= "#0000FF " size= "2 "> 所在系别 </font> </div> </td>
<td width= "142 "> <div align= "center "> <font color= "#0000FF " size= "2 "> 所在年级 </font> </div> </td>
<td width= "142 "> <div align= "center "> <font color= "#0000FF " size= "2 "> 删除学生 </font> </div> </td>
</tr>
<% do while not rs.eof %>
<tr bgcolor= "#FFFFFF ">
<td> <div align= "center "> <font size= "2 "> <%=rs( "stu_card ")%> </font> </div> </td>
<td> <div align= "center "> <font size= "2 "> <%=rs( "stu_name ")%> </font> </div> </td>
<td> <div align= "center "> <font size= "2 "> <%=rs( "stu_depa ")%> </font> </div> </td>
<td> <div align= "center "> <font size= "2 ">