📄 search_files.asp
字号:
<td width="12%"><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 pstudy.eof%>
<tr>
<td><div align="center"><%=pstudy("personnel_id")%></div></td>
<td><div align="center"><%=pstudy("study_ename")%></div></td>
<td><div align="center"><%=pstudy("study_sdate")%></div></td>
<td><div align="center"><%=pstudy("study_ldate")%></div></td>
<td><div align="center"><%=pstudy("study_realize")%></div></td>
<td><div align="center"><%=pstudy("study_remark")%></div></td>
</tr>
<tr>
<td height="1" colspan="9" bgcolor="#EEEEEE"></td>
</tr>
<%pstudy.movenext:wend%>
</table>
<%
pstudy.close
set pstudy=nothing
end if
'<1完>-----------------------------------------------------------------------------------------------
else '--------------------------------------------------------------------------------------------------
'部门名称
set dept=server.CreateObject("adodb.recordset")
dept.open "select * from dept where dept_name like '%"&txt&"%'",conn,1,1
'岗位名称
set post=server.CreateObject("adodb.recordset")
post.open "select * from post where post_name like '%"&txt&"%'",conn,1,1
'行政级别名称
set level=server.CreateObject("adodb.recordset")
level.open "select * from plevel where plevel_name like '%"&txt&"%'",conn,1,1
if dept.bof and dept.eof then
deptid=txt
else
deptid=dept("dept_id")
end if
if post.bof and post.eof then
postid=txt
else
postid=post("post_id")
end if
if level.bof and level.eof then
levelid=txt
else
levelid=level("plevel_id")
end if
if sel="基本信息档案" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from personnel where personnel_id like '%"&txt&"%' or dept_id like '%"&deptid&"%' or post_id like '%"&postid&"%' or personnel_name like '%"&txt&"%' or personnel_state like '%"&txt&"%' or personnel_nation like '%"&txt&"%' or personnel_sex like '%"&txt&"%' or personnel_birthday like '%"&txt&"%' or personnel_educ like '%"&txt&"%' or personnel_marry like '%"&txt&"%' or personnel_idcode like '%"&txt&"%' or personnel_political like '%"&txt&"%' or personnel_hometown like '%"&txt&"%' or personnel_address like '%"&txt&"%' or personnel_postcode like '%"&txt&"%' or personnel_mphone like '%"&txt&"%' or personnel_fphone like '%"&txt&"%' or personnel_email like '%"&txt&"%' or resume_id like '%"&txt&"%' or personnel_level like '%"&txt&"%' or personnel_skill like '%"&txt&"%' or personnel_sdate like '%"&txt&"%' or personnel_ldate like '%"&txt&"%' or personnel_descript like '%"&txt&"%' or personnel_graduate like '%"&txt&"%' or plevel_id like '%"&levelid&"%' or work_property like '%"&txt&"%' or personnel_major like '%"&txt&"%' and personnel_state!='离职'",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>基本信息档案</font></div>")
if rs.bof and rs.eof then
response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_file.asp');</script>"
else
%>
<table width="90%" align="center" border="0" cellspacing="0" cellpadding="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>
<%
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%>&text=<%=txt%>">首页</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%>&text=<%=txt%>">上一页</a>
<%
for i=1 to rs.pagecount
response.Write("<a href=""Search_fileS.asp?page="&i&"&term=1&select="&sel&"&text="&txt&""">"&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%>&text=<%=txt%>">下一页</a> <a href="Search_fileS.asp?page=<%=rs.pagecount%>&term=1&select=<%=sel%>&text=<%=txt%>">尾页</a> <%=currentpage%>/<%=rs.pagecount%>页</div>
<%
end if
end if
'--------------------------------------------------------------------------------------------------
if sel="证照档案" then
set card=server.CreateObject("adodb.recordset")
card.open "select * from card where personnel_id like '%"&txt&"%' or certificate_id like '%"&txt&"%' or card_time like '%"&txt&"%' or card_number like '%"&txt&"%' or card_place like '%"&txt&"%' or card_remark like '%"&txt&"%'",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>证照档案</font></div>")
if card.bof and card.eof then
response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_file.asp');</script>"
else
%>
<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>
<%
end if
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 where personnel_id like '%"&txt&"%' or work_cpname like '%"&txt&"%' or work_sdate like '%"&txt&"%' or work_ldate like '%"&txt&"%' or work_lreason like '%"&txt&"%' or cast(work_money as varchar(20)) like '%"&txt&"%' or work_remark like '%"&txt&"%'",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>工作档案</font></div>")
if work.bof and work.eof then
response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_file.asp');</script>"
else
%>
<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>
<%
end if
work.close
set work=nothing
end if
'-------------------------------------------------------------------------------------------------
if sel="技能档案" then
set skill=server.CreateObject("adodb.recordset")
skill.open "select * from skill where personnel_id like '%"&txt&"%' or skill_technic like '%"&txt&"%' or skill_level like '%"&txt&"%' or skill_descript like '%"&txt&"%' or skill_remark like '%"&txt&"%'",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>技能档案</font></div>")
if work.bof and work.eof then
response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_file.asp');</script>"
else
%>
<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>
<%
end if
skill.close
set skill=nothing
end if
'---------------------------------------------------------------------------------------------------
if sel="合同档案" then
set pact=server.CreateObject("adodb.recordset")
pact.open "select * from pact where personnel_id like '%"&txt&"%' or pactdata_id like '%"&txt&"%' or pact_sdate like '%"&txt&"%' or pact_ldate like '%"&txt&"%' or pact_remark like '%"&txt&"%'",conn,1,1
response.Write("<div align='center'><font color='#0099FF'>合同档案</font></div>")
if pact.bof and pact.eof then
response.Write "<script>alert('对不起！没有您要的资料！');window.location.href('Search_file.asp');</script>"
else
%>
<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%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -