clsadm_resign.asp

酷虎网同学录V1.0

<!--#INCLUDE FILE="setup.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<%locat="班级管理"
act="班级管理员辞职"
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 isclassadmin(0)=0 and not sysadmin then
			errmsg=errmsg+"<br><li>对不起！您不是班级管理员。"
			call error("Exclamation",errmsg)
		else
			if request("action")="resign" then
				call resign()
			else
				call confirm()
			end if
		end if
	end if
end if


sub confirm()
%>

<br><p>

<FORM action="clsadm_resign.asp" method=post name="userform" onsubmit="return submitonce(this);">
<input type=hidden name=action value="resign">
<table cellpadding=0 cellspacing=0 border=0 width=500 bgcolor=#ccccff align=center>
        <tr>
            <td>
                <table cellpadding=6 cellspacing=1 border=0 width=100% bgcolor=<%=tablebordercolor%>>
  <TBODY>
  <TR align=middle bgcolor=<%=tabletitlecolor%>>
    <Th height=18><b>辞去班级管理员职务
</b></Th></TR>
  <TR bgcolor=<%=tablebodycolor2%>>
    <TD height=80 valign=center class=mp>&nbsp;&nbsp;<li>此项操作您将辞去本班的管理员身份。</li>
	&nbsp;&nbsp;<li>注销后您将不能以管理员身份管理此班级。</li>
	&nbsp;&nbsp;<li>在还没有其他人申请管理员职务是时，您仍然可以再成为本班的管理员。</li>

	</TD>
   </TR>
  <TR bgcolor=<%=tablebodycolor2%>>
    <TD>您是否要辞去本班的管理员身份？</TD>
    </TR>
  
<TR align=middle bgcolor=<%=Tablebodycolor1%> height=20>
    <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 resign()
dim bisclsadm
dim stitle,smsg
jstat=chkjoinclass(clsid)
if jstat<>"" then
call error("Information")
exit sub
end if

bisclsadm=isclassadmin(1)

if bisclsadm=0 then exit sub

if bisclsadm=1 then
	conn.execute("update class set admin2=null where classid="&clsid)
elseif bisclsadm=2 then
	conn.execute("update class set admin1=null where classid="&clsid)
end if

sql="update joinclass set degree=1 where classid="&clsid&" and userid='"&membername&"'"
conn.execute(sql)

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



stitle="班级管理员辞职"
smsg="您已经成功的辞去了本班的管理员身份！"
call success(stitle,smsg)

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

<%call footer%>