📄 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 + -