来个嵌套循环即可:

set rs=server.createobject("adodb.recordset")
sql="select 课程 from table group by 课程" '以课程归类
rs.open sql,conn,1,1
do while not rs.eof
   set rst=server.createobject("adodb.recordset")
   sql="select * from table where 课程='"& rs("课程") &"' order by 学号" '以学号排序
   rst.open sql,conn,1,1
   do while not rst.eof
      response.write rst("学号")&"&nbsp;"&rs("课程")&"&nbsp;"&rs("成绩")&"<br>"
   rst.movenext
   loop
   rst.close
   set rst=nothing
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing