gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\ArrangedCourse.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()
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"))

sql="SELECT * FROM VIEW_Arrange "
if COURSE_ID<>"" or TEACHER_ID<>"" then
	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
End if
call openDB()
'call Debug(sql)	
rs.open sql,conn,1,1
if rs.eof or rs.bof then
	call noInfo("没有符合条件的查询!")
end if
%>
<table width="750" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0">
<tr valign="top">
  <td width="90%">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0">
  <tr align="center" bgcolor=#99CCFF rowspan="2">
    <td colspan="7" height="28"><font size='+1' face='黑体'>排课系统</font></td>
  </tr>
  <tr bgcolor=#99CCFF align="center"> 
    <td rowspan="2" width=76 align="center">课程号</td>
    <td width=183>课程名称</td>
          <td width=88>考察方式</td>
    <td width=56>教师号</td>
          <td width=57>学分</td>
          <td width=125>上课地点</td>
	<td width=70>课程性质</td>
  </tr>
  <tr bgcolor=#99CCFF align="center"> 
          <td width=183>开课分院</td>
    <td width=88>最大选课人数</td>
          <td width=56>教师姓名</td>
          <td width=57>面向专业</td><td width=125>上课时间</td>
    <td width=70>操作</td>
  </tr>
<%
sql1="select * from BuildingInfo"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1
if rs1.bof and rs1.eof then
	call trigErr()
end if
dim m
m=1
while not rs.eof or err
	%>
	<tr align="center"> 
    <td rowspan="2" width=76 align="center"><font color="#FF0000"><%=rs("COURSE_ID")%></font></td>
    <td width=183><%=rs("COURSE_NAME")%></td>
    <td width=88><%=rs("TEST_METHOD")%></td>
    <td width=56><%=rs("TEACHER_ID")%></td>
    <td width=57><%=rs("SCORE")%> </td>      
	<td width=125><%=rs("BUILDING_NAME")%><%=rs("CLASSROOM_NAME")%></td>
    <td width=70><%=rs("SELECT_LIMIT")%></td>
  </tr>
  <tr align="center"> 
    <td width=183><%=rs("DEPT_NAME")%></td>
    <td width=88><%=rs("SELECTOR_NO_LIMIT")%></td>
    <td width=56><%=rs("TEACHER_NAME")%></td>
    <td width=57><%=rs("ORIENT_DEPT_ID")%></td>
    <td width=125><%=rs("DAY_TIME")%></td>
	      <td><a href="#" onClick="window.open('AddArrangeCourse.asp?SETTING_ID=<%=rs("SETTING_ID")%>','','scrollbars=yes,resizable=no,width=760,height=150')">
	      增加</a>
	      <a href="deleteArrange.asp?ARRANGE_ID=<%=rs("ARRANGE_ID")%>">删除</a>
	      </tr>
    <%
	m=m+1
	rs1.movefirst
	rs.movenext
wend
rs1.close
set rs1=nothing
call closeDB()
%>
</table>	
</td>
</tr>
</table>
<%
server.Execute("formQueryCourseArrange.asp")
%>
<!--#include file="../include/footer.asp"-->
</body>
</html>