📄 clsadm_cls.asp

📁 功能非常完整的校友录
💻 ASP
字号:
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="char.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 leftmargin=0  bgColor="<%=bodycolor%>">
<%
call isjoinclass(1)



call main()

call endconnection()

sub main()


if not isclassadmin(0) and not issystemadmin(0) then
	errmsg=errmsg+"<br><li>对不起！您不是班级管理员。"
	call error(errmsg)
	exit sub
end if


if request("action")="update" then
	call update()
else 
	call classinfo()
end if

end sub


sub classinfo()
sql= "Select * from class where classid="&clsid
set rs=conn.execute(sql)
%>
<br><br><br><p>
<p><p>
 <script language="JavaScript">
<!--
function CheckForm()
{

	if (clsfrm.classname.value.length<4)
		{alert("对不起，请输入班级名称（不少于四个字符）！");
		 clsfrm.classname.focus();
		 return false;
		}
	 
eyear=clsfrm.enyear.value;
if(eyear==""){
		alert("入学年份不能为空!");
		clsfrm.enyear.focus();
		return false;
	}

	if(isNaN(eyear)){
		alert("入学年份应为数字!");
		clsfrm.enyear.focus();
		return false;
	}

	if(eyear.length!=4){
		alert("入学年份请用4位数字，如1977");
		clsfrm.enyear.focus();
		return false;
	}
		
		
	if(eyear>2010||eyear<1970)
	  {alert("对不起，您输入的入学年份有误！");
  clsfrm.enyear.focus();
  return false;
 }
return submitonce(clsfrm);
}


// -->
</script>
<FORM action="clsadm_cls.asp?action=update" name=clsfrm method=post onsubmit="return CheckForm()">
<table cellpadding=0 cellspacing=0 border=0 width=500 bgcolor=#ccccff align=center>
        <tr>
            <td>
                <table cellpadding=3 cellspacing=1 border=0 width=100% bgcolor=<%=Tablebordercolor%>>
  <TBODY>
  <TR align=middle bgcolor=<%=tabletitlecolor%>>
    <TD colSpan=2 height=24><b>修改班级属性</b></TD></TR>
  <TR bgcolor=<%=tablebodycolor2%>>
    <TD width=150> &nbsp;班 级 名 **</TD>
    <TD>&nbsp;<INPUT maxLength=16 size=31 name=classname  value="<%=htmlencode(rs("classname"))%>"> </TD></TR>
  <TR bgcolor=<%=tablebodycolor2%>>
    <TD width=150> &nbsp;班级密码 **</TD>
    <TD>&nbsp;<INPUT maxLength=16 size=13 name=classpwd  value="<%=htmlencode(rs("classpwd"))%>"> </TD></TR>
  <TR bgcolor=<%=tablebodycolor2%>>
    <TD width=150> &nbsp;入学年份  **</TD>
    <TD>&nbsp;<INPUT maxLength=10 size=13 name=enyear  value="<%=htmlencode(rs("enyear"))%>"> 
    </TD></TR>
	<TR bgcolor=<%=tablebodycolor2%>>
    <TD width=150> &nbsp;班级主页 </TD>
    <TD>&nbsp;<INPUT maxLength=50 size=31 name=homepage  value="<%=htmlencode(rs("homepage"))%>"> 
    </TD></TR>
	<TR bgcolor=<%=tablebodycolor2%>>
    <TD width=150> &nbsp;班级宣言 </TD>
    <TD>&nbsp;<TEXTAREA name=pronouncement rows=5 wrap=PHYSICAL cols=30 class=txt value=""><%=htmlencode(rs("pronouncement"))%></TEXTAREA> 
	</TD></TR>

		<TR bgcolor=<%=tablebodycolor2%>>
    <TD width=150> &nbsp;附加通讯录 </TD>
    <TD>&nbsp;<input type="checkbox" name="isappendshow" value="1" <%if rs("isappendshow")=true then response.write "checked"%>>显示附加通讯录
	</TD></TR>

	<TR bgcolor=<%=tablebodycolor2%>>
    <TD width=150> &nbsp;开放等级 </TD>
    <TD>&nbsp;<select name="openlevel">
<option value="0" <%if rs("openlevel")=0 then%>selected<%end if%>>完全开放 
<option value="1" <%if rs("openlevel")=1 then%>selected<%end if%>>密码验证 
<option value="2" <%if rs("openlevel")=2 then%>selected<%end if%>>班长审核 
<option value="3" <%if rs("openlevel")=3 then%>selected<%end if%>>锁定班级 
</select></TR>

	<TR align=middle bgcolor=<%=Tabletitlecolor%>>
    <TD colSpan=2><DIV align=center><INPUT value="更 新" name=Submit type=submit class=btn> <INPUT type=reset value="重 写" name=Submit2 class=btn> 
</DIV></TD></TR></TBODY></TABLE></td></tr></table>
</FORM>
</body>
</html>
<%
end sub


sub update()

Set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select * from class where classid="&clsid
rs.open StrSQL,conn,1,3

if request("isappendshow")="1" then
	isappendshow=true
else
	isappendshow=false
end if

if not rs.eof then
    rs("pronouncement")=trim(request("pronouncement"))
    rs("classname")=trim(request("classname"))
	rs("enyear")=trim(request("enyear"))
	if trim(request("homepage"))<>"" then
		rs("homepage")=trim(request("homepage"))
	end if
	rs("isappendshow")=isappendshow
	rs("openlevel")=cint(request.form("openlevel"))
	rs.Update
	stitle="修改班级属性"
	smsg="恭喜您，班级属性修改成功！"

	call success(stitle,smsg)
end if

end sub


%>

<!--#INCLUDE FILE="footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -