emp_odl.inc

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

<%
Function TableSearch()
	'' 任务分类，0为所有任务，1为普通任务，2为会议相关的任务，3为审批相关的任务
	'' 任务完成状况，0全部，1所有已完成任务，2所有未完成任务，3所有正常的未完成任务，4所有过时的未完成任务
	'' 开始日期的日历，DrawCal函数定义在../common/commonpage.inc
	'' 结束日期的日历

	TableSearch = _
		TableTitle("设 置 员 工 信 息 查 询 条 件", 600, "", "") & vbLF & _
		"<table cellspacing=0 cellpadding=3 width=600 align=center border=0>" & vbLF & _
		"<form name=""frmSearch"" method=post action=""emp_odl.asp"">" & vbLF  & _
		"<tr height=30 bgcolor=white>" & vbLF & _
		"	<td width=140>&nbsp;姓名：<input type=""text"" name=""name"" value=""" & pName & """ size=12 maxlength=10 style=""color:blue"">" & vbLF & _
		"	<td width=140>&nbsp;部门：<input type=""text"" name=""node"" value=""" & pNode & """ size=12 maxlength=20 style=""color:blue"">" & vbLF & _
		"	<td><span id=btnSearch style=""cursor:hand"" title=""设置查询条件，然后点击查询按钮进行查询""><img border=0 src=""../images/search.gif"" style=""vertical-align:middle"">查询</span></td></tr>" & vbLF & _
		"<tr height=10 bgcolor=white><td colspan=3></td></tr>" & vbLF & _
		"</form>" & vbLF & _
		"</table>" & vbLF
End Function

Function TableHeader()
	TableHeader = _
		"<table cellspacing=1 cellpadding=3 width=600 align=center bgcolor=silver style=""table-layout:fixed"">" & _
		"<tr style=""display:none"">" & vbLF & _
		"	<td width=70 nowrap>这一行仅用于控制表格宽度</td>" & vbLF & _
		"	<td width=50></td>" & vbLF & _
		"	<td width=100></td>" & vbLF & _
		"	<td width=90></td>" & vbLF & _
		"	<td width=90></td>" & vbLF & _
		"	<td width=100></td>" & vbLF & _
		"	<td width=""*""></td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr height=20>" & _
		"<td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"" >离 职 员 工 查 询 结 果</td></tr>" & _
		"<tr bgcolor=white>" & _
		"<td class=tdHead>&nbsp;<img src=""../images/bg/ar-y.gif"" width=8 height=8>&nbsp;" & TableHeaderField(sFileName, "name", "姓名", sFormParams, sSorting, sSorted) & "</td>" & _
		"<td class=tdHead align=center>" & TableHeaderField(sFileName, "gender", "性别", sFormParams, sSorting, sSorted) & 	"</td>" & _
		"<td class=tdHead align=center>" & TableHeaderField(sFileName, "birthday", "出生年月", sFormParams, sSorting, sSorted) & "</td>" & _
		"<td class=tdHead align=center>" & TableHeaderField(sFileName, "engage_date", "受聘时间", sFormParams, sSorting, sSorted) & "</td>" & _
		"<td class=tdHead align=center>" & TableHeaderField(sFileName, "dismiss_date", "离职时间", sFormParams, sSorting, sSorted) & "</td>" & _
		"<td class=tdHead align=center>部门</td>" & _
		"<td class=tdHead align=center>" & TableHeaderField(sFileName, "pos", "岗位", sFormParams, sSorting, sSorted) & "</td>" & _
		"</tr>"
End Function

Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
	dim sTemp	: sTemp = ""	' 临时字符串变量
	dim j					' 临时循环变量

	'------------------------------------
	' 分页所需的变量定义
	'------------------------------------
	Dim iCounter		: iCounter = 1
	Dim iPrevPage, iNextPage
	
	'------------------------------------
	' 获取数据库连接
	'------------------------------------
	
	dim rs	: set rs = openRS(conn,sSQL)
	dim iEmpid, sName, sGender, sBirthday, sEngageDate, sDismissDate, sNode, sPos

        if Not rs.EOF then	
		rs.Move (iCurrentPage - 1) * iRecordsPerPage
	end if
	while not rs.EOF and iCounter <= iRecordsPerPage
		iEmpid		= GetValue(rs,"emp_id")
		sName			= GetValue(rs,"name")
		sGender		= GetValue(rs,"gender")
		sBirthday		= GetValue(rs,"birthday")
		sEngageDate		= GetValue(rs,"engage_date")
		sDismissDate	= GetValue(rs,"dismiss_date")
		sNode			= GetValue(rs,"node")
		sPos				= GetValue(rs,"pos")

		sTemp = sTemp & "<tr bgcolor=white height=20>" & vbLF & _
				"<td title=""点击可以察看“" & sName & "”的信息"" style=""cursor:hand;color:blue;"" onclick=""javascript:location.href='emp_odp.asp?emp_id=" & iEmpid & "';"" nowrap>&nbsp;<img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;" & sName & "&nbsp;</td>" & vbLF & _
				"<td align=center title=""" & sGender & """ nowrap>&nbsp;" & sGender & "&nbsp;</td>" & vbLF & _
				"<td align=center title=""" & sBirthday & """ nowrap>&nbsp;" & sBirthday & "&nbsp;</td>" & vbLF & _
				"<td align=center title=""" & sEngageDate & """ nowrap>&nbsp;" & sEngageDate & "&nbsp;</td>" & vbLF & _
				"<td align=center title=""" & sDismissDate & """ nowrap>&nbsp;" & sDismissDate & "&nbsp;</td>" & vbLF & _
				"<td align=center title=""" & sNode & """ nowrap>&nbsp;" & sNode & "&nbsp;</td>" & vbLF & _
				"<td align=center title=""" & sPos & """ nowrap>&nbsp;" & sPos & "&nbsp;</td>" & vbLF & _
				"</tr>" & vbLF
		iCounter = iCounter + 1
		rs.movenext
	wend
	CloseRS(rs)
	

	' 填补空白行
	sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)

	' 首页、前页、后页、尾页等分页信息
	sTemp = sTemp & "<tr bgcolor=white height=20><td colspan=" & iCols & " align=right>" & vbLF & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
				"&nbsp;</td></tr>" & vbLF
	TableRecords = sTemp
End Function


Function TableLink()
		dim sTemp : sTemp = ""
	dim sTemp1:sTemp1=""
	
	if iRight=2 then
		sTemp1="		<img src=""../images/goto.gif"">&nbsp;<a href=""emp_oa.asp"">新增员工</a>" & vbLF & _
			"		&nbsp;&nbsp;&nbsp;" & vbLF
	        
	end if
		sTemp = _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""node.asp"">部门管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF
	

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