📄 evaedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑员工考评信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.empid.value==""){
   alert("请选择被考评员工！");
   form1.empid.focus;
   return false;
 } 
return true;
}
</Script>
</head>
<%
  Dim EmpId,EmpName,DepName,EvaDate,Subject,Score,Result,EvaEmpId,EvaEmpName,DepId
  Dim rs,rsEmp,eid
  '变量初始化
  Action = "add"
  EmpId = 0
  EmpName = "------"
  EvaDate = Date()
  Score = 0
  EvaEmpId = 0
  Dim Action
  '读取参数action
  Action = Request.QueryString("action")
  eid = Request.QueryString("eid")
  '编辑考评记录
  If Action = "edit" Then
    '设置SELECT语句，读取记录数据
    sql = "SELECT v.*,e.EmpName,d.DepName,e.DepId,e1.EmpName AS EvaEmpName" & _
      " From Evaluation v,Employees e,Departments d,Employees e1" & _
      " Where e.DepId=d.DepId AND v.EmpId=e.EmpId And v.EvaEmpId=e1.EmpId AND v.EvaId=" & eid
    Set rs = Conn.Execute(sql)
    If Not rs.EOF Then
      EmpId = rs("EmpId")
      EvaDate = rs("EvaDate")
      Subject = rs("Subject")
      Score = rs("Score")
      Result = rs("Result")
      EmpName = rs("EmpName")
      DepId = rs("DepId")
      DepName = rs("DepName")
      EvaEmpId = rs("EvaEmpId")
      EvaEmpName = rs("EvaEmpName")
    End If
  End If
%>
<%'asp块    
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="EvaSave.asp?action=<%=Action%>&eid=<%=eid%>" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="1" cellspacing="2" width="96%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF" colspan="4" background="../pic/eva.jpg" height="90">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">考评信息</font></b></p>
      </td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">选择部门</td>
      <td width="30%"><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") = DepId 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") = DepId Then %>
                  selected
            <%  End If%>
            value="<%=rs2("DepId")%>">-- <%=rs2("DepName")%></option>	
      <%
            rs2.MoveNext
          Loop
          rs2.Close
          rs1.MoveNext 
        Loop
        rs1.Close
      %>
        </select>&nbsp;</td>
      <td width="20%" bgcolor="#CEE7FF">员工姓名</td>
      <td width="30%"><select size="1" name="empid">
      <%If Action = "edit" Then
          '读取指定部门下员工信息
          sqlE = "Select * From Employees Where DepId=" & DepId
          Set rsE = Server.CreateObject("ADODB.RECORDSET")
		  rsE.Open sqlE,Conn,1,1 
		  Do While Not rsE.EOF 
		    If rsE("EmpId")=EmpId Then
		    %>
		    <option value="<%=EmpId%>" selected><%=rsE("EmpName")%></option>
		<%  Else   %>
		<option value="<%=rsE("EmpId")%>"><%=rsE("EmpName")%></option>
		<%  End If
		    rsE.MoveNext()
		  Loop
		Else  
		%>
      <option value="<%=EmpId%>" selected><%=EmpName%></option>
      <%End If%>
     </select>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">考评主题</td>
      <td><input type="text" name="evasub" size="20" value="<%=Subject%>">&nbsp;</td>
      <td bgcolor="#CEE7FF">考评分数</td>
      <td><input type="text" name="score" size="16" value="<%=Score%>">&nbsp;</td>
    </tr>
    <tr>
       <td bgcolor="#CEE7FF">考评结果</td>
      <td colspan="3"><textarea rows="2" name="result" cols="55"><%=Result%></textarea></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">考评日期</td>
      <td><input type="text" name="edate" size="16" value="<%=EvaDate%>"></td>
      <td bgcolor="#CEE7FF">考评人</td>
      <td><input type="text" name="evaempname" size="16" value="<%=EvaEmpName%>" ReadOnly>&nbsp;      
      <input type="button" value="选 择" onclick="javascript:news=window.open('empsel.asp','news','x=100,y=100,height=300,width=200,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=yes');news.focus();" name="B3"></font>
     </td>
    </tr>
 </table><input type="hidden" name="evaempid" size="16" value="<%=EvaEmpId%>">
  <p align=center><input type="submit" value=" 提 交 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>
⌨️ 快捷键说明

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