addnew.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Sub Main
%>
<%
Dim ObjDB,rs,vrs
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB

'判断是否可以加员工记录

set vrs=server.CreateObject("Adodb.recordset")
vrs.open "select StaID from v_Hrms_Com_Dep_Sta",ObjDB,1,1
if vrs.eof and vrs.bof then
%>
<script language="JavaScript">
alert("请您与管理员联系！先添加公司、部门、岗位等预备信息！！");
location.href="list.asp";
</script>
<%
response.End()
end if
vrs.close
set vrs=nothing
%>

<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
<!--读取分类字段赋给JS数组-->
dim count
set rs=server.createobject("adodb.recordset")
rs.open "select * from v_Hrms_Com_Dep_Sta ",ObjDB,1,1
count = 0
do while not rs.eof 
%>
subcat[<%=count%>] = new Array("<%= trim(rs("DepName"))%>","<%= rs("ComID")%>","<%= rs("DepID")%>","<%= rs("StaName")%>","<%= rs("StaID")%>");
<%
        count = count + 1
        rs.movenext
        loop
        rs.close
%>
		
onecount=<%=count%>;



function changelocation(locationid)
  	{
		document.myform.department.length = 0; 
	
		var locationid=locationid;
		var i,j,k;
		var Subid;
		var DepID;
		var StaID;
		
		DepID = "";
		StaID = "";
		document.myform.station.length = 0
		k=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) 
					{
						Subid=subcat[i][2];
					}
				}
				DepID = DepID + "," + subcat[i][2];
			 }        
	   }
			
		for (j=0;j < onecount; j++)
		{
			if((subcat[j][1] == locationid) && (Subid == 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]);
				}
			StaID = StaID + "," + subcat[j][4];
			}
		}
    }   
      </script> 
	  
<script language = "JavaScript">
var onecountDep;
onecountDep=0;
subcatDep = new Array();
<%
<!--读取分类字段赋给JS数组-->
dim countDep
<!-- set rs=server.createobject("adodb.recordset") -->
rs.open "select distinct* from v_Hrms_Dep_Job",ObjDB,1,1
countDep = 0
do while not rs.eof 
%>
subcatDep[<%=countDep%>] = new Array("<%= trim(rs("JobName"))%>","<%= rs("ID")%>","<%= rs("Pos")%>");
<%
        countDep = countDep + 1
        rs.movenext
        loop
        rs.close
%>
		
onecountDep=<%=countDep%>;

function changelocationDep(locationid)
{
    document.myform.station.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecountDep; i++)
    {
        if(subcatDep[i][1] == locationid)
        { 
            document.myform.station.options[document.myform.station.length] = new Option(subcatDep[i][0], subcatDep[i][2]);
        }        
    }     
}    

</script>  

<form method="post" action="ChkAdd.asp" name=myform>
  
<table width="100%" class=Ltable align="left" cellpadding=3 cellspacing=1 >
  <tr class=LHtr> 
    <td height="32" colspan="4">新增基本员工信息</td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">姓名：</td>
    <td width="30%"> <input type="text" name="Name"> </td>
    <td width="13%" align="left">民族：</td>
    <td><input name="People" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">性别：</td>
    <td width="30%"> <p> 
        <label> 
        <input name="Sex" type="radio" value="男" checked>
        男</label>
        <label> 
        <input type="radio" name="Sex" value="女">
        女</label>
        <br>
      </p></td>
    <td width="13%" align="left">婚姻状况：</td>
    <td width="35%"> <label> 
      <input name="IsMarried" type="radio" value="未婚" checked>
      未婚</label> <label> 
      <input type="radio" name="IsMarried" value="已婚">
      已婚</label></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">出生年月：</td>
    <td width="30%"> <input name="Birth" type="text" readonly onclick="InputDate(this)"> </td>
    <td width="13%" align="left">政治面貌：</td>
    <td><input name="PoliticalVisage" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">籍贯：</td>
    <td width="30%"> <input name="HKaddress" type="text"> </td>
    <td width="13%" align="left">教育方式：</td>
    <td><input name="educationstyle" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">出生地：</td>
    <td width="30%"> <input name="birthaddress" type="text"> </td>
    <td width="13%" align="left">最终毕业学校：</td>
    <td> 
      <input name="Graduateschool" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">身份证号码：</td>
    <td width="30%"> <input name="IDcard" type="text"></td>
    <td width="13%" align="left">专业类别：</td>
    <td><select name="SpecType" class="SelectWidth">
        <option value="1" selected>管理类</option>
        <option value="2">财务类</option>
        <option value="3">技术类</option>
        <option value="4">其它</option>
      </select> </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">外语及程度：</td>
    <td width="30%"> <input name="Forlan" type="text"> </td>
    <td width="13%" align="left">专业：</td>
    <td> 
      <input name="speciality" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">公司：</td>
    <td width="30%"> 
    <%
		rs.open "select ID,DepName from t_Hrms_Dep where ParentID=0",ObjDB,1,1
	%>
    <select class="SelectWidth" name="company" onChange="changelocation(document.myform.company.options[document.myform.company.selectedIndex].value)">
    	<option selected value="<%=rs("ID")%>"><%=trim(rs("DepName"))%></option>
    <%      
		dim selclass
		selclass=rs("ID")
		rs.movenext
		do while not rs.eof
		%>
        <option value="<%=rs("ID")%>"><%=trim(rs("DepName"))%></option>
        <%
		 rs.movenext
		 loop
		rs.close
	%>
     </select> </td>
    <td width="13%" align="left">毕业时间：</td>
    <td><input name="Graduatetime" readonly type="text" onclick="InputDate(this)"> </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">部门：</td>
    <td width="30%"> <select class="SelectWidth" name="department"  onChange="changelocationDep(document.myform.department.options[document.myform.department.selectedIndex].value)">
        <%
		rs.open "select distinct ID,DepName from t_Hrms_Dep where ParentID="&selclass ,ObjDB,1,1
		%>
        <option value="<%=rs("ID")%>" selected><%=rs("DepName")%></option>
        <%
			dim selDep
			selDep=rs("ID")
			rs.movenext
			do while not rs.eof
		%>
        <option value="<%=rs("ID")%>"><%=rs("DepName")%></option>
        <%
			rs.movenext
			loop
			rs.close
		%>
      </select></td>
    <td width="13%" align="left">学历：</td>
    <td><input name="graduatedegree" type="text" id="graduatedegree"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">岗位：</td>
    <td width="30%">
		<select class="SelectWidth" name="station">
        <%
		rs.open "select distinct Pos,JobName from v_Hrms_Dep_Job where ID="&selDep,ObjDB,1,1
		%>
		<option value="<%=rs("Pos")%>" selected><%=rs("JobName")%></option>
		<% 
			rs.movenext
			do while not rs.eof
			%>
			<option value="<%=rs("Pos")%>"><%=rs("JobName")%></option>
			<%
			rs.movenext
			loop
			rs.close
		%>
      </select>
	</td>
    <td width="13%" align="left">学位：</td>
    <td><input name="degree" type="text" id="degree"> </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">职称类别：</td>
    <td width="30%"><select class="SelectWidth" name="techdegree">
        <option value="0" selected>无职称</option>
        <option value="1">高级职称</option>
        <option value="2">中级职称</option>
        <option value="3">初级职称</option>
      </select> </td>
    <td width="13%" align="left">工作年限：</td>
    <td> <input name="Worktime" type="text" size="5">
      年</td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">职称名称：</td>
    <td width="30%"><input name="techdegreeName" type="text" id="techdegreeName"> </td>
    <td width="13%" align="left">联系电话：</td>
    <td> <input name="tel" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">邮编：</td>
    <td colspan="3"> <input name="zip" type="text"> </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">地址：</td>
    <td colspan="3"><input name="address" type="text" size="80%"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">e_mail：</td>
    <td colspan="3"><input name="e_mail" type="text" size="80%"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">接受的培训：</td>
    <td colspan="3"><textarea name="trainprocess" cols="80%" rows="5" id="trainprocess"></textarea> 
    </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;&nbsp;学习经历：</td>
    <td colspan="3"><textarea name="studyprocess" cols="80%" rows="5"></textarea> 
    </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;&nbsp;工作经历：</td>
    <td colspan="3"><textarea name="workProcess" cols="80%" rows="5"></textarea></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;&nbsp;社会关系：</td>
    <td colspan="3"><textarea name="socialRelation" cols="80%" rows="5"></textarea></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;&nbsp;备注：</td>
    <td colspan="3"><textarea name="Des" cols="80%" rows="5"></textarea></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;</td>
    <td colspan="3"><input type="submit" name="btnSubmit" onClick="return checkpro();" class=Button value="提  交"> <input type="button" name="btnCancel" class=Button value="取  消" onClick="location.href='List.asp'"> 
    </td>
  </tr>
</table>
<script language="JavaScript">
function checkpro()
{
    if(document.myform.Name.value =="") 
	{
	document.myform.Name.focus();
    alert("员工姓名不能为空！");
	 return false;
  	}
	if(document.myform.Name.value.length > 25) 
	{
	document.myform.Name.focus();
    alert("姓名长度必须小于25个字！");
	 return false;
  	}
	
	
<!-- 民族 -->
	if(document.myform.People.value =="")
	{
		document.myform.People.focus();