www.gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\AddArrangeCourse.asp
<!--#include file="../include/keepHouse.asp"-->
<SCRIPT language=JavaScript>
function openurl(select_obj)
{
var url = select_obj.options[select_obj.selectedIndex].value;
if(url == '') return;
else self.open(url,"IframeArrange");
return;
}
</SCRIPT>
<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>
<%
call insureID()
if Session("USER_TYPE")<>"Admin" then
response.write "<br>"
response.write "<br>"
response.write "<div align=center><font size='+1' face='黑体' color='#FF0000'>"_
&"对不起，你不是排课者，请离开本页面！</font></div>"
response.write "<div align=center>系统将在5秒钟跳转到首页</div>"
response.write "<br>"
response.write "<br>"
response.write "<meta http-equiv='refresh' content='5; url=../'>"
response.end
end if
SETTING_ID=request("SETTING_ID")
if SETTING_ID="" then
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.SETTING_ID = "&SETTING_ID
call openDB()
'call Debug(sql)
rs.open sql,conn,1,1
if rs.eof or rs.bof then
call trigErr()
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 Counter1
Counter1=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>
<select name="select" onChange=openurl(this)>
<option>选择教学楼</option>
<%
for Counter2=1 to rs1.RecordCount
response.Write("<option value=CLIDuringA.asp?BUILDING_ID="&rs1("BUILDING_ID")&">"&rs1("BUILDING_NAME")&"</option>")
rs1.movenext
next
%>
</select></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>
<form name="form" method="post" action="detectArrangeCollision.asp">
<td width=57> <%=rs("ORIENT_DEPT_ID")%> </td>
<td width=125> <select name="DAY">
<%for Counter2=1 to 7%>
<option value="星期<%=Counter2%> ">星期<%=Counter2%></option>
<%next%>
</select>
<select name="TIME">
<option value="1-2">1-2</option>
<option value="3-4">3-4</option>
<option value="5-6">5-6</option>
<option value="5-7">5-7</option>
<option value="8-9">8-9</option>
</select></td>
<td>
<input type="hidden" name="SETTING_ID" value="<%=SETTING_ID%>"><input type="submit" value="提 交"></td>
</form>
</tr>
<%
Counter1=Counter1+1
rs1.movefirst
rs.movenext
wend
rs1.close
set rs1=nothing
call closeDB()
%>
</table>
</td>
<td width="10%" rowspan="<%=Counter1%>" align="left" valign="top">
<iframe name="IframeArrange" width="140" height="<%=50+Counter1*30%>"
frameborder="0" src="CLIDuringA.asp">嵌入框架</iframe>
</td></tr>
</table>
</body>
</html>