edit.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!--#include virtual="Include/MyFunc.asp"--> 

<%
Dim ObjDB,StrSQL,ObjRS,IntID,C,rs,rs0

IntID = Request.QueryString("ID")
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
Set rs0 = C.View("Select * From v_Hrms_Employees Where ID = " & IntID)
dim DepID,ComID,JobID,SpecTypeID,techdegreeID
ComID=trim(rs0("Company"))
DepID=triM(rs0("Department"))
JobID=trim(rs0("Station"))
SpecTypeID=trim(rs0("SpecType"))
techdegreeID=trim(rs0("TechDegree"))
%>

<%
Sub Main
%>
<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]);
        }        
    }     
}    


function AddStation(IDs)
	{
		window.open("addstation.asp?IDs="+IDs,"RoleWin","width=400,height=300,scrollbars=yes")
	}

</script> 

<form method="post"  action="EditSave.asp?ID=<%=IntID%>"  name=myform>
<input name="ID"  type="hidden" value="<%=IntID%>">
  <table width="100%" cellpadding=3 cellspacing=1 class=Ltable>
    <tr class="LHtr"> 
      <td height="32" colspan="4">修改基本员工信息</td>
    </tr>
    <tr class=Ltr> 
      <td align="left">姓名：</td>
      <td> <input name="Name" type="text" value="<%=rs0("Name")%>"> </td>
      <td align="left">民族：</td>
      <td><input name="People" type="text" value="<%=rs0("People")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">性别：</td>
      <td> <p> 
          <label> 
          <input name="Sex" type="radio" value="男" <%if trim(rs0("Sex"))="男" then response.Write("checked")%>>
          男</label>
          <label> 
          <input type="radio" name="Sex" value="女"<%if trim(rs0("Sex"))="女" then response.Write("checked")%>>
          女</label>
          <br>
        </p></td>
      <td align="left">婚否：</td>
      <td> <label> 
        <input name="Married" type="radio" value="未婚" <%if trim(rs0("Married"))="未婚" then response.Write("checked")%>>
        未婚</label> <label> 
        <input type="radio" name="Married" value="已婚" <%if trim(rs0("Married"))="已婚" then response.Write("checked")%>>
        已婚</label></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">出生年月：</td>
      <td> <input name="Birth" type="text" readonly onclick="InputDate(this)" value="<%=rs0("Birth")%>"> </td>
      <td align="left">政治面貌：</td>
      <td><input name="PoliticalVisage" type="text" value="<%=rs0("PoliticalVisage")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">籍贯：</td>
	    <td> <input name="HKaddress" type="text" value="<%=rs0("HKAddress")%>"></td>

      <td align="left">教育类型：</td>
      
	  <td><input name="educationstyle" type="text" value="<%=rs0("EducationStyle")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">出生地：</td>
      <td> <input name="birthAddress" type="text" value="<%=rs0("BirthAddress")%>"></td>
      <td align="left">最终毕业学校：</td>
      <td><input name="Graduateschool" type="text" value="<%=rs0("GraduateSchool")%>"></td>
    </tr>
	<tr class=Ltr> 
      <td align="left">身份证号码：</td>
      <td> <input name="IDcard" type="text" value="<%=trim(rs0("IDCard"))%>"></td>
      <td align="left">专业类别：</td>
      <td><select name="Spectype" class="SelectWidth">
          <option value="1"<%if SpecTypeID=1 then response.Write("selected")%>>管理类</option>
          <option value="2"<%if SpecTypeID=2 then response.Write("selected")%>>财务类</option>
          <option value="3"<%if SpecTypeID=3 then response.Write("selected")%>>技术类</option>
          <option value="4"<%if SpecTypeID=4 then response.Write("selected")%>>其它</option>
        </select></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">外语及程度：</td>
      <td> <input name="Forlan" type="text" value="<%=rs0("ForLan")%>"> 
      </td>
      <td align="left">专业：</td>
      <td><input name="speciality" type="text" value="<%=rs0("Speciality")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">公司：</td>
      <td> 
        <%
		dim rs1
		set rs1=server.CreateObject("adodb.recordset")
		rs1.open "select * from t_Hrms_Dep where ParentID=0",ObjDB,1,1
		if rs1.eof and rs1.bof then
			call MsgBox("请先添加公司!","Back","None")
			response.end
		else
		%>
        <select class="SelectWidth" name="company" onChange="changelocation(document.myform.company.options[document.myform.company.selectedIndex].value)">
          <option  value="<%=trim(rs1("ID"))%>"><%=trim(rs1("DepName"))%></option>
          <%      
		 rs1.movenext
		 do while not rs1.eof
		%>
          <option value="<%=trim(rs1("ID"))%>" <%if trim(rs1("ID"))=ComID then response.Write("Selected")%>><%=trim(rs1("DepName"))%></option>
          <%
		 rs1.movenext
		 loop
		end if
		rs1.close
		%>
        </select> </td>
      <td align="left">毕业时间：</td>
      <td> <input name="Graduatetime" type="text" readonly onclick="InputDate(this)" value="<%=rs0("GraduateTime")%>"> 
    </tr>
    <tr class=Ltr> 
      <td align="left">部门： </td>
      <td> 
        <%
	  rs1.open "select * from t_Hrms_Dep where ParentID="&ComID ,ObjDB,1,1
	  %>
        <select class="SelectWidth" name="department"  onChange="changelocationDep(document.myform.department.options[document.myform.department.selectedIndex].value)">
          <%
		
		if not(rs1.eof and rs1.bof) then
		%>
          <option value="<%=trim(rs1("ID"))%>" selected><%=trim(rs1("DepName"))%></option>
          <%
			dim selDep
			if DepID="" then
				selDep=trim(rs1("ID"))
			else
				selDep=DepID
			end if
			rs1.movenext
			do while not rs1.eof
			%>
          <option value="<%=trim(rs1("ID"))%>" <%if trim(rs1("ID"))=DepID then response.Write("selected")%>><%=trim(rs1("DepName"))%></option>
          <%
		  
		rs1.movenext
		loop
		end if
		rs1.close
		set rs1 = nothing
		%>
        </select> </td>
      <td align="left">学历：</td>
      <td><input name="graduatedegree" type="text" value="<%=rs0("GraduateDegree")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">岗位：</td>
      <td> <select class="SelectWidth" name="station">
          <%
		rs.open "select * from v_Hrms_Dep_Job where ID="&selDep,ObjDB,1,1
		if not(rs.eof and rs.bof) then
		%>
          <option value="<%=trim(rs("Pos"))%>" selected><%=trim(rs("JobName"))%></option>
          <% rs.movenext
		do while not rs.eof
		%>
          <option value="<%=trim(rs("Pos"))%>" <%if trim(rs("Pos"))=JobID then response.Write("Selected")%>><%=trim(rs("JobName"))%></option>
          <%
		rs.movenext
		loop
		end if
		rs.close
		%>
        </select> </td>
      <td align="left">学位：</td>
      <td><input name="degree" type="text" value="<%=rs0("Degree")%>"> 
      </td>
    </tr>
    <tr class=Ltr> 
      <td align="left">职称类别：</td>
      <td><select class="SelectWidth" name="techdegree">
          <option value="0"<%if techdegreeID=0 then response.write"selected"%>>无职称</option>
          <option value="1"<%if techdegreeID=1 then response.write"selected"%>>高级职称</option>
          <option value="2"<%if techdegreeID=2 then response.write"selected"%>>中级职称</option>
          <option value="3"<%if techdegreeID=3 then response.write"selected"%>>初级职称</option>
        </select> </td>
      <td align="left">工作年限：</td>
      <td> <input name="Worktime" type="text" value="<%=rs0("WorkTime")%>" size="5">
        年</td>
    </tr>
    <tr class=Ltr> 
      <td align="left">职称名称：</td>
      <td><input name="techdegreeName" type="text" value="<%=rs0("TechDegreeName")%>"> </td>
      <td align="left">联系电话：</td>
      <td> <input name="tel" type="text" value="<%=rs0("Tel")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">邮编：</td>
      <td> <input name="zip" type="text" value="<%=trim(rs0("Zip"))%>"> </td>
      <td>创建时间：</td>
      <td><input name="SaveTime" type="text" readonly onclick="InputDate(this)" value="<%=rs0("SaveTime")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">地址：</td>
      <td colspan="3"><input name="address" type="text" value="<%=rs0("Address")%>" size="80%"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">E_Mail：</td>
      <td colspan="3"><input name="e_mail" type="text" value="<%=rs0("E_Mail")%>" size="80%"></td>
    </tr>
	<tr class=Ltr> 
    <td width="13%" align="left">接受的培训：</td>
    <td colspan="3"><textarea name="trainprocess" cols="80%" rows="5"><%=rs0("TrainProcess")%></textarea> 
    </td>
  	</tr>
    <tr class=Ltr> 
      <td align="left">&nbsp;&nbsp;学习经历：</td>
      <td colspan="3"><textarea name="studyprocess" cols="80%" rows="5"><%=rs0("StudyProcess")%></textarea> 
      </td>
    </tr>
    <tr class=Ltr> 
      <td align="left">&nbsp;&nbsp;工作经历：</td>
      <td colspan="3"><textarea name="workProcess" cols="80%" rows="5"><%=rs0("WorkProcess")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">&nbsp;&nbsp;社会关系：</td>
      <td colspan="3"><textarea name="socialRelation" cols="80%" rows="5"><%=rs0("SocialRelation")%></textarea></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">&nbsp;&nbsp;备注：</td>
      <td colspan="3"> <textarea name="Des" cols="80%" rows="5"><%=rs0("Des")%></textarea></td>
    </tr>
	<tr class=Ltr> 
      <td align="left">&nbsp;&nbsp;修改原因：</td>
      <td colspan="3"> <textarea name="Reason" cols="80%" rows="5"></textarea></td>
    </tr>
	    <tr class="Ltr">
	  <td width="12%" align="left">&nbsp;</td>
      <td colspan="3"> <input type="Submit" name="btnSubmit" onClick="return checkpro();" class=Button value="确  定"> 
        <input type="button" name="btnCancel" value="取  消" class=Button onClick="location.href='List.asp'">
    </tr>
  </table>
  <table width="100%" cellpadding=3 cellspacing=1 class=Ltable>
    <tr class=LHtr> 
      <td colspan="4">员工岗位变动情况</td>
    </tr>
    <tr class=Ltr> 
      <td width="13%">岗位变动：</td>
      <td colspan="3"><input type="button"  name="Submit22" class=Button value="查看岗位变动情况" onclick="AddStation(ID.value)"></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="history.go(-1)" id=button1 name=button1></td>
    </tr>
  </table>
</form>
<script language="JavaScript">
function checkpro()