以下是引用tianyu123在2007-10-24 17:14:05的发言：
好像有问题呀！
我测试了一下，好象没有你说的这种情况，应该可以的。代码如下，表的结构参考楼主的表的设计。
<!--#include file="conn.asp"-->
<%
Set rs =Server.CreateObject("adodb.recordset")
sql ="select min(课程名) as 课程名,min(姓名) as 姓名,min(grade.学号) as 学号,max(grade.成绩) as 成绩,grade.课程号 from grade,course,student where student.学号=grade.学号 and course.课程号=grade.课程号 group by grade.课程号"
rs.open sql,conn,1,1
%>
<%
do while not rs.eof
%>
<%=rs("课程号")%>
<%=rs("姓名")%>
<%=rs("课程名")%>
<%=rs("成绩")%><br>
<%
rs.movenext
loop
%>
<%
Set rs =Server.CreateObject("adodb.recordset")
sql ="select min(课程名) as 课程名,min(姓名) as 姓名,min(grade.学号) as 学号,max(grade.成绩) as 成绩,grade.课程号 from grade,course,student where student.学号=grade.学号 and course.课程号=grade.课程号 group by grade.课程号"
rs.open sql,conn,1,1
%>
<%
do while not rs.eof
%>
<%=rs("课程号")%>
<%=rs("姓名")%>
<%=rs("课程名")%>
<%=rs("成绩")%><br>
<%
rs.movenext
loop
%>
