xs_kc_zx.asp

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

<!--#include file="conn.asp"-->
<!--#include file="xuanke_CheckRight.asp"-->
<%
CheckglyLogin()
%>
<%
'call CheckLoginTeacher()
id=SafeRequest("ArticleID",1)
if id="" then
%>
<script language="JavaScript">
<!--
alert("错误的参数！可能还没有选择类别！");
history.back(-1);
-->
</Script>
<%
response.End()
end if

 set RS_News =Server.CreateObject("ADODB.Recordset")
 SQL_News = "select * from 学生表_student  where ID="&id 
 RS_News.open SQL_News,Conn,1,3
	SXKC=RS_News("SXKC")
If SXKC = "" or IsNULL(SXKC) then
	Response.Write "<script language=javascript>alert(' 该学生还未选择任何课程...');history.back();</script>"
	call CloseDatabase()
	Response.End
end if
	RS_News("SXKC")="" 
	RS_News.update
Set RS_News=Nothing


 set RS_News =Server.CreateObject("ADODB.Recordset")'取消选择，则老师已被选数减1
'SQL_News = "delete from 教师表_teacher where ID="&id
 SQL_News = "select * from 教师表_teacher where ID="&SXKC
RS_News.open SQL_News,Conn,1,3

if RS_News("yxrs")>0 then
 RS_News("yxrs")= RS_News("yxrs")-1
 else
  RS_News("yxrs")="0"
 end if
RS_News.update
if RS_News.state<>0 then
	RS_News.close
End if
Set RS_News=Nothing

str="重选设置成功！"
url="xs_adminlist.asp"
MsgShow str,"1",url   
'str：提示消息内容；flag：0：返回，标志1：跳转到URL，标志2：关闭窗口 标志3：用于显示  标志4： 刷新页面 标志5： 刷新父窗口 
call CloseDatabase()
response.end

%>