hr.inc

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

<%

function TabDescription(pic, desp)
		TabDescription = _
			"<table border=0 cellspacing=1 cellpadding=2 bgcolor=white align=center width=560>" & vbLF & _
			"		<tr bgcolor=white>" & vbLF & _
			"				<td width=35><img border=0 src=""" & pic & """></td>" & vbLF & _
			"				<td valign=middle align=left>" & desp & "</td>" & vbLF & _
			"		</tr>" & vbLF & _
			"</table>" & vbLF & _
			"<hr noshade size=1 width=540>" & vbLF
end function


Function TableLink()
	dim sTemp : sTemp = ""
	if IsHrAdmin then
		sTemp = _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""position.asp"">职务管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""title.asp"">职称管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""node_o.asp"">组织结构管理</a>" & vbLF
	end if

	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;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""emp_ol.asp"">在职员工查询</a>" & vbLF & _
		sTemp & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""emp_odl.asp"">离职员工查询</a></td>" & vbLF & _
		"</tr>" & vbLF & _
		"</table>" & vbLF
End Function

%>