📄 transedit.asp
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑部门调转信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
var ndid,n;
arrDep = new Array();
</Script>
<%'功能为提取所有部门的上级部门编号放入数组arrDep
sqlDep = "Select * From Departments"
Set rsDep = Server.CreateObject("ADODB.RECORDSET")
rsDep.Open sqlDep,Conn,1,1
n = 0
Do While Not rsDep.EOF '循环组织
%>
<Script Language="JavaScript">
arrDep[<%=n%>] = new Array("<%=rsDep("UpperId")%>");
</script>
<%
n = n + 1
rsDep.movenext()
Loop
%>
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.empid.value==""){
alert("请选择要调转的员工！");
form1.empid.focus;
return false;
}
if (document.form1.newtitle.value==""){
alert("请输入员工的新职务名称！");
form1.newtitle.focus;
return false;
}
// 循环判断是否存在下级部门
var i=0;
var m;
m = <%=n%>;
ndid = form1.newdepid.options[form1.newdepid.selectedIndex].value;
for(i=0;i<m;i++){
if(arrDep[i]==ndid){
alert("此部门存在下级部门，请重新选择部门");
form1.newdepid.focus;
return false;
}
}
return true;
}
</Script>
</head>
<%
Dim EmpId,EmpName,OldDepName,OldDepId,NewDepName,NewDepId,TransDate,NewTitle,Reason
Dim rs,rsEmp
'变量初始化
EmpId = 0
EmpName = "------"
OldDepName = ""
OldDepId = 0
NewDepName = ""
NewDepId = 0
NewTitle = ""
TransDate = Date()
Reason = ""
%>
<%'读取所有员工信息
sqlEmp = "Select * From Employees"
Set rsEmp = Server.CreateObject("ADODB.RECORDSET")
rsEmp.Open sqlEmp,Conn,1,1
%>
<Script Language="JavaScript">
var temp,temp_2;//////////////javascript块
temp=0;///////////////////for循环变量初始化
Related = new Array();//////////////////////数组，用来存放员工的id，姓名，和对应的部门ID
</script>
<%
temp_2 = 0 '一个临时变量，用来存放员工的个数
Do While Not rsEmp.EOF '循环第三级组织
%>
<Script Language="JavaScript">
////////////4维分别对应的员工ID，员工姓名、部门编号、工资
Related[<%=temp_2%>] = new Array("<%=rsEmp("EmpId")%>","<%=rsEmp("EmpName")%>","<%=rsEmp("DepId")%>");
</script>
<%
temp_2 = temp_2 + 1
rsEmp.movenext()
Loop
%>
<Script Language="JavaScript">
temp = <%=temp_2%>;
function SelEmp(did){
var id = did; // 接受二级菜单的选择的item的索引值
document.form1.empid.length=0; //初始化第三级菜单的长度，下标从0开始
var i = 0;
/////////////////初始化第三级菜单的text和value属性的值，第一个参数值是text ”-------”,二是////////value 空值
document.form1.empid.options[0]=new Option('------','');
////////////循环数组，用数组的第三维数（父ID）
for (i=0;i<temp; i++){
if (Related[i][2] == id){
document.form1.empid.options[document.form1.empid.length] = new Option(Related[i][1], Related[i][0]);
}
}
}
</script>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="TransSave.asp?action=<%=Action%>&tid=<%=tId%>">
<br>
<table align="center" border="1" cellspacing="2" width="96%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="../pic/trans.jpg" height="90">
<p align="right"><b><font face="华文彩云" color="#000080" size="6">部门调转信息</font></b></p>
</td>
</tr>
<tr>
<td width="25%" bgcolor="#CEE7FF">选择原部门</td>
<td width="35%"><select size="1" name="depid" OnChange="SelEmp(form1.depid.options[form1.depid.selectedIndex].value);">
<%
' 读取部门信息
Dim rs2
sql = "SELECT * FROM Departments WHERE UpperId=0"
Set rs1 = Conn.Execute(sql)
Do While Not rs1.EOF
%>
<option
<% If rs1("DepId") = OldDepId Then %>
selected
<% End If %> value="<%=rs1("DepId")%>"><%=rs1("DepName")%></option>
<%
' 读取二级部门
sql = "SELECT * FROM Departments WHERE UpperId=" & rs1("DepId")
Set rs2 = Conn.Execute(sql)
Do While Not rs2.Eof
%>
<option
<% If rs2("DepId") = OldDepId Then %>
selected
<% End If%>
value="<%=rs2("DepId")%>">-- <%=rs2("DepName")%></option>
<%
rs2.MoveNext
Loop
rs2.Close
rs1.MoveNext
Loop
rs1.Close
%>
</select> </td>
<td width="25%" bgcolor="#CEE7FF">调转员工姓名</td>
<td width="35%"><select size="1" name="empid">
<option value="<%=EmpId%>" selected><%=EmpName%></option></select> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">选择新部门</td>
<td><select size="1" name="newdepid">
<%
' 读取部门信息
sql = "SELECT * FROM Departments WHERE UpperId=0"
Set rs1 = Conn.Execute(sql)
Do While Not rs1.EOF
%>
<option value="<%=rs1("DepId")%>"><%=rs1("DepName")%></option>
<%
' 读取二级部门
sql = "SELECT * FROM Departments WHERE UpperId=" & rs1("DepId")
Set rs2 = Conn.Execute(sql)
Do While Not rs2.Eof
%>
<option value="<%=rs2("DepId")%>">-- <%=rs2("DepName")%></option>
<%
rs2.MoveNext
Loop
rs2.Close
rs1.MoveNext
Loop
rs1.Close
%>
</select> </td>
<td bgcolor="#CEE7FF">新职务名称</td>
<td><input type="text" name="newtitle" size="20" value="<%=NewTitle%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">调转日期</td>
<td colspan="3"><input type="text" name="tdate" size="20" value="<%=TransDate%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">调转原因</td>
<td colspan="3"><textarea rows="2" name="reason" cols="50"><%=Reason%></textarea></td>
</tr>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1" onclick="if(CheckFlds()){if(confirm('确定要调转员工部门吗?')){return true;}return false;}return false;">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -