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
set Comd.ActiveConnection=conn
Comd.CommandType=adCMdStoredProc
Comd.CommandText="DetectSelectionCollision"
set Para1=Comd.CreateParameter("ARRANGE_ID",adInteger,adParamInput,4)
set Para2=Comd.CreateParameter("STUDENT_ID",adVarChar,adParamInput,20)
Comd.Parameters.Append Para1
Comd.Parameters.Append Para2

Comd("ARRANGE_ID") = ARRANGE_ID
Comd("STUDENT_ID") = STUDENT_ID
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
%>