📄 search_emly.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>人力资源管理系统≡员工搜索≡</title>
<link href="../Include/type.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Head.asp" -->
<!--#include file="../Include/Syscheck.asp"-->
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left: 60px; top: 190px;">
<!--内容开始-->
<%
call checkin_sys(session("UsersId"),session("PerId"),17)
%>
<form name="form1" method="post" action="Search_S.asp?term=0">
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" class="table1">
<tr>
<td>员工编号：</td>
<td><input name="id" type="text" size="12"></td>
<td>员工姓名：</td>
<td><input name="name" type="text" size="12"></td>
<td>所在部门：</td>
<td><select name="dept" >
<option selected>请选择</option>
<%
set dept=server.CreateObject("adodb.recordset")
dept.open "select * from dept where dept_state='启用'",conn,1,1
while not dept.eof
%>
<option><%=dept("dept_name")%></option>
<%
dept.movenext
wend
%>
</select></td>
<td>所在岗位</td>
<td><select name="post" >
<option selected>请选择</option>
<%
set post=server.CreateObject("adodb.recordset")
post.open "select * from post where post_state='启用'",conn,1,1
while not post.eof
%>
<option><%=post("post_name")%></option>
<%
post.movenext
wend
%>
</select></td>
<td>行政级别</td>
<td><select name="grade" >
<option selected>请选择</option>
<%
set level=server.CreateObject("adodb.recordset")
level.open "select * from plevel where plevel_state='启用'",conn,1,1
while not level.eof
%>
<option><%=level("plevel_name")%></option>
<%
level.movenext
wend
%>
</select></td>
<td><input type="submit" name="Submit" value="搜索" class="submit"></td>
</tr>
</table>
</form>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel where personnel_state!='离职'",conn,1,1
%>
<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 class="tr1">
<td height="25" class="td1"><div align="center">员工编号</div></td>
<td height="15" class="td1"><div align="center">部门编号</div></td>
<td height="15" class="td1"><div align="center">岗位</div></td>
<td height="15" class="td1"><div align="center">行政级别</div></td>
<td height="15" class="td1"><div align="center">员工姓名</div></td>
<td height="15" class="td1"><div align="center">性别</div></td>
<td height="15" class="td1"><div align="center">出身日期</div></td>
<td height="15" class="td1"><div align="center">学历</div></td>
<td height="15" class="td1"><div align="center">操作</div></td>
</tr>
<tr class="tr1">
<td height="3" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%
dim userpage,currentpage
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 height="20"><div align="center"><%=rs("personnel_id")%></div></td>
<td height="20"><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 " "
end if
%>
</div></td>
<td height="20"><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 " "
end if
%>
</div></td>
<td height="20"><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 " "
end if
%>
</div></td>
<td height="20"><div align="center"><%=rs("personnel_name")%></div></td>
<td height="20"><div align="center"><%=rs("personnel_sex")%></div></td>
<td height="20"><div align="center"><%=rs("personnel_birthday")%></div></td>
<td height="20"><div align="center"><%=rs("personnel_educ")%></div></td>
<td height="20"><div align="center"><a href="Show_emly.asp?id=<%=rs("personnel_id")%>">查看详细</a>/<a href="Search.asp?id=<%=rs("personnel_id")%>">档案维护</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_emly.asp?page=1">首页</a> <a href="Search_emly.asp?page=
<%
if currentpage-1 < 1 then
response.Write 1
else
response.Write currentpage-1
end if
%>">上一页</a>
<%
for i=1 to rs.pagecount
response.Write("<a href=""Search_emly.asp?page="&i&""">"&i&"</a> ")
next
%>
<a href="Search_emly.asp?page=
<%
if currentpage+1 >= rs.pagecount then
response.Write rs.pagecount
else
response.Write currentpage+1
end if
%>">下一页</a> <a href="Search_emly.asp?page=<%=rs.pagecount%>">尾页</a> <%=currentpage%>/<%=rs.pagecount%>页</div>
</td>
</tr>
</table>
<!--内容结束-->
<%
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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -