clsadm_apply.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 request("action")="apply" then
			call apply()
		else
			call duty()	
		end if
	end if
end if


sub duty()
%>

<br><br>

<FORM action="clsadm_apply.asp" method=post name="userform" onsubmit="return submitonce(this);">
<input type="hidden" name="action" value="apply">
<table cellpadding=0 cellspacing=0 border=0 width=480 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=24><b>班级管理员申请</b>
						</Th>
					</TR>
				  <TR bgcolor=<%=tablebodycolor2%>>
				    <TD height=120 valign=center class=mp><b>班级管理员必须具备以下条件：</b>
 &nbsp;&nbsp;<li>较好的上网条件，且有充足的上网时间，这样便于你管理！
</li>
	&nbsp;&nbsp;<li>必须是本班成员。</li>
		&nbsp;&nbsp;<li>必须在该班有10次以上的访问量。</li><br><br>
	<b>班级管理员具有以下职责：</b>
 &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%>>
    <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 apply()
dim founderr,errmsg
dim stitle,smsg

if sysadmin and isclassmember(0)=false then
	Errmsg=Errmsg+"<br>"+"<li>系统管理员可以直接行使班级管理员的权利。"
	call error("Information",errmsg)
	exit sub
end if


set rs=conn.execute("select admin1,admin2 from [class] where classid="&clsid)
if (not rs.eof) and	 (rs("admin1")=membername or rs("admin2")=membername) then
	Errmsg=Errmsg+"<br>"+"<li>你已经是本班管理员了。"
	founderr=true
elseif rs("admin1")<>"" and rs("admin2")<>"" then
	Errmsg=Errmsg+"<br>"+"<li>每个班级只能有两位管理员."
	errmsg=errmsg+"<br>本班的管理员是<font color=blue>"&getrealname(rs("admin1"))&"</font>和<font color=blue>"&getrealname(rs("admin2"))&"</font>。"
	founderr=true
end if

if founderr=true then
	call error("Information",errmsg)
	exit sub
end if

if clng(getcount)<10 then
	Errmsg=Errmsg+"<br>"+"<li>对不起，您的访问本班的次数还不满10！"
	call error("Information",errmsg)
	exit sub
end if

if rs("admin1")="" or isnull(rs("admin1")) then
	conn.execute("update class set admin1='"&membername&"' where classid="&clsid)
	conn.execute("update joinclass set degree=8 where userid='"&membername&"' and classid="&clsid)
elseif rs("admin1")<>"" and (rs("admin2")="" or isnull(rs("admin2"))) then
	conn.execute("update class set admin2='"&membername&"' where classid="&clsid)
	conn.execute("update joinclass set degree=7 where userid='"&membername&"' and classid="&clsid)
end if


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

stitle="申请班级管理员"
smsg="您已经成为本班的管理员，请注意行使管理员的权利和履行管理员义务。"
call success(stitle,smsg)

end sub


function getcount() 
	dim tmprs,tmpsql
	tmpsql="select visitcount from [joinclass] where userid='"&membername&"' and classid="&clsid
	set tmprs=conn.execute(tmpsql) 
	if not tmprs.eof then
	    getcount=tmprs(0) 
	else
		getcount=0 
	end if

	set tmprs=nothing 

	if isnull(getcount) then getcount= 0
end function 

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