emp_od.inc

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

<%
function EmpInfor()
	dim sEmpName,sGender,sBirthday,sPos,sTitle,sNode,sEngageDate,sDossierNo,sContractNo
	
	dim sSQL
	sSQL = "select t1.name, t2.gender_desc as gender, t1.birthday, " & _
				" t3.node_desp as node, t1.pos, t1.title, " & _
				" t1.engage_date,t1.dossier_no,t1.contract_no" & _
				" from t_employee t1" & _
				" left join t_gender t2 on t1.gender = t2.gender_id" & _
				" left join t_node t3 on t1.node_id = t3.node_id" & _
				" where emp_id = " & pEmpid
				
	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")		'' 出生日期

	sPos = GetValue(rs,"pos")						'' 职务
	sTitle = GetValue(rs,"title")					'' 职称
	sNode = GetValue(rs,"node")		'' 部门标识

	sEngagedate = GetValue(rs,"engage_date")				
	sDossierNo = GetValue(rs,"dossier_no")		
	sContractNo = GetValue(rs,"contract_no")				


        closeRS(rs)
	
	EmpInfor = _
		"<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>" & 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 & _		
		"</table>" & vbLF & "<br>"
end function

function FormDismiss()
'	dim sDismissDate, sDismissInfor
	FormDismiss = _
		"<form method=post name=formDismiss action=""emp_od.asp"">" & vbLF & _
		"<input type=""hidden"" name=""emp_id"" value=""" & pEmpid & """>" & vbLF & _
		"<table cellspacing=1 cellpadding=3 bgcolor=""silver"" width=600 border=0>" & vbLF & _
		"	<tr bgcolor=""#0040a0"" style=""color:white;font-weight:600"">" & vbLF & _
		"		<td colspan=2 align=center>填　写　离　职　信　息</td>" & vbLF & _
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td width=83 align=center>离职时间</td>" & vbLF & _
		"		<td width=""*""><input type=""text"" name=""dismiss_date"" value=""" & sDismissDate & """ size=81 maxlength=20></td>" & vbLF & _
		"	</tr>" & vbLF & _
		"	<tr bgcolor=white height=25>" & vbLF & _
		"		<td width=83 align=center>补充说明</td>" & vbLF & _
		"		<td width=""*""><textarea name=""dismiss_infor"" cols=80 rows=9>" & sDismissInfor & "</textarea></td>" & vbLF & _
		"	</tr>" & vbLF & _
		"</table>" & vbLF & _
		"<table cellspacing=1 cellpadding=3 bgcolor=white width=600 border=0>" & vbLF & _
		"	<tr><td align=center>" & vbLF & _
		"			<img style=""cursor:hand"" border=0 src=""../images/button/dismiss.gif"" name=""btnDismiss"">" & vbLF & _
		"			&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
		"			<img style=""cursor:hand"" border=0 src=""../images/button/cancel.gif"" onclick=""location.href='emp_op.asp?emp_id=" & pEmpid & "';"">" & vbLF & _
		"			</td></tr>" & vbLF & _
		"</table>" & vbLF & _
		"</form>" & vbLF
end function

sub DismissEmp()
	dim sSQL,iRow,sError
	sError=""		
	sSQL = "update t_employee set dismissed = 1 ,dismiss_date=" & ToSQL(sDismissDate, "Text")&_
	       " , dismiss_info=" & ToSQL(sDismissInfor, "Text") & " , dismiss_op="& ToSQL(GetUserName, "Text") &_
	       "where emp_id = " & pEmpid
	''response.write sSQL & "<br><br>"
	conn.Execute(sSQL)
	if sError<>"" then	
		Response.Write 	"<script language=""javascript"">window.alert(""对不起，员工离职失败！原因:"&sError&");</script>" 
	        response.write "<script language=vbscript>window.navigate(""emp_op.asp?emp_id="""&pEmpid&")</script>"
		response.end
	end if	
	
	
	iRow=0
	iRow=DLookUp(conn, "select count(*) from t_account where emp_id="&ToSQL(pEmpid,"number"))
	if iRow>0 then	       	
	        dim sAccountid:sAccountid=DLookUp(conn, "select account_id from t_account where emp_id="&ToSQL(pEmpid,"number"))
		dim conn1 : set conn1=createobject("adodb.connection")
		conn1.open "infortower", "infor", "tower"		
		sSQL="delete from t_email where userid="&ToSQL(sAccountid,"text")
		conn1.Execute(sSQL)
		sError=ProcessError(conn1)
		if sError <> "" then				        
			response.write "<script language=""javascript"">alert('对不起，删除用户email失败，请重新删除该用户！')</script>"
			response.write "<script language = vbscript>window.navigate(""user.asp?accountid="&sAccountid&")</script>"					
			response.end
		end if
		conn1.close
		set conn1=nothing
		
		sSQL = "delete from t_onlinestatus where emp_id = " &pEmpid	
	       	conn.Execute(sSQL)
	       	sError=ProcessError(conn)
		if sError <> "" then
			response.write "<script language=""javascript"">alert('对不起，用户状态删除失败，请重新删除该用户！')</script>"
			response.write "<script language=vbscript>window.navigate(""user.asp?accountid="&sAccountid&")</script>"					
			response.end		
		end if
		
	       	sSQL = "delete from t_account where emp_id = " &pEmpid	
	       	conn.Execute(sSQL)	       	
	        sError=ProcessError(conn)
		if sError <> "" then
				response.write "<script language=""javascript"">alert('对不起，用户删除失败，请重新删除该用户！')</script>"
				response.write "<script language=vbscript>window.navigate(""user.asp?accountid="&sAccountid&")</script>"					
				response.end		
	        end if	
	end if        
	       		
	Response.Write "<script language=""javascript"">window.alert(""员工已成功离职！"");</script>" 		             
        response.write "<script language=vbscript>window.navigate(""emp_ol.asp"")</script>"					
	Response.End
 
end sub


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

%>