exitclass.asp

酷虎网同学录V1.0

<!--#INCLUDE FILE="setup.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<%locat="注销班级"

if membername="" then
  	errmsg=errmsg+"<br>"+"<li>您还没有<a href=login.asp>登录</a>。"
	call top(1,1)
	call error("Information",errmsg)
else
	joinstatus=chkjoinclass(clsid)
	if joinstatus<>"" then
		call top(1,1)
		call error("Exclamation",joinstatus)
	else
		call top(2,1)
		if request("action")="logout" then
			call logout()
		else
			call confirm()
		end if
	end if
end if


sub confirm()
dim rs

set rs=conn.execute("select classname from [class] where classid="&clsid)
%>
<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%>>
    <Th height=24><b>从班级注销!!!</b></Th></TR>
  <TR bgcolor=<%=tablebodycolor2%>>
    <TD height=120 valign=center class=p9> &nbsp;&nbsp;<li>此项操作您将退出您目前所在的班级。</li>
	&nbsp;&nbsp;<li>注销后您将不能以成员身份访问此班级。</li>
		&nbsp;&nbsp;<li>如果你是本班的管理员，注销后此身份将被取消。</li>
	&nbsp;&nbsp;<li>在尚未加入任何班级时，您仍然可以再加入本班级。</li>
	
	</TD>
   </TR>
  <TR bgcolor=<%=tablebodycolor2%>>
    <TD>&nbsp;&nbsp;&nbsp;&nbsp;您确认要从班级：<font color=blue><%=htmlencode(rs(0))%></font>注销吗？</TD>
    </TR>
  
<TR align=middle bgcolor=<%=Tablebodycolor1%>>
    <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)
bisclsadm=isclassadmin(0)

sql="select userid from [joinclass] where userid='"&membername&"' and classid="&clsid
set rs=conn.execute(sql)


'如果系统管理员没有加入班级则没有影响
if not rs.eof then

sql="update class set studcount=studcount-1 where classid="&clsid
conn.execute(sql)


sql="update [student] set classcount=classcount-1,point=point+"&pExitClass&" where userid='"&membername&"'"
conn.execute(sql)


if bisclsadm=1 then
	
	sql="update student set point=point+"&PResignAdmin&" where userid='"&membername&"'"
	conn.execute(sql)

	sql="update class set admin2='"&"' where classid="&clsid&" and admin2='"&membername&"'"
	conn.execute(sql)
elseif bisclsadm=2 then
	sql="update student set point=point+"&PResignAdmin&" where userid='"&membername&"'"
	conn.execute(sql)

	sql="update class set admin1='"&"' where classid="&clsid&" and admin1='"&membername&"'"
	conn.execute(sql)
end if


sql="delete from [joinclass] where userid='"&membername&"' and classid="&clsid
conn.execute(sql)

set rs1=conn.execute("select openlevel,studcount from class where classid="&clsid)

'如果班级内已经没有成员，而且加入班级需要审核，则需要把未通过审核同学加进来
if rs1(0)=2 and rs1(1)=0 then
conn.execute("update [student] set point=point+"&pJoinClass&" where userid"&_
		" in(select userid from [joinclass] where isauditing=true and classid="&clsid&")")
set studpass=conn.execute("select count(userid) from [joinclass] where isauditing=true and classid="&clsid)
conn.execute("update [class] set studcount=studcount+"&studpass(0)&" where classid="&clsid)
conn.execute("update [joinclass] set isauditing=false,jointime=now(),lastvisit=now() "&_
		"where isauditing=true and classid="&clsid)
end if

set rs1=nothing

'如果班级内已经没有成员，而且已经限制加入班级，则需要把班级属性修改

sql="update [class] set openlevel=0,classpwd=null where studcount=0 and openlevel>0 and classid="&clsid
conn.execute(sql)


end if


set rs=nothing

rURL="index.asp"
rtitle="注销班级成功"
rmsg="<FONT COLOR="&TableContentcolor&">本页面将在3秒后自动返回同学录首页<br><ul>"&_
		"<li><a href=index.asp><font color="&TableContentcolor&">返回同学录首页</font></a></li>"&_
		"</ul>"
redirect 3,rurl,rtitle,rmsg

end sub
%></td></tr></table>
<%call footer%>