deptmt.asp

武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.

conn.execute sqlstr

 if err.number = 0 then
     Response.Write "<center>部门修改成功!</center>"
  else
     response.Write "<center>部门修改失败!</center>"
end if
     Response.AddHeader "refresh","2;url=deptmt.asp"

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''                          部门岗位设置
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


elseif op="8" then               '部门岗位设置
e_id=request.querystring("id")
res.Open "select dept_name from dept where dept_id="&e_id,conn,3,3
%>
&nbsp;
<img src="..\images\sub01_05.jpg" align="absmiddle" ><font color="#183978" size="3" face="华文仿宋">当前部门:<%=res(0)%></font> 
<%
res.Close
res.Open "select post_id,post_name from post where post_state='启用'"

%>

&nbsp;&nbsp;<a href="#" onclick="javascript:window.history.go(-1)">返回</a>
<form name="give_post" action="deptmt.asp?op=8_1" method="post">
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script type="text/javascript">
function ajaxfuct(num,currentdept,op)
{
                               // 创建AJAX对象
  var ajaxobj=new AJAXRequest();
  
  ajaxobj.method="post";
                               // 设置回调函数，输出响应内容
  ajaxobj.callback=function(xmlobj) 
  {
    if (op=="5")
    {
      document.getElementById("sp"+num).innerHTML=xmlobj.responseText;
      if(xmlobj.responseText=="已有人员分配!")
      {
        document.getElementsByName("checkbox1")[num].checked=true;
      }
      else if(xmlobj.responseText=="")
      {
        document.getElementById("p_num"+num).innerHTML="&nbsp;"; 
      }
    }
  }
  
                                     //发送请求
  ajaxobj.send("deptmt_back.asp?hi="+document.getElementsByName("checkbox1")[num].value+"&dept="+currentdept+"&op="+op);
}


function recheck()
{
 var num;
 num=confirm("确认此设置吗？");
 if (num==true)
 {
  if (Validator.Validate(document.give_post,2)==true)
    {
      document.give_post.submit();
    }
 }
}

function in_num(i,currentdept)
{
  //var i;
  var temp;
  temp=document.getElementsByName("checkbox1");
	
	if (temp[i].checked==true)
	{
	  document.getElementById("p_num"+i).innerHTML="岗位人数：<INPUT type='text' name='text1' size='2' dataType='Number' msg='人数只允许为数字' onblur='testlen(this,2,0)'>人";
	  
	}
	else
	{
	  ajaxfuct(i,currentdept,'5');
	   
	}
   
}


</SCRIPT>

<table border='1'width='95%'align='center' cellspacing='0' cellpadding='0' class="table1">
<%
Response.write "<tr><td colspan='6' align='center' height='25'>岗&nbsp;&nbsp;位&nbsp;&nbsp;名&nbsp;&nbsp;称</td></tr>"

i=0

do while not res.EOF=true
   if (i mod 3)=0 then           '每6列输出一行,每次输入2个单元格
	   Response.write "<tr height='25'>"
   end if
%>
   <td width="19%" class="td1"><INPUT type="checkbox" name=checkbox1 value="<%=res.Fields(0).Value%>" 
<%
	dim res6
    set res6=server.CreateObject("ADODB.recordset")
    res6.Open "select post_id from deptpost where dept_id="&e_id,conn,3,3    '查询分配表中有此部门的原有岗位
    do while not res6.EOF=true
        if res6.Fields(0).Value = res.Fields(0).Value then                   '如果查出的岗位有则被选中
             Response.Write "checked"
        end if
        res6.MoveNext
    loop
    res6.Close
    set res6=nothing 
%> onclick="in_num('<%=i%>','<%=e_id%>');"><%=res.Fields(1).Value%><span id="sp<%=i%>"><span>
   </td>
   <td id="p_num<%=i%>" width="14.33%">&nbsp;    <!--动态显示岗位人数输入框-->
<%
   dim res7                                        '读出原有的部门各岗位人数
   set res7=server.CreateObject("ADODB.recordset")
   res7.Open "select post_mannumber from deptpost where post_id="&res.Fields(0).Value&" and dept_id="&e_id,conn,3,3
   if res7.BOF=true and res7.EOF=true then
       Response.Write ""
   else
%>
   岗位人数:<INPUT type='text' name='text1' size='2' value="<%=res7.Fields(0).Value%>" dataType="Number" msg="人数只允许为数字" onblur="testlen(this,3,0)">人
<%
   end if
   res7.Close
   set res7=nothing
%>
   </td>
<%
	i=i+1
    dim j
    res.MoveNext
	if (i mod 3)=0 or res.EOF=true then           '每到6列时行结尾或者记录集读到最后时,行结尾
		if res.EOF=true and (i mod 3)<>0 then     '如果记录集读到最后,最后一行列数未到4列时,则补到4列
		for j=1 to 3-(i mod 3) 
		    Response.Write "<td>&nbsp;</td>"
		    Response.Write "<td>&nbsp;</td>"
		next
	    end if
	Response.write "</tr>"
	end if
loop
%>
   <tr>
     <td colspan='6' align='center'>
       <INPUT type="button" value="提交" name=button1 onclick="recheck()" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
       <INPUT type="reset" value="重置" name=reset1 class="button">
       <INPUT type="hidden" value="<%=e_id%>" name="p_id">
     </td>
   </tr>
</table>
</form>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                         部门岗位设置处理
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


elseif op="8_1" then
dim sel_post,in_num,p_array,t_array
sel_post=Request.Form("checkbox1")
in_num=Request.Form("text1")
e_id=Request.Form("p_id")

t_array=split(sel_post,",")      '岗位id数组
p_array=split(in_num,",")        '岗位人数数组

on error resume next
    
    conn.execute "delete deptpost where dept_id="&e_id      '先删除原有记录
    
    for i=0 to ubound(t_array)
       conn.execute "insert into deptpost(dept_id,post_id,post_mannumber) values("&e_id&","&trim(t_array(i))&","&trim(p_array(i))&")"
    next
    
    if err.number=0 then
        ObjectContext.setComplete
        Response.Write "设置成功！"
    else
        ObjectContext.setAbort
        Response.Write "操作失败"
    end if
    Response.AddHeader "refresh","1;url=deptmt.asp?op=2&id="&e_id
    
    
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''                        部门调整
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''	

elseif op="3" then                         '部门调整
   e_id=Request.QueryString("id")    
   res.Open "select dept_name from dept where dept_id="&e_id,conn,3,3
   Response.Write "<li>调整部门:"&res.Fields(0).Value &"</li>"
   res.close
%>
<script type="text/javascript" src="../Include/ajaxrequest.js"></script>
<script type="text/javascript">
function ajaxfuct(num,cid,op)
{
                               // 创建AJAX对象
  var ajaxobj=new AJAXRequest();
  
  ajaxobj.method="post";
                               // 设置回调函数，输出响应内容
  ajaxobj.callback=function(xmlobj) 
  {
     if(op=="4")
     { 
        document.getElementById("dept_l").innerHTML=xmlobj.responseText;
     }
  }
  
                                 // 发送请求
  ajaxobj.send("deptmt_back.asp?hi="+num+"&cid="+cid+"&op="+op);
}

function recheck()
{
  if (document.adj_dept.level.value=="")
  {
    alert("请选择部门等级!")
    return;
  }
  
  //alert(document.getElementById("dept_l").innerHTML);
  if (document.getElementById("dept_l").innerHTML=="无相匹配的上级部门可选!")
  {
    alert("未正确选择部门等级!")
    return;
  }
  
  var num=confirm("确认调整吗?")
  if (num==true)
  {
    if (Validator.Validate(document.adj_dept,2)==true)
    {
      document.adj_dept.submit();
    }
  }
}
</SCRIPT>
   &nbsp;&nbsp;<a href="#" onclick="javascript:window.history.go(-1)">返回</a>
   <form name="adj_dept" action="deptmt.asp?op=3_1" method="post">
   <table border='1'width='50%'align='center' cellspacing='0' cellpadding='0'>
   <tr height="30">
     <td width="35%">调整后部门等级:</td>
     <td width="65%">
             <select name="level" onchange="ajaxfuct(document.adj_dept.level.value,'<%=e_id%>','4')">
      <option selected="selected" value="">请选择</option>
<%   
      res.open "select * from deptlevel",conn,3,3  '下拉框
	  while not res.eof=true
	   if res.Fields(0).Value<>"1" then
	       response.Write"<option value="&res.fields(0).value&">"&res.fields(1).value
	   end if
	   res.movenext
	  wend
	  res.Close
%>
	  </select>
     </td>
   </tr>
   <tr height="30">
     <td>调整后上级部门:</td>
     <td id="dept_l">&nbsp;</td>
   </tr>
   <tr height="30">
     <td>调整原因:</td>
     <td><INPUT type="text" name=text2 dataType="CEN" msg="输入无效字符"></td>
   </tr>
   <tr height="30">
     <td colspan="2">
       <input type="hidden" value="<%=e_id%>" name="id">
       <a href="#" onclick="recheck();"><center>确认</center></a>
     </td>
   </tr>
   </table>
   </form>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''' 部门调整处理
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


elseif op="3_1" then
    e_id=Request.Form("id")
    dlevel=Request.Form("level")
    dhigh=Request.Form("high")
    dreason1=Request.Form("text2")
    on error resume next
    conn.execute "update dept set high_dept='"&dhigh&"',dept_level="&dlevel&", dept_adjustreason='"&dreason1&"' where dept_id="&e_id
    
    if err.number = 0 then
       Response.Write "<center>调整成功!</center>"
    else
       response.Write "<center>调整失败!</center>"
    end if
    Response.AddHeader "refresh","1;url=deptmt.asp"

end if
if res.state=1 then
 res.close
end if
conn.close
set res=nothing
set conn=nothing
%>  
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
</div>
</body>
</html>