www.gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\SelectCourse\detectSelectCollision.asp

    <!--#include file="../include/ADOVBS.asp"-->
<!--#include file="../include/keepHouse.asp"-->
<link href="../include/WebCourseSettlementStyle.Css" rel="stylesheet" type="text/css">
<%
dim ARRANGE_ID
ARRANGE_ID=request("ARRANGE_ID")
STUDENT_ID=Session("USER_NAME")
if ARRANGE_ID="" or Session("USER_TYPE")<>"Student" then
	trigErr
end if
'建立命令对象
set Comd=server.createobject("ADODB.Command")
'打开数据库
openDB
'指定命令对象"COMD"的活动连接为conn;
set Comd.ActiveConnection=conn
'要执行的命令(存储过程名称为"detectselectioncollision"):
Comd.CommandType=adCMdStoredProc
'建立COMD的第一个参数PARAL,并指定为输入参数,数据类型为INT,长度为4,
Comd.CommandText="DetectSelectionCollision"
'在COMD参数集合里的名称为ARRANGE_ID,用来表示课程设置编号
set Para1=Comd.CreateParameter("ARRANGE_ID",adInteger,adParamInput,4)
'建立COMD的第一个参数PARA2,并指定为输入参数,数据类型为VARCHAR,长度为2,
'在COMD参数集合里名称为STUDENT_ID,用来表示学生学号
set Para2=Comd.CreateParameter
("STUDENT_ID",adVarChar,adParamInput,20)
'添加PARA1到COMD
Comd.Parameters.Append Para1
'添加para2到comd;
Comd.Parameters.Append Para2
'对comd的相应参数赋值 
Comd("ARRANGE_ID") = ARRANGE_ID
Comd("STUDENT_ID") = STUDENT_ID
'使用相关记录集open方法执行该命令,即执行相关的存储过程,并返回相应的输出结果到该记录集
set rs1=Comd.execute
'记录集非空,青蛙产生了冲突,则给出提示:
if not rs1.eof then
	response.write "<table width=70% border=1 cellspacing=0 align='center' "
	response.write "cellpadding=0 bgcolor=#99CCFF "
	response.write "bordercolordark=#FFFFFF bordercolorlight=#0000dd> "
	response.write "<tr align='center'><td> "
	response.write "<font size='+1' face='黑体' color='red'>该操作引起冲突:</font>"
	response.write "</td></tr></table>"
	'sql="select * from VIEW_Arrange where ARRANGE_ID="&ARRANGE_ID
	'rs.open sql,conn,1,1
	%>
	<table width="70%" border="1" align="center" cellpadding="0" cellspacing="0" 
	bordercolorlight="#0000dd" bordercolordark="#FFFFFF" bgcolor="#F0F0F0">
	<tr bgcolor=#99CCFF> 
	<td width="30%"><strong>课程号</strong></td>
	<td width="30%"><strong>课程名</strong></td>
	<td width="30%"><strong>教师名</strong></td>
	</tr>
	<tr>
	<td><font color=red><%=rs1("COURSE_ID")%></font></td>
	<td><font color=red><%=rs1("COURSE_NAME")%></font></td>
	<td><font color=red><%=rs1("TEACHER_NAME")%></font></td>
	</tr>
	</table>
	<%
	closeDB
	response.Write "<A href='#' onclick=history.go(-1)><center>返回</center></a>"
	%>
	<!--#include file="../include/footer.asp"-->
	<%
else
	showmsg("选课成功!")
end if
%>