?? exitclass.asp
字號:
<%response.expires=0%>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<html>
<head>
<title><%=SchoolmateName%>——從班級注銷</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<link href="txl.css" type="text/css" rel="stylesheet">
<script language="JavaScript" src="script/jsfun.js">
</script>
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0 bgcolor=<%=bodycolor%>>
<%
call isjoinclass(1)
call main()
call endconnection
sub main()
if request("action")="logout" then
call logout()
call success()
else
call confirm()
end if
set rs=nothing
end sub
sub confirm()
sql="select student.realname,class.classname from [student],[class] where "&_
"student.userid='"&membername&"' and student.classid=class.classid"
set rs=conn.execute(sql)
%>
<br><br>
<FORM action="exitclass.asp" method=post name="userform" onsubmit="return submitonce(this);">
<input type=hidden name=action value=logout>
<table cellpadding=0 cellspacing=0 border=0 width=480 bgcolor=#ccccff align=center>
<tr>
<td>
<table cellpadding=5 cellspacing=1 border=0 width=100% bgcolor=<%=tablebordercolor%>>
<TBODY>
<TR align=middle bgcolor=<%=tabletitlecolor%>>
<TD height=24><b>從班級注銷!!!</b></TD></TR>
<TR bgcolor=<%=tablebodycolor2%>>
<TD height=120 valign=center class=p9> <li>此項操作您將退出您目前所在的班級。</li>
<li>注銷后您將不能以成員身份訪問此班級。</li>
<li>如果你是本班的管理員，注銷后此身份將被取消。</li>
<li>在尚未加入任何班級時，您仍然可以再加入本班級。</li>
</TD>
</TR>
<TR bgcolor=<%=tablebodycolor2%>>
<TD><font color=blue> <%=htmlencode(rs("realname"))%></font>，您是否真的要從班級：<font color=blue><%=htmlencode(rs("classname"))%></font>注銷？</TD>
</TR>
<TR align=middle bgcolor=<%=Tabletitlecolor%>>
<TD><DIV align=center><INPUT value="我要注銷" name=Submit type=submit class=btn>
</DIV></TD></TR></TBODY></TABLE></td></tr></table>
</FORM>
<p align="center"><br>
<br>
</p>
</body>
</html>
<%end sub
sub logout()
bisystemadmin=issystemadmin(0)
if not bisystemadmin then
sql="update class set studcount=studcount-1 where classid="&clsid
conn.execute(sql)
end if
sql="update student set classid=0,point=point+"&pExitClass&" where userid='"&membername&"'"
conn.execute(sql)
if isclassadmin(0)=true then
sql="update student set isadmin=0,point=point+"&PResignAdmin&" where userid='"&membername&"'"
conn.execute(sql)
sql="update class set admin='"&"' where classid="&clsid&" and admin='"&membername&"'"
conn.execute(sql)
end if
stitle="注銷班級"
smsg="您已經成功的從目前的班級注銷。"
call success(stitle,smsg)
%>
<script language=javascript>
parent.location.href="index.asp"
</script>
<%
end sub
%>
<!--#INCLUDE FILE="footer.asp" -->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -