addnew.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/Roles.asp"-->
<% 
Dim ObjDB
  Dim C
  Dim IntID,ObjRS,StrSql
 
 	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB
	dim AddComID
	AddComID=AddNewComID(ObjDB)
	ObjDB.close
  
  OpenDBH ObjDB
  Set ObjRS = Server.CreateObject("ADODB.Recordset") 
If Request.Form.Count > 0 Then
  
  ObjRS.open  "Select * From t_Hrms_JobApplications_DepRequirement where Company='"&Request("Company")&"' and Department='"&Request("Department")&"' and Station='"&Request("Station")&"' and Reason='"&Request("Reason")&"'",ObjDB,1,1
  if ObjRS.eof and ObjRS.bof then
		%>
		<script language=javascript>
			alert("没有此部门需求！请您确认后再输入！！");
			history.go(-1);
		</script>		
		<%
		response.End()
		ObjRS.close
	else
		ObjRS.close
		' ----------------------------------------判断开始'
		dim m
		 if trim(request("State"))=3 then
		 	m="正在招聘！"
			 if trim(request("StartTime"))="" then
				%>
				<script language=javascript>
					alert("开始时间不能为空！！");
					history.go(-1);
				</script>		
				<%
				response.End()
			 end if
			 if trim(request("EndTime"))="" then
			%>
			<script language=javascript>
				alert("结束时间不能为空！！");
				history.go(-1);
			</script>		
			<%
			response.End()
			end if
		 end if
		 if trim(request("State"))=6 then
		 	m="有意见！！意见为："&request("feedback")&"！"
			 if trim(request("feedback"))="" then
				%>
				<script language=javascript>
					alert("反馈意见不能为空！！");
					history.go(-1);
				</script>		
				<%
				response.End()
			 end if
		 end if
		 
		 ' -------------------------------------------判断结束'
		StrSQL = "Select * From t_Hrms_JobApplications_DepRequirement where Company='"&Request("Company")&"' and Department='"&Request("Department")&"' and Station='"&Request("Station")&"' and Company='"&Request("Company")&"' and Department='"&Request("Department")&"' and Station='"&Request("Station")&"'"
		ObjRS.Open StrSQL,ObjDB,1,3
		ObjRS("State")=Request("State")
		if Request("StartTime")<>"" then
		ObjRS("StartTime")=Request("StartTime")
		end if 
		if Request("EndTime")<> "" then
		ObjRS("EndTime")=Request("EndTime")
		end if
		ObjRS("PlanDes")=Request("PlanDes")
		ObjRS("feedback")=Request("feedback")
		ObjRS("PlanPerson")=session("AccountPerson")
		ObjRS("PlanSaveTime")=Now()
		ObjRS("PlanCreatorID")=AddComID
		ObjRS.Update
		IntID = ObjRS("ID")
				 
		'添加日志
		dim brs,AComName,ADepName,AJobName,AReason
		set brs=server.CreateObject("ADODB.Recordset") 
		brs.open "Select * from v_Hrms_DepRequirement where Id="&IntID,ObjDB,1,1
		AComName=brs("ComName")
		ADepName=brs("DepName")
		AJobName=brs("JobName")
		AReason=brs("Reason")
		brs.close
		set brs=nothing
		dim FirstMenu,SecondMenu,Opertion,OTime,OName,OIP,ODesc,OChange
		OIP=Request.ServerVariables("REMOTE_ADDR")
		OName= Session("AccountName") 
		OChange="公司:"&AComName&"部门:"&ADepName&"岗位:"&AJobName&"申请理由:"&AReason&"申请状态:"&Request("ReState")&"招聘状态"&m&"。"
		if OName="administrator" then
		OName="系统管理员"
		end if
		call AddLog("招聘管理","招聘计划","新增",now(),OName ,OIP,"",OChange,ObjDB)
	end if
	ObjRS.close
  	ObjDB.Close
 	Set ObjDB = Nothing
  Response.Redirect "list.asp" 
end if
Sub Main
%>
<%
'ObjDB,
Dim rs
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
%>

<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
<!--读取分类字段赋给JS数组-->
dim count
set rs=server.createobject("adodb.recordset")
rs.open "select distinct Company,Department,Station,ComName,DepName,JobName,ReasonID,Reason,Number,InTime,ReFinalTime,Des from v_Hrms_DepRequirement where (State=1 or State=2)",ObjDB,1,1
count = 0
do while not rs.eof 
%>
subcat[<%=count%>] = new Array("<%= trim(rs("DepName"))%>","<%= rs("Company")%>","<%= rs("Department")%>","<%= rs("JobName")%>","<%= rs("Station")%>","<%= rs("Reason")%>","<%= rs("ReasonID")%>","<%= rs("Number")%>","<%= rs("InTime")%>","<%= rs("ReFinalTime")%>","<%= rs("Des")%>");
<%
  count = count + 1
  rs.movenext
loop
rs.close
%>
		
onecount=<%=count%>;

function changelocation(locationid)
  	{
		document.myform.Department.length = 0; 
		document.myform.Station.length = 0;
		document.myform.Reason.length = 0;
		document.myform.Numbers.value = "";
		document.myform.InTime.value = ""; 
		document.myform.AppTime.value = ""; 
		document.myform.Des.value = "";
		
	
		var locationid=locationid;
		var i,j,l,k,m;
		var Depfid,Stafid;
		var DepID,StaID,ReaID;
		
		DepID = "";
		StaID = "";
		ReaID = "";
	
		k=0;
		m=0;
		for (i=0;i < onecount; i++)
	   {
			  if (subcat[i][1] == locationid)
			 { 
				 if (DepID.indexOf(subcat[i][2]) == -1)
				{
					document.myform.Department.options[document.myform.Department.length] = new Option(subcat[i][0], subcat[i][2]);
					k=k+1;
					if (k == 1) 
					{
						Depfid=subcat[i][2];
					}
				}
				DepID = DepID + "," + subcat[i][2];
			 }        
	   }
			
		for (j=0;j < onecount; j++)
		{
			if ((subcat[j][1] == locationid) && (Depfid == subcat[j][2]))
			{
				if (StaID.indexOf(subcat[j][4]) == -1)
				{
					document.myform.Station.options[document.myform.Station.length] = new Option(subcat[j][3], subcat[j][4]);
					m=m+1;
					if (m == 1)
					{
						Stafid=subcat[j][4];
					}	
				}
			StaID = StaID + "," + subcat[j][4];
			}
		}
		for (l=0;l < onecount; l++)
		{
			if ((subcat[l][1] == locationid) && (Depfid == subcat[l][2]) && (Stafid == subcat[l][4]))
			{
				if (ReaID.indexOf(subcat[l][6]) == -1)
				{
					document.myform.Reason.options[document.myform.Reason.length] = new Option(subcat[l][5], subcat[l][6]);
					document.myform.Numbers.value=subcat[l][7];
					document.myform.InTime.value=subcat[l][8];
					document.myform.AppTime.value=subcat[l][9];
					document.myform.Des.value=subcat[l][10];	
				}
			ReaID = ReaID + "," + subcat[l][6];
			}
		}
		
    }


function changelocationDep(locationid)
  	{
		var locationid=locationid;
		document.myform.Station.length = 0; 
		document.myform.Reason.length = 0;
		document.myform.Numbers.value = "";
		document.myform.InTime.value = "";
		document.myform.AppTime.value = "";
		document.myform.Des.value = "";
		StaID = "";
		ReaID = "";
		var i,j,k;
		var StaID,ReaID; 
		var Subid;
		k=0;
		for (i=0;i < onecount; i++)
		{
			if (subcat[i][2] == locationid)
			{ 
				if (StaID.indexOf(subcat[i][4]) == -1)
				{
					document.myform.Station.options[document.myform.Station.length] = new Option(subcat[i][3], subcat[i][4]);
					k=k+1;
					if (k == 1) 
					{
						Subid=subcat[i][4];
					}
				 }
				StaID = StaID + "," + subcat[i][4];
			}        
		}
		
		for (j=0;j < onecount; j++)
		{
			if ((subcat[j][2] == locationid) && (Subid == subcat[j][4]))
			{
				if (ReaID.indexOf(subcat[j][6]) == -1)
				{
					document.myform.Reason.options[document.myform.Reason.length] = new Option(subcat[j][5], subcat[j][6]);
					document.myform.Numbers.value=subcat[j][7];
					document.myform.InTime.value=subcat[j][8];
					document.myform.AppTime.value=subcat[j][9]; 
					document.myform.Des.value=subcat[j][10];
				}
				ReaID = ReaID + "," + subcat[j][6];
			}
		}
    }

function changelocationSta(locationid)
    {
	document.myform.Reason.length = 0 ;
    var locationid=locationid;
    var i;
	var ReaID;
	
	ReaID = "";
	
	document.myform.Numbers.value = "";
	document.myform.InTime.value = "";
	document.myform.AppTime.value = "";
	document.myform.Des.value = "";
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][4] == locationid)
            { 
				if (ReaID.indexOf(subcat[i][6]) == -1)
				{
					document.myform.Reason.options[document.myform.Reason.length] = new Option(subcat[i][5], subcat[i][6]);
					document.myform.Numbers.value=subcat[i][7];
					document.myform.InTime.value=subcat[i][8];
					document.myform.AppTime.value=subcat[i][9];
					document.myform.Des.value=subcat[i][10];
				}
				ReaID = ReaID + "," + subcat[i][6];    
			 }  
        }
    }  
	
function changelocationRea(locationid)
    {
		var locationid=locationid;
   		var i;
		for (i=0;i < onecount; i++)
        {
			if (subcat[i][6] == locationid)
            {
				document.myform.Numbers.value=subcat[i][7];
				document.myform.InTime.value=subcat[i][8];
				document.myform.AppTime.value=subcat[i][9];
				document.myform.Des.value=subcat[i][10];
			}
		}
    }      
</script> 

<form action="" method="post" name=myform>
  <table width="100%" cellpadding=3 cellspacing=1 class=Ltable>
    <tr class=LHtr> 
      <td colspan="4">新增招聘计划 </td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">公司</td>
      <td width="30%"> 
        <%
	  StrSQL = "Select distinct Company,ComName From v_Hrms_DepRequirement where (State=1 or State=2)"
	  ObjRS.open StrSQL,ObjDB,1,1
	  if ObjRS.eof and ObjRS.bof then
	  %>
	  <script language="JavaScript">
	  	alert("现在还没有新的部门需求信息！");
		location.href="list.asp";
	  </script>
	  <%
	  	response.End()
	  else
	 %>
        <select name="Company"  onChange="changelocation(document.myform.Company.options[document.myform.Company.selectedIndex].value)">
          <option selected value="<%=ObjRS("Company")%>"><%=trim(ObjRS("ComName"))%></option>
          <%      
		 dim selCom
		 selCom=ObjRS("Company")
		 ObjRS.movenext
		 do while not ObjRS.eof
		%>
          <option value="<%=ObjRS("Company")%>"><%=trim(ObjRS("ComName"))%></option>
          <%
		 ObjRS.movenext
		 loop
		end if
		ObjRS.close
		%>
        </select></td>
      <td width="15%">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr class=Ltr> 
      <td>部门</td>
      <td width="30%"> <select name="Department" onChange="changelocationDep(document.myform.Department.options[document.myform.Department.selectedIndex].value)">
          <%
	  StrSQL = "Select distinct Department,DepName From v_Hrms_DepRequirement where (State=1 or State=2) and Company="&SelCom
	  ObjRS.Open StrSQL,ObjDB,1,1
	  if not (ObjRS.eof and ObjRS.bof) then
	  %>
          <option value="<%=ObjRS("Department")%>" selected><%=ObjRS("DepName")%></option>
          <%
		dim selDep
		selDep=ObjRS("Department") 
		ObjRS.movenext
		do while not ObjRS.eof
		%>
          <option value="<%=ObjRS("Department")%>"><%=ObjRS("DepName")%></option>
          <%
		ObjRS.movenext
		loop
		end if
		ObjRS.close
		%>
        </select> </td>
      <td width="15%">招聘开始时间</td>
      <td><input name="StartTime" type="text" readonly class=Input onClick="InputDate(this)"></td>
    </tr>
    <tr class=Ltr> 
      <td>岗位</td>
      <td width="30%"> <select name="Station" onChange="changelocationSta(document.myform.Station.options[document.myform.Station.selectedIndex].value)">
          <%
		ObjRS.open "select distinct Station,JobName from v_Hrms_DepRequirement where  (State=1 or State=2) and Company='"&selCom&"' and Department="&selDep,ObjDB,1,1
		if not(ObjRS.eof and ObjRS.bof) then
		%>
          <option value="<%=ObjRS("Station")%>" selected><%=ObjRS("JobName")%></option>
          <%
		dim selSta
		selSta=ObjRS("Station") 
		ObjRS.movenext
		do while not ObjRS.eof
		%>
          <option value="<%=ObjRS("Station")%>"><%=ObjRS("JobName")%></option>
          <%
		ObjRS.movenext
		loop
		end if
		ObjRS.close
		%>
        </select></td>
      <td width="15%">招聘结束时间</td>
      <td><input name="EndTime" type="text" readonly class=Input onClick="InputDate(this)"></td>
    </tr>
    <tr class=Ltr> 
      <td>申请理由</td>
      <td width="30%"> <select name="Reason" onChange="changelocationRea(document.myform.Reason.options[document.myform.Reason.selectedIndex].value)">
          <%
		ObjRS.open "select distinct Reason,ReasonID from v_Hrms_DepRequirement where  (State=1 or State=2) and Company='"&selCom&"' and Department='"&selDep&"' and Station="&selSta,ObjDB,1,1
		if not(ObjRS.eof and ObjRS.bof) then
		%>
          <option value="<%=ObjRS("ReasonID")%>" selected><%=ObjRS("Reason")%></option>
          <% 
		dim selRea
		selRea=ObjRS("ReasonID")
		ObjRS.movenext
		do while not ObjRS.eof
		%>
          <option value="<%=ObjRS("ReasonID")%>"><%=ObjRS("Reason")%></option>
          <%
		ObjRS.movenext
		loop
		end if
		ObjRS.close
		%>
        </select></td>
	<%
	ObjRS.open "select distinct InTime,Number,State,ReFinalTime,Des from v_Hrms_DepRequirement where  (State=1 or State=2) and Company='"&selCom&"' and Department='"&selDep&"' and Station='"&selSta&"' and ReasonID='"&selRea&"'",ObjDB,1,1
	if not(ObjRS.eof and ObjRS.bof) then	
	%>
      <td width="15%">希望到岗日期</td>
      <td><input name="InTime" type="text" class=Input readonly value="<%=ObjRS("InTime")%>"></td>
    </tr>
    
    <tr class=Ltr> 
      <td>人数</td>
      <td width="30%"> 
        <input name="Numbers" type="text" readonly class=Input value="<%=ObjRS("Number")%>" size="5">
        人 </td>
      <td width="15%">需求状态</td>
      <td> 
        <%
	  dim States
	  if ObjRS("State")=1 then 
	  	States="提供招聘"
	  end if
	  if ObjRS("State")=2 then 
	  	States="重新提供招聘需求"
	  end if
	  %>
        <input name="ReState" type="text" class=Input readonly value="<%=States%>"> 
      </td>
    </tr>
    <tr class=Ltr> 
      <td>申请最后修改日期</td>
      <td><input name="AppTime" type="text" class=Input readonly value="<%=ObjRS("ReFinalTime")%>"> 
      </td>
      <td width="15%">招聘状态</td>
      <td><select name="State">
          <option value="3" selected>正在招聘</option>
          <option value="6">有意见</option>
        </select></td>
    </tr>
    <tr class=Ltr> 
      <td>备注（部门需求的备注信息）</td>
      <td colspan="3"><textarea name="Des" readonly cols=70 rows=5 class=Textarea><%=ObjRS("Des")%></textarea></td>
    </tr>
	<%end if%>
    <tr class=Ltr> 
      <td>备注（对自己计划的具体内容）</td>
      <td colspan="3"><textarea name="PlanDes"  cols=70 rows=5 class=Textarea></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td>反馈意见（对部门需求提出的要求、意见等）</td>
      <td colspan="3"><textarea name="feedback"  cols=70 rows=5 class=Textarea></textarea></td>
    </tr>
    <tr class=Ltr height=100%> 
      <td colspan=4 align="left" valign="top"><input type="submit"  name="Submit" class=Button value="提 交"> 
        <input type="button" class=Button value="取 消" onclick="location.href='list.asp'" name=button1></td>
    </tr>
  </table>
</form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->