gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\QueryCourseSetting.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"--> <% call insureID() DEPT_ID=request("DEPT_ID") if DEPT_ID="" then call trigErr() end if sql="SELECT CourseSettingInfo.*, DeptInfo.DEPT_NAME AS DEPT_NAME, "_ &"CourseInfo.COURSE_NAME AS COURSE_NAME, TeacherInfo.TEACHER_NAME AS TEACHER_NAME "_ &"FROM CourseSettingInfo INNER JOIN "_ &"DeptInfo ON CourseSettingInfo.DEPT_ID = DeptInfo.DEPT_ID INNER JOIN "_ &"CourseInfo ON CourseSettingInfo.COURSE_ID = CourseInfo.COURSE_ID INNER JOIN "_ &"TeacherInfo ON CourseSettingInfo.TEACHER_ID = TeacherInfo.TEACHER_ID "_ &"WHERE CourseSettingInfo.DEPT_ID = '"&DEPT_ID&"'" call openDB() 'call Debug(sql) rs.open sql,conn,1,1 if rs.eof or rs.bof then call noInfo("没有该院系的课程设置信息!") %> <!--#include file="../include/footer.asp"--> <% call closeDB() response.End end if %> <table width="750" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0"> <tr align="center" bgcolor="#99CCFF" height="28"> <td colspan="10"><font size="+1" face="黑体">院系课程设置查询结果</font></font></td> </tr> <tr bgcolor="#99CCFF"> <td width=76>课程号</td> <td width=76>课程名称</td> <td width=76>开课分院</td> <td width=76>教师号</td> <td width=76>教师姓名</td> <td width=76>学分</td> <td width=76>课程性质</td> <td width=76>考察方式</td> <td width=76>最大选课人数</td> <td width=76>面向专业</td> </tr> <% while not rs.eof or err %> <tr> <td width=76><%=rs("COURSE_ID")%></td> <td width=76><%=rs("COURSE_NAME")%></td> <td width=76><%=rs("DEPT_NAME")%></td> <td width=76><%=rs("TEACHER_ID")%></td> <td width=76><%=rs("TEACHER_NAME")%></td> <td width=76><%=rs("SCORE")%></td> <td width=76><%=rs("SELECT_LIMIT")%></td> <td width=76><%=rs("TEST_METHOD")%></td> <td width=76><%=rs("SELECTOR_NO_LIMIT")%></td> <td width=76><%=rs("ORIENT_DEPT_ID")%></td> </tr> <% rs.movenext wend call closeDB() %> </table> <!--#include file="../include/footer.asp"--> </body> </html>