view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<script language="JavaScript" type="text/JavaScript">
	
	function ViewIDs(IDs)
	{
		window.open("addperformance.asp?IDs="+IDs+"&Operation=view","RoleWin","width=400,height=300,scrollbars=yes")
	}
</script>
<%
Dim ObjDBH
Dim C
Dim IntID
Dim ObjRS

IntID = Request.QueryString("ID")

Set ObjDBH = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDBH
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDBH)

Set ObjRS = C.View("Select * From v_Hrms_Employees_UsersRemark Where ID = " & IntID)
dim IsFilesIn,IsAssure,DutyClass,InState
if ObjRS("FilesIn")= 0 then
	IsFilesIn="不在公司"	
else if ObjRS("FilesIn")= 1 then
		IsFilesIn="在公司"
	else 
		IsFilesIn="没内容"
	end if
end if
if ObjRS("Assure")= 0 then
	IsAssure="无担保书"	
else if ObjRS("Assure")= 1 then
		IsAssure="有担保书"
	else
		IsAssure="没内容"
	end if
end if
if ObjRS("DutyClass")= 1 then
	DutyClass="普通职务"	
else if ObjRS("DutyClass")=2 then
			DutyClass="一级职务"
		else if ObjRS("DutyClass")=3 then
				DutyClass="二级职务"
			else
				DutyClass="无职务内容"
			end if
		end if
end if
if ObjRS("InState")= 1 then
	InState="试用在职"
end if
if ObjRS("InState")= 2 then
	InState="正式在职"
end if
if ObjRS("InState")= 3 then
	InState="正常离职"
end if
if ObjRS("InState")= 4 then
	InState="辞职"
end if
if ObjRS("InState")= 5 then
	InState="辞退"
end if
if ObjRS("InState")= 6 then
	InState="除名"
end if
if ObjRS("InState")= 7 then
	InState="开除"
end if


ObjDBH.Close
Set ObjDBH = Nothing

Sub Main
%>
<form action="" method="post" name=myform>
<input type=hidden name=BasicId value="<%=ObjRS("ID")%>">

  <table class=Ltable cellspacing=1 cellpadding=3 >
    <tr class=LHtr> 
      <td width="15%">查看详细员工信息</td>
      <td width="85%" colspan="3"> </td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">姓名：</td>
      <td width="30%" align="left"> 
        <input name="Name" type="text" class=Input id="Name" value="<%=ObjRS("UserName")%>" readonly> 
      </td>
      <td width="15%">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">在职状态：</td>
      <td width="30%">
<input name="InState" type="text" class=Input id="InState" value="<%=InState%>" readonly> 
      </td>
      <td width="15%">档案是否在公司：</td>
      <td>
         <input name="IsFilesIn" type="text" class=Input id="IsFilesIn" value="<%=IsFilesIn%>" readonly>
      </td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">职务级别：</td>
      <td width="30%">
<input name="DutyClass" type="text" class=Input id="DutyClass" value="<%=DutyClass%>" readonly> 
      </td>
      <td width="15%">是否有担保书：</td>
      <td><input name="IsAssure" type="text" class=Input id="IsAssure" value="<%=IsAssure%>" readonly>
      </td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">上岗时间：</td>
      <td width="30%"> 
        <input name="InTime" type="text" class=Input onClick="InputDate(this)" value="<%=ObjRS("InTime")%>" readonly></td>
      <td width="15%">签订类型：</td>
      <td>第 
        <input name="ContractType" type="text" readonly value="<%=trim(ObjRS("ContractType"))%>" size="5">
        次签订</td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">转正时间：</td>
      <td width="30%"> 
        <input name="OfficialTime" type="text" class=Input readonly onClick="InputDate(this)" value="<%=ObjRS("OfficialTime")%>"></td>
      <td width="15%">劳动合同签订起始时间：</td>
      <td><input name="ContractTime" type="text" class=Input id="ContractTime" onClick="InputDate(this)" value="<%=ObjRS("ContractTime")%>" readonly></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">离职时间：</td>
      <td width="30%"> 
        <input name="OutTime" type="text" class=Input onClick="InputDate(this)" value="<%=ObjRS("ContractTime")%>" readonly></td>
      <td width="15%">劳动合同签订终止时间：</td>
      <td> <input name="EndContractTime" type="text" class=Input id="EndContractTime" onClick="InputDate(this)" value="<%=ObjRS("EndContractTime")%>" readonly></td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">绩效考评：</td>
      <td colspan="3"><textArea name="Performance"  cols=80% rows=5 class=Textarea readonly><%=ObjRS("Performance")%></textarea> 
      </td>
    </tr>
    <tr class=Ltr> 
      <td width="15%">备注：</td>
      <td colspan="3"><textArea  cols=80% rows=5 class=Textarea readonly name="Des"><%=ObjRS("Des")%></textarea></td>
    </tr>
     </table>
  <table class=Ltable cellspacing=1 cellpadding=3>
    <tr class=LHtr align="middle"> 
      <td width="15%">查看绩效情况</td>
      <td width="85%"> </td>
    </tr>
	<tr class=Ltr> 
      <td >绩效:</td>
      <td><input type="button"  name="Submit22" class=Button value="查看情况" onclick="ViewIDs(BasicId.value)"></td>
    </tr>
  </table>
  <table cellspacing=1 cellpadding=3>
	 <tr class=Ltr height=100%> 
      <td colspan=4 align="left" valign="top"><input type="button" class=Button value="返 回"onclick="history.go(-1)" id=button1 name=button1></td>
    </tr>
	</table>
</form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->