📄 search_s.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">
<script type="text/javascript" src="../Include/regtest.js"></script>
</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: 195px;">
<!--内容开始-->
<%
call checkin_sys(session("UsersId"),session("PerId"),17)
%>
<form name="form1" method="post" action="Search_S.asp?term=0">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<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(2)%></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(2)%></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>
<%
terms=request.QueryString("term")
if terms=0 then
id=request.form("id")
pname=request.form("name")
dept=request.form("dept")
post=request.form("post")
grade=request.form("grade")
else
id=request.QueryString("id")
pname=request.QueryString("name")
dept=request.QueryString("dept")
post=request.QueryString("post")
grade=request.QueryString("grade")
end if
if pname<>"" then
set CEN= New RegExp '创建对象
CEN.Pattern="^([A-Za-z0-9-_]|[\u0391-\uFFE5])+$"
if CEN.test(pname)=false then
response.Write "<script>alert('员工姓名不能有非法字符！');window.location.href('Search_emly.asp');</script>"
end if
end if
if id<>"" then
set NUM= New RegExp
NUM.Pattern="^\d+$"
if NUM.test(id)=false then
response.Write "<script>alert('员工编号只能是数字！');window.location.href('Search_emly.asp');</script>"
end if
end if
'员工编号搜索
if id<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel where personnel_id like '%"&id&"%'",conn,1,1
if rs.bof and rs.eof then
response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
else%>
<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>
<%
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><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 " "
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 " "
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 " "
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&id=<%=id%>">首页</a> <a href="Search_S.asp?page=
<%
if currentpage-1 < 1 then
response.Write 1
else
response.Write currentpage-1
end if
%>&term=1&id=<%=id%>">上一页</a>
<%
for i=1 to rs.pagecount
response.Write("<a href=""Search_S.asp?page="&i&"&term=1&id="&id&""">"&i&"</a> ")
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&id=<%=id%>">下一页</a> <a href="Search_S.asp?page=<%=rs.pagecount%>&term=1&id=<%=id%>">尾页</a> <%=currentpage%>/<%=rs.pagecount%>页</div>
</td>
</tr>
</table>
<%end if
'员工编号搜索
else
'姓名搜索
if pname<>""then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel where 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<>"请选择" then
set redept=server.CreateObject("adodb.recordset")
redept.open "select * from dept where dept_name='"&dept&"' and dept_state='启用'",conn,1,1
if redept.bof and redept.eof then
response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
end if
depid=redept(0)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel where 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 post<>"请选择" then
set repost=server.CreateObject("adodb.recordset")
repost.open "select * from post where post_name='"&post&"' and post_state='启用'",conn,1,1
if repost.bof and repost.eof then
response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_emly.asp');</script>"
end if
postid=repost(0)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel where post_id="&postid&"",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 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&"",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 id="" and pname="" and dept="请选择" and post="请选择" and grade="请选择" then
response.Redirect("Search_emly.asp")
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&"",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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -