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
%>