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>