edit0.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.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]);
            }        
        }
        
    }    
      </script> 
	<form action="EditSave.asp?ID=<%=IntID%>" method="post"  name=myform>
  <table width="100%" class=Ltable border="0" align="left" cellpadding="3" cellspacing="1">
    <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="<%=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" id="GraduateDegree" 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" id="Degree" 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="<%=rs0("Zip")%>"> </td>
      <td>创建时间：</td>
      <td><input name="SaveTime" type="text" id="SaveTime" 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" id="TrainProcess"><%=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" class=Button value="确  定"> 
        <input type="button" name="btnCancel" value="取  消" class=Button onClick="location.href='List.asp'">
    </tr>
  </table>
</form>
<%

End Sub
%>
<!-- #include file="Templet.asp" -->