emp_op.inc

物业管理和办公自动化系统

<%
function TableEmp()
	
	dim sEmpName,sGender,sBirthday,sId,sFolk,sNative,sHAddr,sEducation,sSpecialty,sPos,sTitle,sNode,sPolitical
	dim sHPhone,sEngageDate,sDossierNo,sContractNo,sAchievements,sTraining,sCertificate
	
	dim sSQL
	sSQL = "select t1.name, t2.gender_desc as gender, t1.birthday, t1.Idnumber as id, " & _
				" t3.folk_desc as folk, t1.native,t1.address,t1.specialty, t4.education_desc as education, " & _
				" t5.political_desc as political, t6.node_desp as node, t1.contact_tel as phone," & _
				" t1.pos, t1.engage_date, t1.title, t1.Dossier_no,t1.contract_no,t1.achievements,t1.training,t1.certificate " & _				
				" from t_employee t1" & _
				" left join t_gender t2 on t1.gender = t2.gender_id" & _
				" left join t_folk t3 on t1.folk = t3.folk_id" & _
				" left join t_education t4 on t1.education_level = t4.education_id" & _
				" left join t_political t5 on t1.political_status = t5.political_id" & _
				" left join t_node t6 on t1.node_id = t6.node_id" & _							
				" where emp_id = " & pEmpid
				

'	response.write sSQL : response.end
	dim rs
	
	set rs = OpenRS(conn, sSQL)
	
	'' 若找不到相应的记录，则跳转到出错页面
	if rs.EOF then
			Response.Clear
			Server.Transfer("../include/error.asp")
			Response.end
	end if

	sEmpName = GetValue(rs,"name")			'' 姓名
	sGender = GetValue(rs,"gender")			'' 性别
	sBirthday = GetValue(rs,"birthday")		'' 出生年月
	sId = GetValue(rs,"id")							'' 身份证号码
	sFolk = GetValue(rs,"folk")					'' 民族
	sNative = GetValue(rs,"native")				'' 籍贯
	sHAddr = GetValue(rs,"address")	'' 家庭地址	
	sEducation = GetValue(rs,"education")	'' 教育程度
	sSpecialty = GetValue(rs,"specialty")		'' 专业
	sPos = GetValue(rs,"pos")						'' 职务
	sTitle = GetValue(rs,"title")					'' 职称
	sNode = GetValue(rs,"node")		'' 部门标识		
	sPolitical = GetValue(rs,"political")			'' 政治面貌		
	sHPhone = GetValue(rs,"phone")	'' 住宅电话	
	sEngageDate = GetValue(rs,"engage_date")				'' 受聘时间
	sDossierNo=GetValue(rs,"dossier_no")   ''人事档案编号
	sContractNo=GetValue(rs,"contract_no") ''人事合同编号
        sAchievements=GetValue(rs,"achievements") ''主要业绩
        sTraining=GetValue(rs,"Training") ''培训记录
        sCertificate=GetValue(rs,"Certificate")''资格证书
	
	CloseRS(rs)
			
	TableEmp = _
		"<table cellspacing=1 cellpadding=3 bgcolor=""silver"" width=""100%"" border=0 style=""table-layout:fixed"">" & vbLF & _
		"	<tr style=""display:none"">" & vbLF & _
		"		<td width=95>这一行仅用于控制每一栏的宽度</td><td width=""16%"">这一行仅用于控制每一栏的宽度</td>" & vbLF & _
		"		<td width=95>这一行仅用于控制每一栏的宽度</td><td width=""*"">这一行仅用于控制每一栏的宽度</td>" & vbLF & _
		"		<td width=90>这一行仅用于控制每一栏的宽度</td><td width=""16%"">这一行仅用于控制每一栏的宽度</td>" & vbLF & _		
		"	</tr>" & vbLF & _
		"	<tr bgcolor=""#0040a0"" style=""color:white;font-weight:600"">" & vbLF & _
		"		<td colspan=6 align=center>员 工 基 本 情 况 表</td>" & vbLF & _
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>姓　名</td><td class=tdValue nowrap>" & sEmpName & "</td>" & vbLF & _
		"		<td align=center>性  别</td><td class=tdValue nowrap>" & sGender & "</td>" & vbLF & _
		"		<td align=center>出生年月</td><td class=tdValue nowrap>" & sBirthday & "</td>" & vbLF & _		
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>身份证</td><td class=tdValue nowrap>" & sId & "&nbsp;</td>" & vbLF & _
		"		<td align=center>民  族</td><td class=tdValue nowrap>" & sFolk & "</td>" & vbLF & _
		"		<td align=center>籍  贯</td><td class=tdValue nowrap>" & sNative & "</td>" & vbLF & _
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>政治面貌</td><td class=tdValue nowrap>" & sPolitical & "</td>" & vbLF & _
		"		<td align=center>最高学历</td><td colspan=3 class=tdValue nowrap>" & sEducation & "</td>" & vbLF & _				
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>专  业</td><td colspan=5 class=tdValue nowrap>" & sSpecialty & "</td>" & vbLF & _		
		"	</tr>" & vbLF & _		
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>部  门</td><td class=tdValue nowrap>" & sNode & "&nbsp;</td>" & vbLF & _
		"		<td align=center>职  务</td><td class=tdValue nowrap>" & sPos & "</td>" & vbLF & _
		"		<td align=center>职  称</td><td class=tdValue nowrap>" & sTitle & "</td>" & vbLF & _
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>受聘时间</td><td class=tdValue nowrap>" & sEngageDate & "&nbsp;</td>" & vbLF & _
		"		<td align=center>人事档案编号</td><td class=tdValue nowrap>" & sDossierNo & "</td>" & vbLF & _
		"		<td align=center>人事合同编号</td><td class=tdValue nowrap>" & sContractNo & "</td>" & vbLF & _
		"	</tr>" & vbLF & _		
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td align=center>家庭地址</td><td colspan=3 class=tdValue nowrap>" & sHAddr & "</td>" & vbLF & _
		"		<td align=center>联系电话</td><td class=tdValue nowrap>" & sHPhone & "</td>" & vbLF & _
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white>" & vbLF & _
		"		<td align=center>主要业绩</td>" & vbLF & _		
		"		<td valign=center class=tdvalue colspan=5 style=""word-wrap:break-word;"">"&FormatStr(sAchievements)&"</td>" & vbLF & _		
		"	<tr bgcolor=white>" & vbLF & _
		"		<td align=center>培训记录</td>" & vbLF & _		
		"		<td valign=center class=tdvalue colspan=5 style=""word-wrap:break-word;"">"&FormatStr(sTraining)&"</td>" & vbLF & _		
		"	<tr bgcolor=white>" & vbLF & _
		"		<td align=center>资格证书</td>" & vbLF & _		
		"		<td valign=center class=tdvalue colspan=5 style=""word-wrap:break-word;"">"&FormatStr(sCertificate)&"</td>" & vbLF & _		
		"</table>"
end function

function TableAction()
	dim sTemp : sTemp = ""
	if iRight=2 then		'' 只有人事管理员才显示管理的链接
		sTemp = _
			"		&nbsp;&nbsp;&nbsp;" & vbLF & _
			"		<a style=""color:blue"" href=""emp_oe.asp?emp_id=" & pEmpid & """><img border=0 src=""../images/edit.gif"">&nbsp;修改员工信息</a>" & vbLF & _
			"		&nbsp;&nbsp;&nbsp;" & vbLF & _
			"		<a style=""color:blue"" href=""emp_od.asp?emp_id=" & pEmpid & """><img border=0 src=""../images/dismiss.gif"">&nbsp;员工离职</a>" & vbLF
	end if

	TableAction = _
		"<table width=600 cellspacing=0 cellpadding=5 height=30 align=center>" & vbLF & _
		"	<tr>" & vbLF & _
		"	<td align=center>" & _
		"		<a style=""color:blue"" target=_blank href=""emp_op.asp?emp_id=" & pEmpid & "&forprint=1""><img border=0 src=""../images/edit.gif"">&nbsp;察看打印版</a>" & vbLF & _
			sTemp & vbLF & _
				"</td>" & vbLF & _
		"	</tr>" & vbLF & _
		"</table>"
end function




Function TableLink()
	dim sTemp : sTemp = ""

	
		sTemp = _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""node.asp"">部门管理</a>" 
		
	

	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
		"<tr height=10>" & vbLF & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr>" & vbLF &  _
		"	<td width=600>&nbsp;" & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""emp_ol.asp"">在职员工查询</a>" & vbLF & _
		sTemp & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""emp_odl.asp"">离职员工查询</a></td>" & vbLF & _
		"</tr>" & vbLF & _
		"</table>" & vbLF
End Function

%>