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