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>