view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDB,StrSQL,IntID,C,rs,rs0

IntID = Request.QueryString("ID")
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
set rs=server.CreateObject("adodb.recordset")
rs.open "select ID from t_Hrms_Employees_UsersRemark where BasicID='"&IntID&"'",ObjDB,1,1
dim rid
rid=rs("ID")
rs.close
set rs=nothing

Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)

 
Set rs0 = C.View("Select * From v_Hrms_Employees Where ID = " & IntID)
dim TechDegree,InState

if  trim(rs0("TechDegree"))= 0 then
	TechDegree="无职称"
end if
if trim(rs0("TechDegree"))= 1 then
	TechDegree="高级职称"
end if
if trim(rs0("TechDegree"))= 2 then
	TechDegree="中级职称"
end if
if trim(rs0("TechDegree"))= 3 then
	TechDegree="初级职称"
end if


if rs0("InState")= 1 then
	InState="试用在职"
end if
if rs0("InState")= 2 then
	InState="正式在职"
end if
if rs0("InState")= 3 then
	InState="正常离职"
end if
if rs0("InState")= 4 then
	InState="辞职"
end if
if rs0("InState")= 5 then
	InState="辞退"
end if
if rs0("InState")= 6 then
	InState="除名"
end if
if rs0("InState")= 7 then
	InState="开除"
end if
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 t_Hrms_Dep ",ObjDB,1,1
count = 0
do while not rs.eof 
%>
subcat[<%=count%>] = new Array("<%= trim(rs("DepName"))%>","<%= rs("ParentID")%>","<%= rs("ID")%>");
<%
        count = count + 1
        rs.movenext
        loop
        rs.close
%>
		
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.Department.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
             document.myform.Department.options[document.myform.Department.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
      </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 ViewIDs(IDs)
	{
		window.open("addstation.asp?IDs="+IDs+"&Operation=view","RoleWin","width=400,height=300,scrollbars=yes")
	}
      </script>
<form action="" method="post"  name=myform>
<input type=hidden name=BasicId value="<%=IntID%>">

  <table width="100%" class=Ltable border="0"  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="InState" type="text" value="<%=InState%>"></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><input name="People" type="text" value="<%=rs0("People")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">出生年月：</td>
      <td> <input name="Birth" type="text" value="<%=rs0("Birth")%>"> </td>
      <td align="left">婚否：</td>
      <td> <label> 
        <input name="IsMarried" type="radio" value="未婚" <%if trim(rs0("Married"))="未婚" then response.Write("checked")%>>
        未婚</label> <label> 
        <input type="radio" name="IsMarried" value="已婚" <%if trim(rs0("Married"))="已婚" then response.Write("checked")%>>
        已婚</label></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="PoliticalVisage" type="text" value="<%=rs0("PoliticalVisage")%>"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">出生地：</td>
      <td> <input name="IDCard" type="text" value="<%=rs0("BirthAddress")%>" size="30"></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="IDCard" type="text" value="<%=rs0("IDCard")%>" size="30"></td>
      <td align="left">专业类别：</td>
      <td><input name="GraduateSchool" type="text" value="<%=rs0("GraduateSchool")%>" size="30"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">外语及程度：</td>
      <td> <input name="ForLan" type="text" value="<%=rs0("ForLan")%>" size="30"> 
      </td>
      <td align="left">最终毕业学校：</td>
      <td><input name="GraduateSchool" type="text" value="<%=rs0("GraduateSchool")%>" size="30"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">公司：</td>
      <td> <input name="Company" type="text" id="Company" value="<%=rs0("CompanyName")%>" size="30"> 
      </td>
      <td align="left">专业：</td>
      <td><input name="Speciality" type="text" value="<%=rs0("Speciality")%>" size="30"></td>
    </tr>
    <tr class=Ltr> 
      <td align="left">部门： </td>
      <td> <input name="Department" type="text"  value="<%=rs0("DepName")%>" size="30"> 
      </td>
      <td align="left">毕业时间：</td>
      <td> <input name="GraduateTime" type="text" value="<%=rs0("GraduateTime")%>"> 
    </tr>
    <tr class=Ltr> 
      <td align="left">岗位：</td>
      <td> <input name="Station" type="text" id="Station" value="<%=rs0("JobName")%>" size="30"> 
      </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> <input name="Duty" type="text" id="Duty" value="<%=TechDegree%>" size="30"></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> <input name="TechDegree" type="text" id="TechDegree" value="<%=rs0("TechDegreeName")%>" size="30"> 
      </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="Zip" type="text" value="<%=rs0("Zip")%>"> </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="TechDegree" type="text" id="TechDegree" value="<%=rs0("SaveTime")%>" size="30"> 
      </td>
      <td align="left">最后修改时间：</td>
      <td> <input name="Tel" type="text" value="<%=rs0("FinalEditTime")%>"></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 width="12%" align="left">&nbsp;</td>
      <td colspan="3"> <input type="button" name="btnCancel" class="button" onClick="location.href='List.asp'" value="返  回">
      </td>
    </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="ViewIDs(BasicId.value)"></td>
    </tr>
    </table>
</form>
<%
'rs0.close
'set rs0=nothing
ObjDB.Close
set ObjDB = nothing
End Sub
%>
<!-- #include file="Templet.asp" -->