search_s.asp

武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.

		set redept=server.CreateObject("adodb.recordset")
		redept.open "select * from dept where dept_name='"&dept&"' and dept_state='启用'",conn,1,1
		depid=redept(0)
		set level=server.CreateObject("adodb.recordset")
		level.open "select * from plevel where plevel_name='"&grade&"' and plevel_state='启用'",conn,1,1
		levelid=level(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where dept_id="&depid&" and plevel_id="&levelid&"",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'部门和级别
	
	'岗位和级别
	if post<>"请选择" and grade<>"请选择" then
		set repost=server.CreateObject("adodb.recordset")
		repost.open "select * from post where post_name='"&post&"' and post_state='启用'",conn,1,1
		postid=repost(0)
		set level=server.CreateObject("adodb.recordset")
		level.open "select * from plevel where plevel_name='"&grade&"' and plevel_state='启用'",conn,1,1
		levelid=level(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where post_id="&postid&" and plevel_id="&levelid&"",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'岗位和级别
	
	'部门、岗位和级别
	if dept<>"请选择" and post<>"请选择" and grade<>"请选择" then
		set redept=server.CreateObject("adodb.recordset")
		redept.open "select * from dept where dept_name='"&dept&"' and dept_state='启用'",conn,1,1
		depid=redept(0)
		set repost=server.CreateObject("adodb.recordset")
		repost.open "select * from post where post_name='"&post&"' and post_state='启用'",conn,1,1
		postid=repost(0)
		set level=server.CreateObject("adodb.recordset")
		level.open "select * from plevel where plevel_name='"&grade&"' and plevel_state='启用'",conn,1,1
		levelid=level(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where dept_id="&depid&" and post_id="&postid&" and plevel_id="&levelid&"",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'部门、岗位和级别
	
	'人名和部门
	if pname<>"" and dept<>"请选择" then
		set redept=server.CreateObject("adodb.recordset")
		redept.open "select * from dept where dept_name='"&dept&"' and dept_state='启用'",conn,1,1
		depid=redept(0)
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where personnel_name like '%"&pname&"%' and dept_id="&depid&"",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'人名和部门
	
	'人名和岗位
	if pname<>"" and post<>"请选择" then
		set repost=server.CreateObject("adodb.recordset")
		repost.open "select * from post where post_name='"&post&"' and post_state='启用'",conn,1,1
		postid=repost(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where post_id="&postid&" and personnel_name like '%"&pname&"%'",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'人名和岗位
	
	'人名和级别
	if pname<>"" and grade<>"请选择" then
		set level=server.CreateObject("adodb.recordset")
		level.open "select * from plevel where plevel_name='"&grade&"' and plevel_state='启用'",conn,1,1
		levelid=level(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where plevel_id="&levelid&" and personnel_name like '%"&pname&"%'",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
	end if
	'人名和级别
'---------------------------------------------------------------------------------------------------
	'人名、部门和岗位
	if dept<>"请选择" and post<>"请选择" then
		set redept=server.CreateObject("adodb.recordset")
		redept.open "select * from dept where dept_name='"&dept&"' and dept_state='启用'",conn,1,1
		depid=redept(0)
		set repost=server.CreateObject("adodb.recordset")
		repost.open "select * from post where post_name='"&post&"' and post_state='启用'",conn,1,1
		postid=repost(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where dept_id="&depid&" and post_id="&postid&" and personnel_name like '%"&pname&"%'",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'人名、部门和岗位
	
	'人名、部门和级别
	if dept<>"请选择" and grade<>"请选择" then
		set redept=server.CreateObject("adodb.recordset")
		redept.open "select * from dept where dept_name='"&dept&"' and dept_state='启用'",conn,1,1
		depid=redept(0)
		set level=server.CreateObject("adodb.recordset")
		level.open "select * from plevel where plevel_name='"&grade&"' and plevel_state='启用'",conn,1,1
		levelid=level(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where dept_id="&depid&" and plevel_id="&levelid&" and personnel_name like '%"&pname&"%'",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'人名、部门和级别
	
	'人名、岗位和级别
	if post<>"请选择" and grade<>"请选择" then
		set repost=server.CreateObject("adodb.recordset")
		repost.open "select * from post where post_name='"&post&"' and post_state='启用'",conn,1,1
		postid=repost(0)
		set level=server.CreateObject("adodb.recordset")
		level.open "select * from plevel where plevel_name='"&grade&"' and plevel_state='启用'",conn,1,1
		levelid=level(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where post_id="&postid&" and plevel_id="&levelid&" and personnel_name like '%"&pname&"%'",conn,1,1
		
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'人名、岗位和级别
	
	'人名、部门、岗位和级别
	if dept<>"请选择" and post<>"请选择" and grade<>"请选择" then
		set redept=server.CreateObject("adodb.recordset")
		redept.open "select * from dept where dept_name='"&dept&"' and dept_state='启用'",conn,1,1
		depid=redept(0)
		set repost=server.CreateObject("adodb.recordset")
		repost.open "select * from post where post_name='"&post&"' and post_state='启用'",conn,1,1
		postid=repost(0)
		set level=server.CreateObject("adodb.recordset")
		level.open "select * from plevel where plevel_name='"&grade&"' and plevel_state='启用'",conn,1,1
		levelid=level(0)
		
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from personnel where dept_id="&depid&" and post_id="&postid&" and plevel_id="&levelid&" and personnel_name like '%"&pname&"%'",conn,1,1
		if rs.bof and rs.eof then
			response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
		end if
	end if
	'人名、部门、岗位和级别
end if
%>
<%
pname2=pname
dept2=dept
post2=post
grade2=grade
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
		<td height="3" colspan="9" background="../images/Table_bj/t-lin.gif"></td>
	</tr>
  	<tr>
		<td height="25"><div align="center">员工编号</div></td>
		<td><div align="center">部门编号</div></td>
		<td><div align="center">岗位</div></td>
		<td><div align="center">行政级别</div></td>
		<td><div align="center">员工姓名</div></td>
		<td><div align="center">性别</div></td>
		<td><div align="center">出身日期</div></td>
		<td><div align="center">学历</div></td>
		<td><div align="center">操作</div></td>
    </tr>
	<tr>
		<td height="3" colspan="9" bgcolor="#EEEEEE"></td>
	</tr>
<%
currentpage=request.QueryString("page")
if currentpage="" then
	currentpage=1
end if
rs.pagesize=10
rs.absolutepage=cint(currentpage)
while not rs.eof and userpage<rs.pagesize
%>
  <tr>
    <td><div align="center"><%=rs(0)%></div></td>
    <td><div align="center">
        <%
		deptid=rs("dept_id")'部门名称
		if deptid<>"" then
			set dept=server.CreateObject("adodb.recordset")
			dept.open "select * from dept where dept_id="&deptid&"",conn,1,1
			response.Write dept("dept_name")
		else
			response.Write "&nbsp;"
		end if
		%>
      </div></td>
      <td><div align="center">
        <%
		postid=rs("post_id")'岗位名称
		if postid<>"" then
			set post=server.CreateObject("adodb.recordset")
			post.open "select * from post where post_id="&postid&"",conn,1,1
			response.Write post("post_name")
		else
			response.Write "&nbsp;"
		end if
		%>
      </div></td>
      <td><div align="center">
        <%
		levelid=rs("plevel_id")'行政级别名称
		if levelid<>"" then
			set level=server.CreateObject("adodb.recordset")
			level.open "select * from plevel where plevel_id="&levelid&"",conn,1,1
			response.Write level("plevel_name")
		else
			response.Write "&nbsp;"
		end if
		%>
      </div></td>
    <td><div align="center"><%=rs(3)%></div></td>
    <td><div align="center"><%=rs(7)%></div></td>
    <td><div align="center"><%=rs(8)%></div></td>
    <td><div align="center"><%=rs(10)%></div></td>
    <td><div align="center"><a href="Show_emly.asp?id=<%=rs(0)%>">查看详细</a>/<a href="Search.asp?id=<%=rs(0)%>">档案维护</a>/<a href="Dimission.asp?id=<%=rs("personnel_id")%>">离职</a></div></td>
    </tr>
	<tr>
		<td height="1" colspan="9" bgcolor="#EEEEEE"></td>
	</tr>
	<%
userpage=userpage+1
rs.movenext
wend
%>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" align="center" width="98%">
	<tr>
		<td bgcolor="#F9F9F9">
<div align="center"> 
  <a href="Search_S.asp?page=1&term=1&name=<%=pname2%>&dept=<%=dept2%>&post=<%=post2%>&grade=<%=grade2%>">首页</a> &nbsp;&nbsp; <a href="Search_S.asp?page=
<%
if currentpage-1 < 1 then
	response.Write 1
else
	response.Write currentpage-1
end if
%>&term=1&name=<%=pname2%>&dept=<%=dept2%>&post=<%=post2%>&grade=<%=grade2%>">上一页</a> &nbsp; 
  <%
for i=1 to rs.pagecount
	response.Write("<a href=""Search_S.asp?page="&i&"&term=1&name="&pname2&"&dept="&dept2&"&post="&post2&"&grade="&grade2&""">"&i&"</a>&nbsp;&nbsp;")
next
%>
  <a href="Search_S.asp?page=
<%
if currentpage+1 >= rs.pagecount then
	response.Write rs.pagecount
else
	response.Write currentpage+1
end if
%>&term=1&name=<%=pname2%>&dept=<%=dept2%>&post=<%=post2%>&grade=<%=grade2%>">下一页</a> &nbsp;&nbsp; <a href="Search_S.asp?page=<%=rs.pagecount%>&term=1&name=<%=pname2%>&dept=<%=dept2%>&post=<%=post2%>&grade=<%=grade2%>">尾页</a>&nbsp;&nbsp; <%=currentpage%>/<%=rs.pagecount%>页</div>
	</td>
</tr>
</table>
<%end if
'pname.close
'set pname=nothing

'dept.close
'set dept=nothing

'post.close
'set post=nothing

'level.close
'set level=nothing

'rs.close
'set rs=nothing
%>

<!--内容结束-->
</div>
<!--#include file="../Include/bottom.asp"-->
</body>
</html>