📄 administrator.html

📁 基于ASP的OA办公系统有BBS
💻 HTML
字号:
<html>
<head>
<title>系统管理</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"> 



<script>
function selectAllOptions(obj) {
	var iMax = 500;
	var iMaxCounter = obj.options.length;
	if (iMaxCounter > iMax) {
		iMaxCounter = iMax;
	}
	for (var i=0; i<iMaxCounter; i++) {
		obj.options[i].selected = true;
		}
	}
function moveSelectedOptions(from,to) {
	if (arguments.length>3) {
		var regex = arguments[3];
		if (regex != "") {
			unSelectMatchingOptions(from,regex);
			}
		}
	for (var i=0; i<from.options.length; i++) {
		var o = from.options[i];
		if (o.selected) {
			to.options[to.options.length] = new Option( o.text, o.value, false, false);
			}
		}
	for (var i=(from.options.length-1); i>=0; i--) {
		var o = from.options[i];
		if (o.selected) {
			from.options[i] = null;
			}
		}
	if ((arguments.length<3) || (arguments[2]==true)) {
		sortSelect(from);
		sortSelect(to);
		}
	from.selectedIndex = -1;
	to.selectedIndex = -1;
	}
function moveAllOptions(from,to) {
	selectAllOptions(from);
	if (arguments.length==2) {
		moveSelectedOptions(from,to);
		}
	else if (arguments.length==3) {
		moveSelectedOptions(from,to,arguments[2]);
		}
	else if (arguments.length==4) {
		moveSelectedOptions(from,to,arguments[2],arguments[3]);
		}
	}
</script>
<link rel="stylesheet" href="../inc/style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" oncontextmenu="return false" scroll="no">
 <!--Net-OA1--><table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%" class="borderon">
 <tr>
 <td height="21" class="borderon">管理员管理</td>
 </tr>
 <tr>
 <td align="center" valign="top">
 <!--Net-OA2--> <form name="form1" method="post" action="administrator.asp">
 <table align="center" cellpadding="0" cellspacing="0" border="0" >
 <tr> 
 <td height="24" align="center"><font color="#FF0000">用户列表</font></td>
 <td width="15" align="center" valign="middle">&nbsp;</td>
 <td align="center"><font color="#0000FF">当前管理员</font></td>
 </tr>
 <tr> 
 <td> 
 <select name="strUsername" size="20" multiple onDblClick="moveSelectedOptions(document.form1.strUsername, document.form1.strAdminister, false, '')" style=" width: 140">
		 <!--Net-OA3--> </select>
 </td>
 <td width="40" align="center" valign="top"> <button onclick="moveAllOptions(document.form1.strUsername, document.form1.strAdminister, false, '')"><font face="webdings">8</font></button><br>
 <button onclick="moveSelectedOptions(document.form1.strUsername, document.form1.strAdminister, false, '')"><font face="webdings">4</font></button> <br>
 <button onclick="moveSelectedOptions(document.form1.strAdminister, document.form1.strUsername, false, '')"><font face="webdings">3</font></button><br>
 <button onclick="moveAllOptions(document.form1.strAdminister, document.form1.strUsername, false, '')"><font face="webdings">7</font></button> 
 </td>
 <td> 
 <select name="strAdminister" size="20" multiple onDblClick="moveSelectedOptions(document.form1.strAdminister, document.form1.strUsername, false, '')" style=" width: 140">
 <!--Net-OA4--> </select>
 </td>
 </tr>
 <tr> 
 <td height="30" align="center" colspan="3"> 
 <input type="submit" name="Submit" value="更新管理员" onclick="selectAllOptions(document.form1.strAdminister);" style="width:320;height:32;">
			 <br><span disabled>[注：管理员本身不能把自己设置为非管理员]</span>
 </td>
 </tr>
 </table>
	</form>
	<!--Net-OA5-->	</td>
 </tr>
</table>
<!--Net-OA6--></body>
</html>
⌨️ 快捷键说明

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