www.gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\detectArrangeCollision.asp
<!--#include file="../include/ADOVBS.asp"--> <!--#include file="../include/keepHouse.asp"--> <!--#include file="../include/header.asp"--> <link href="../include/WebCourseSettlementStyle.Css" rel="stylesheet" type="text/css"> <% dim SETTING_ID dim CLASSROOM_ID dim DAY_TIME dim Collision dim ARRANGE_ID SETTING_ID=request("SETTING_ID") CLASSROOM_ID=session("CLASSROOM_ID") if CLASSROOM_ID="" then showmsg("您没有选择教室。") end if session("CLASSROOM_ID")="" DAY_TIME=request("DAY")&request("TIME") if SETTING_ID="" or CLASSROOM_ID="" or DAY_TIME="" then call trigErr() end if set Comd=server.createobject("ADODB.Command") call openDB() set Comd.ActiveConnection=conn Comd.CommandType=adCMdStoredProc Comd.CommandText="DetectArrangeCollision" set Para1=Comd.CreateParameter("SETTING_ID",adInteger,adParamInput,4) set Para2=Comd.CreateParameter("CLASSROOM_ID",adInteger,adParamInput,4) set Para3=Comd.CreateParameter("DAY_TIME",adVarChar,adParamInput,20) Comd.Parameters.Append Para1 Comd.Parameters.Append Para2 Comd.Parameters.Append Para3 Comd("SETTING_ID") = SETTING_ID Comd("CLASSROOM_ID") = CLASSROOM_ID Comd("DAY_TIME") = DAY_TIME rs.open Comd if not rs.eof then response.write "<table width='764' border=1 cellspacing=0 " response.write "cellpadding=0 bgcolor=#99CCFF align=center " response.write "bordercolordark=#FFFFFF bordercolorlight=#0000dd > " response.write "<tr><td> " response.write "该操作引起冲突:" response.write "</td></tr></table>" 'sql="select * from VIEW_Arrange where ARRANGE_ID="&ARRANGE_ID 'rs.open sql,conn,1,1 %> <table width="760" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0"> <tr bgcolor=#99CCFF> <td width="39" nowrap><strong>课程号</strong></td> <td width="63" nowrap><strong>课程名</strong></td> <td width="50" nowrap><strong>教师号</strong></td> <td width="48" nowrap><strong>教师名</strong></td> <td width="52" nowrap><strong>开课部门</strong></td> <td width="52" nowrap><strong>课程性质</strong></td> <td width="26" nowrap><strong>学分</strong></td> <td width="52" nowrap><strong>考察方式</strong></td> <td width="65" nowrap><strong>面向专业号</strong></td> <td width="64" nowrap><strong>最大人数</strong></td> <td width="64" nowrap><strong>上课地点</strong></td> <td width="75" nowrap><strong>教室性质</strong></td> <td width="75" nowrap><strong>上课时间</strong></td> </tr> <tr> <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> </table> <% call closeDB() response.Write "<p align=center><a href='ArrangeCourse.asp'>返回</a></p>" else call closeDB() showmsg("添加排课成功。") end if %>