<!--#include file="conn.asp"-->
<!--#include file="xuanke_CheckRight.asp"-->
<%
CheckglyLogin()
%>
<%
'call CheckLoginTeacher()
id	=SafeRequest("id",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 = "delete from 教師表_teacher where ID="&id
 SQL_News = "select * from 教師表_teacher where ID="&id
RS_News.open SQL_News,Conn,1,3

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

 set RS_News =Server.CreateObject("ADODB.Recordset")
 SQL_News = "select * from 學生表_student where SXKC ='"&id&"' "
 RS_News.open SQL_News,Conn,1,3
 if RS_News.RecordCount > 0 then
	do while not RS_News.eof

	RS_News("SXKC")="" 
	RS_News.update
	RS_News.movenext
	loop
end if
Set RS_News=Nothing
str="課程審核成功！"
url="kcgl.asp"
MsgShow str,"1",url   
'str：提示消息內容；flag：0：返回，標志1：跳轉到URL，標志2：關閉窗口 標志3：用于顯示  標志4： 刷新頁面 標志5： 刷新父窗口 
call CloseDatabase()
response.end

%>