www.gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\QueryCourseArrange.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"-->
<%
dim COURSE_ID
dim TEACHER_ID
COURSE_ID=request("COURSE_ID")
TEACHER_ID=request("TEACHER_ID")
COURSE_ID=Trim(request("COURSE_ID"))
TEACHER_ID=Trim(request("TEACHER_ID"))
if COURSE_ID<>"" or TEACHER_ID<>"" then
sql="select * from VIEW_Arrange"
if COURSE_ID<>"" then
sql=sql+" where COURSE_ID='"&COURSE_ID&"'"
end if
if TEACHER_ID<>"" then
if COURSE_ID<>"" then
sql=sql+" and TEACHER_ID='"&TEACHER_ID&"'"
else
sql=sql+" where TEACHER_ID='"&TEACHER_ID&"'"
end if
end if
call openDB()
'call debug(sql)
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.Write "<p align='center'>对不起，编号为<font color='red'>"&COURSE_ID&"</font>的课程不存在!</p>"
else
%>
<table width="750" border="1" align="center" cellpadding="0" cellspacing="0"
bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0">
<tr bgcolor="#99CCFF" align="center">
<td colspan="13" nowrap><font size='+1' face='黑体'><strong>课 程 查 询 结 果</strong></font></td>
</tr>
<tr bgcolor="#99CCFF">
<td width="39" nowrap><strong>课程号</strong></td>
<td width="61" nowrap><strong>课程名</strong></td>
<td width="49" nowrap><strong>教师号</strong></td>
<td width="47" nowrap><strong>教师名</strong></td>
<td width="49" nowrap><strong>开课<br>
部门</strong></td>
<td width="33" nowrap><strong>课程<br>
性质</strong></td>
<td width="21" nowrap><strong>学<br>
分</strong></td>
<td width="35" nowrap><strong>考察<br>
方式</strong></td>
<td width="85" nowrap><strong>面向<br>
专业号</strong></td>
<td width="29" nowrap><strong>最大<br>
人数</strong></td>
<td width="118" nowrap><strong>上课地点</strong></td>
<td width="62" nowrap><strong>教室性质</strong></td>
<td width="78" nowrap><strong>上课时间</strong></td>
</tr>
<%
while not rs.eof
%>
<tr bgcolor="#F0F0F0">
<td nowrap><font color=red><%=rs("COURSE_ID")%></font></td>
<td nowrap><font color=red><%=rs("COURSE_NAME")%></font></td>
<td nowrap><font color=red><%=rs("TEACHER_ID")%></font></td>
<td nowrap><font color=red><%=rs("TEACHER_NAME")%></font></td>
<td nowrap><font color=red><%=rs("DEPT_NAME")%></font></td>
<td nowrap><font color=red><%=rs("SELECT_LIMIT")%></font></td>
<td nowrap><font color=red><%=rs("SCORE")%></font></td>
<td nowrap><font color=red><%=rs("TEST_METHOD")%></font></td>
<td nowrap><font color=red><%=rs("ORIENT_DEPT_ID")%></font></td>
<td nowrap><font color=red><%=rs("SELECTOR_NO_LIMIT")%></font></td>
<td nowrap><font color=red><%=rs("BUILDING_NAME")&rs("CLASSROOM_NAME")%></font></td>
<td nowrap><font color=red><%=rs("CLASSROOM_PROPERTY")%></font></td>
<td nowrap><font color=red><%=rs("DAY_TIME")%></font></td>
</tr>
<%
rs.movenext
wend
rs.close
end if
call closeDB()
%>
</table>
<br>
<%
end if
server.Execute("formQueryCourseArrange.asp")
%>
<!--#include file="../include/footer.asp"-->
</body>
</html>