www.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>