www.gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\SelectCourse\AnswerQuerySelectedC.asp

    <!--#include file="../include/keepHouse.asp"-->
<html>
<head>
<title><%=WebName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../include/WebCourseSettlementStyle.Css" rel="stylesheet" type="text/css">
</head>

<body>
<!--#include file="../include/header.asp"-->
<body leftmargin="0" topmargin="0" background="../images/bg.gif">
<%
dim STUDENT_ID
STUDENT_ID=Trim(request("STUDENT_ID"))
if STUDENT_ID="" then
 call trigErr()
end if
sql="SELECT STUDENT_NAME,COURSE_ID,COURSE_NAME,TEACHER_NAME,DEPT_NAME,"_
&"SCORE FROM VIEW_Select WHERE STUDENT_ID = '"&STUDENT_ID&"'" 
call openDB()
'call Debug(sql)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.Write "<br><br><div align=center>暂时还没有选课</div>"
	response.End
end if
%>
<table width="750" border="1" align="center" cellpadding="0" cellspacing="0" 
bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0">
<tr bgcolor="#99CCFF"> 
<td colspan="6" align="center" height="28">
<font size="+1" face="黑体"><%=rs("STUDENT_NAME")%>同学的课表</font></td>
</tr>
<tr align="center" bgcolor="#99CCFF"> 
<td>序号</td>
<td>课程编号</td>
<td>课程名</td>
<td>教师名</td>
<td> 开课院系</td>
<td>学分</td>
</tr>
<%
dim i
dim Totle
i=1
Totle=0
while not rs.eof
	%>
	<tr align="center"> 
    <td width="5%"><%=i%></td>
    <td width="15%"><%=rs("COURSE_ID")%></td>
    <td width="12%"><%=rs("COURSE_NAME")%></td>
    <td width="21%"><%=rs("TEACHER_NAME")%></td>
    <td width="17%"><%=rs("DEPT_NAME")%></td>
    <td width="17%"><%=rs("SCORE")%></td>
	</tr>
	<%
	i=i+1
	Totle=Totle+rs("SCORE")
	rs.movenext
wend
call closeDB()
%>
<tr bgcolor="#99CCFF"> 
<td colspan="7" align="center" height="20">该同学本学期选择了 
<font color="#FF0000"><%=i-1%></font> 课程,学分共计
<font color="#FF0000"><%=Totle%></font></td>
</tr>
</table>
<!--#include file="../include/footer.asp"-->
</body>
</html>