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>