xuanke_save.asp

中学选课系统ASP+ACCESS 学生:网上选课 重选等 老师:网上在线填报课程信息、成绩录入等等。 管理员:参数设置,帐号管理,学科管理,excel导入导出（学生名单、选课情况、成绩

<!--#include file=conn.asp -->
<!--#include file=xuanke_checkright.asp -->

<%

'仅限个人研究用，请勿它用  午日工作室 保留所有版权
'午日工作室专注于中小学校园网站建设及学校教学、教务管理等有关系统平台的开发与定制，现已经成功投入使用的有：网上选课系统、ftp网络空间实时开通平台、研究性学习平台等。同时也继续接企事业单位网站建设制作、中小型软件定制、软件平台集成等业务具体可联系 午日工作室 qq 386805832  e-mail :  [e-mail] www.lhdnw.com/wrgzs
call CheckLogin()'一般用户访问权限判断函数

kcid=replace(trim(request.form("kcid")),"'","")
If kcid = "" or IsNULL(kcid) or (not isNumeric(kcid)) then
	Response.Write "<script language=javascript>alert(' 限制人数必须为数字格式！\n\n系统将自动返回前一页面...');history.back();</script>"
	Response.End
end if
	set RS=Server.CreateObject("ADODB.RecordSet")
	  infolist="select * from 教师表_teacher where id="&kcid&""
	  RS.open infolist,conn,1,3
	  if rs.eof  then
			str="该课程的信息不存在，请检查！"
			MsgShow str,"0",url   
			'str：提示消息内容；flag：0：返回，标志1：跳转到URL，标志2：关闭窗口 标志3：用于显示  标志4： 刷新页面 标志5： 刷新父窗口 
			'call CloseDatabase()
	  else
			if rs("xzrs")-rs("yxrs")>0 then

						 set RS12=Server.CreateObject("ADODB.RecordSet")
						  infolist2="select * from 学生表_student where name='"&session("XZW_xsID")&"' "
						  RS12.open infolist2,conn,1,3
						  if RS12.eof  then
								str="该学生的信息不存在，请检查！"
								MsgShow str,"0",url   
								'str：提示消息内容；flag：0：返回，标志1：跳转到URL，标志2：关闭窗口 标志3：用于显示  标志4： 刷新页面 标志5： 刷新父窗口 
								call CloseDatabase()
						  else
								if RS12("SXKC") = "" or IsNULL(RS12("SXKC")) then
									RS12("SXKC")=kcid 
									RS12.update
								else
									str="你已经选好课程了，请不要重复选择！"
									url="wdkc.asp"
									MsgShow str,"1",url   
									'str：提示消息内容；flag：0：返回，标志1：跳转到URL，标志2：关闭窗口 标志3：用于显示  标志4： 刷新页面 标志5： 刷新父窗口 
									call CloseDatabase()
									response.end
								  end if
							end if
						  RS12.close
				rs("yxrs")=rs("yxrs")+1
				rs.update
				rs.close
				set rs=nothing
				'-------------------------------
				str="祝贺您！您的选课已经成功完成！"
				url="wdkc.asp"
				MsgShow str,"1",url   
					call CloseDatabase()
					response.end

			else
					str="该老师的课已被选满，请选其他老师的课！"
					MsgShow str,"0",url   
					'str：提示消息内容；flag：0：返回，标志1：跳转到URL，标志2：关闭窗口 标志3：用于显示  标志4： 刷新页面 标志5： 刷新父窗口 
					call CloseDatabase()
					response.end
			end if
	end if
%>