📄 search_files.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%; z-index:3; left: 48px; top: 178px;">
<!--内容开始 response.write ""response.write response.write " then"-->
<%
call checkin_sys(session("UsersId"),session("PerId"),25)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td><form name="form1" method="post" action="Search_fileS.asp?term=0" onSubmit="return Validator.Validate(this,2)">
<div align="center">
<select name="select">
<option selected>请选择</option>
<option>基本信息档案</option>
<option>证照档案</option>
<option>工作档案</option>
<option>技能档案</option>
<option>合同档案</option>
<option>学习档案</option>
</select>
关键字：
<input type="text" name="text" datatype="CEN" msg="不能输入非法字符！">
<input type="submit" name="Submit" value="搜索" class="submit">
</div></form></td>
</tr>
<tr>
<td>
<%
terms=request.QueryString("term")
if terms=0 then
sel=request.Form("select")
txt=request.Form("text")
else
sel=request.QueryString("select")
txt=request.QueryString("text")
end if
if sel<>"请选择" then
if txt="" then
'--------------------------------------------------------------------------------------------------
if sel="基本信息档案" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel where personnel_state!='离职'",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>基本信息档案</font></div>")
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" colspan="9" background="../images/Table_bj/t-lin.gif"></td>
</tr>
<tr>
<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>
<td><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><div align="center"><%=rs("personnel_id")%></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("personnel_name")%></div></td>
<td><div align="center"><%=rs("personnel_sex")%></div></td>
<td><div align="center"><%=rs("personnel_birthday")%></div></td>
<td><div align="center"><%=rs("personnel_educ")%></div></td>
<td><div align="center"><a href="Show_emly.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>
<div align="center">
<a href="Search_fileS.asp?page=1&term=1&select=<%=sel%>">首页</a> <a href="Search_fileS.asp?page=
<%
if currentpage-1 < 1 then
response.Write 1
else
response.Write currentpage-1
end if
%>&term=1&select=<%=sel%>">上一页</a>
<%
for i=1 to rs.pagecount
response.Write "<a href=""Search_fileS.asp?page="&i&"&term=1&select="&sel&""">"&i&"</a> "
next
%>
<a href="Search_fileS.asp?page=
<%
if currentpage+1 >= rs.pagecount then
response.Write rs.pagecount
else
response.Write currentpage+1
end if
%>&term=1&select=<%=sel%>">下一页</a> <a href="Search_fileS.asp?page=<%=rs.pagecount%>&term=1&select=<%=sel%>">尾页</a> <%=currentpage%>/<%=rs.pagecount%>页</div>
<!--内容结束-->
<%
end if
'--------------------------------------------------------------------------------------------------
if sel="证照档案" then
set card=server.CreateObject("adodb.recordset")
card.open "select * from card",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>证照档案</font></div>")
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" colspan="9" background="../images/Table_bj/t-lin.gif"></td>
</tr>
<tr>
<td width="18%"><div align="center">员工编号</div></td>
<td width="18%"><div align="center">证件名称</div></td>
<td width="18%"><div align="center">有效期</div></td>
<td width="18%"><div align="center">证件编号</div></td>
<td width="18%"><div align="center">发证机构</div></td>
<td width="18%"><div align="center">备注:</div></td>
</tr>
<tr class="tr1">
<td height="3" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%while not card.eof%>
<tr>
<td><div align="center"><%=card("personnel_id")%></div></td>
<td><div align="center">
<%
certid=card("certificate_id")
set cert=server.CreateObject("adodb.recordset")
cert.open "select * from certificate where certificate_id="&certid&"",conn,1,1
response.Write cert("certificate_name")
%>
</div></td>
<td><div align="center"><%=card("card_time")%></div></td>
<td><div align="center"><%=card("card_number")%></div></td>
<td><div align="center"><%=card("card_place")%></div></td>
<td><div align="center"><%=card("card_remark")%></div></td>
</tr>
<tr>
<td height="1" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%card.movenext:wend%>
</table>
<%
cert.close
set cert=nothing
card.close
set card=nothing
end if
'--------------------------------------------------------------------------------------------------
if sel="工作档案" then
set work=server.CreateObject("adodb.recordset")
work.open "select * from work",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>工作档案</font></div>")
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" colspan="9" background="../images/Table_bj/t-lin.gif"></td>
</tr>
<tr>
<td width="8%"><div align="center">员工编号</div></td>
<td width="15%"><div align="center">公司名称</div></td>
<td width="12%"><div align="center">开始工作时间</div></td>
<td width="12%"><div align="center">离职时间</div></td>
<td width="12%"><div align="center">离职原因</div></td>
<td width="10%"><div align="center">薪酬待遇</div></td>
<td><div align="center">备注</div></td>
</tr>
<tr class="tr1">
<td height="3" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%while not work.eof%>
<tr>
<td><div align="center"><%=work("personnel_id")%></div></td>
<td><div align="center"><%=work("work_cpname")%></div></td>
<td><div align="center"><%=work("work_sdate")%></div></td>
<td><div align="center"><%=work("work_ldate")%></div></td>
<td><div align="center"><%=work("work_lreason")%></div></td>
<td><div align="center"><%=work("work_money")%></div></td>
<td><div align="center"><%=work("work_remark")%></div></td>
</tr>
<tr>
<td height="1" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%work.movenext:wend%>
</table>
<%
work.close
set work=nothing
end if
'-------------------------------------------------------------------------------------------------
if sel="技能档案" then
set skill=server.CreateObject("adodb.recordset")
skill.open "select * from skill",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>技能档案</font></div>")
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" colspan="9" background="../images/Table_bj/t-lin.gif"></td>
</tr>
<tr>
<td width="18%"><div align="center">员工编号</div></td>
<td width="18%"><div align="center">技能名称</div></td>
<td width="18%"><div align="center">技能职称</div></td>
<td width="18%"><div align="center">技能描述</div></td>
<td><div align="center">备注</div></td>
</tr>
<tr class="tr1">
<td height="3" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%while not skill.eof%>
<tr>
<td><div align="center"><%=skill("personnel_id")%></div></td>
<td><div align="center"><%=skill("skill_technic")%></div></td>
<td><div align="center"><%=skill("skill_level")%></div></td>
<td><div align="center"><%=skill("skill_descript")%></div></td>
<td><div align="center"><%=skill("skill_remark")%></div></td>
</tr>
<tr>
<td height="1" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%skill.movenext:wend%>
</table>
<%
skill.close
set skill=nothing
end if
'---------------------------------------------------------------------------------------------------
if sel="合同档案" then
set pact=server.CreateObject("adodb.recordset")
pact.open "select * from pact",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>合同档案</font></div>")
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" colspan="9" background="../images/Table_bj/t-lin.gif"></td>
</tr>
<tr>
<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 class="tr1">
<td height="3" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%while not pact.eof%>
<tr>
<td><div align="center"><%=pact("personnel_id")%></div></td>
<td><div align="center">
<%
pactdata=pact("pactdata_id")
set pactd=server.CreateObject("adodb.recordset")
pactd.open "select * from pactdata where pactdata_id="&pactdata&"",conn,1,1
response.Write pactd("pact_name")
%>
</div></td>
<td><div align="center"><%=pact("pact_sdate")%></div></td>
<td><div align="center"><%=pact("pact_ldate")%></div></td>
<td><div align="center"><%=pact("pact_remark")%></div></td>
</tr>
<tr>
<td height="1" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%pact.movenext:wend%>
</table>
<%
pactd.close
set pactd=nothing
pact.close
set pact=nothing
end if
'---------------------------------------------------------------------------------------------------
if sel="学习档案" then
set pstudy=server.CreateObject("adodb.recordset")
pstudy.open "select * from pstudy",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>学习档案</font></div>")
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="3" colspan="9" background="../images/Table_bj/t-lin.gif"></td>
</tr>
<tr>
<td width="18%"><div align="center">员工编号</div></td>
<td width="15%"><div align="center">培训机构名称</div></td>
<td width="12%"><div align="center">开始培训时间</div></td>
<td width="12%"><div align="center">毕业时间</div></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -