📄 r_resume_manage.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 language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<div id="Layer2" style="position:absolute; left:815px; top:520; width:78px; height:16px; z-index:4">
<div align="right"><a href="task.asp">返回</a></div>
</div>
<!--#include file="../Include/conn.asp"-->
<!--#include file="../Include/Head.asp"-->
<!--#include file="Syscheck.asp"-->
<div id="content" style="position:absolute; width:90%; height:115px; z-index:3; left: 49px; top: 180px;">
<!--内容开始-->
<%If session("PerId")="" Or session("UsersId")="" Then
response.write "<script language='javascript'>alert('网页超时，请重新登陆！');location.href='../index.asp'</script></center>"
response.End
End if
Dim intSystemRight
intSystemRight=checkin_sys(session("UsersId"),session("PerId"),16,0)
'response.write intSystemRight
'response.end%>
<form name="form1" method="post" action="R_resume_manage.asp">
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0" border="0">
<tr>
<td><select name="selField">
<option value="0">--请选择查询方式--</option>
<option value="1">简历编号</option>
<option value="2">招聘计划编号</option>
<option value="3">应聘人姓名</option>
<option value="4">应聘部门</option>
<option value="5">应聘岗位</option>
<option value="6">简历状态</option>
</select></td>
<td>关键字：</td>
<td><input type="text" name="txtKeyWord" size="20" onFocus="this.value=''" value="请输入关键字" >
</td>
<td><input type="submit" name="Submit" value="查询" class="button"></td>
</tr></table>
</form>
<%
strField=trim(Request.Form("selField")) '接收查询输入的查询方式
strKeyWord=trim(Request.Form("txtKeyWord")) '接收查询输入的关键字
if strKeyWord="" then
strKeyWord=trim(Request.QueryString("KeyWord"))
end if
if strField="" then
strField=trim(Request.QueryString("Filed"))
end If
set rs=server.CreateObject("adodb.recordset")
%>
<%
dim intTotalPut '总的记录条数
dim intCurrentPage '当前要显示的页数
dim intTotalPages '总的页数
if Not isempty(request("page")) then '判断当前要显示的页数是否为空，为空的话让他显示第一页
intCurrentPage=Cint(request("page")) '否则将接收的字符型数据转换为整型数据
else
intCurrentPage=1
end if
select case strField
case "" '为空时显示所有的记录
rs.Open "select * from resume where resume_stage in ('待初审','待二审','待三审','待终审','待入职','已入职','待修改')",conn,3,3
case "0" '没有选择查询方式
response.write "<script language=javascript>alert('请选择查询的方式!');history.go(-1);</script>"
response.End
case "1" '按简历编号查询
rs.Open "select * from resume where resume_id like '%"&strKeyWord&"%'",conn,3,3
case "2" '按招聘计划编号查询
rs.Open "select * from resume where invite_id like '%"&strKeyWord&"%'",conn,3,3
case "3" '按姓名查询
rs.Open "select * from resume where resume_pname like '%"&strKeyWord&"%'",conn,3,3
case "4" '按应聘部门查询
rs.Open "select * from resume where resume_dept like '%"&strKeyWord&"%'",conn,3,3
case "5" '按应聘岗位查询
rs.Open "select * from resume where resume_post like '%"&strKeyWord&"%'",conn,3,3
case "6" '按简历状态查询
rs.Open "select * from resume where resume_stage like '%"&strKeyWord&"%'",conn,3,3
end select
if rs.BOF and rs.EOF then
Response.Write "<p align='center'> 数据库中无数据！</p>"
else'第一个记录集中没有数据
intTotalPut=rs.recordcount '将记录集中总的记录条数赋给totalPut
rs.PageSize=8
intTotalPages=rs.PageCount '总的页数
if intCurrentPage<1 then
intCurrentPage=1
elseif intCurrentPage>=intTotalPages then
intCurrentPage=intTotalPages
end if
rs.AbsolutePage = cint(intCurrentPage)
showContent
showpage intTotalput,intTotalPages,"R_resume_manage.asp"
end if%>
<%
sub showContent
dim i
i=0
%><form name="form1" method="post" action="">
<table align="center" border="1" width="80%" colspan="0" cellspacing="0" cellpadding="0" class="table1">
<tr><td colspan="9"><img src="..\images\sub01_05.jpg" align="absmiddle"><font size="3" face="华文仿宋" color="#183978">简历列表：</font></td></tr>
<tr bgcolor="#eeeeee" height="25"><td width="10%"><div align="center">简历编号</div></td>
<td width="10%"><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 width="20%"><div align="center" >操作</div></td>
</tr>
<% do while not rs.EOF and i<rs.PageSize%>
<tr height="25"><td align="center"><%=rs("resume_id")%></td>
<td align="center"> <%=rs("invite_id")%></td>
<td align="center"> <%=rs("resume_pname")%></td>
<td align="center"> <%if len(trim(rs("resume_dept")))>16 then Response.Write left(trim(rs("resume_dept")),14)&"..." else Response.write trim(rs("resume_dept")) end if %></td>
<td align="center"> <%if len(trim(rs("resume_post")))>16 then Response.Write left(trim(rs("resume_post")),14)&"..." else Response.write trim(rs("resume_post")) end if %></td>
<td align="center"> <%=rs("resume_psex")%></td>
<td align="center"> <%=rs("resume_pbirthday")%></td>
<td align="center"> <%=rs("resume_peduc")%></td>
<td align="center">
<% If intSystemRight = 1 then%>
<%if rs("resume_stage")="待入职" then%><a href="R_censor.asp?stage=5&resid=<%=rs("resume_id")%>">入职</a>
<%elseif rs("resume_stage")="已入职" or rs("resume_stage")="淘汰" then%><a href="R_resume_save.asp?stage=0&action=del&resid=<%=rs("resume_id")%>" onClick="test()">删除</a>/<a href="R_resume_look.asp?resid=<%=rs("resume_id")%>">查看</a>
<%elseif rs("resume_stage")="待初审" then%><a href="R_resume.asp?stage=5&resid=<%=rs("resume_id")%>">修改</a>/<a href="R_resume_look.asp?resid=<%=rs("resume_id")%>">查看</a>
<%else%><a href="R_resume_look.asp?resid=<%=rs("resume_id")%>">查看</a>
<%end If
Else
%><a href="R_resume_look.asp?resid=<%=rs("resume_id")%>">查看</a>
<%End if%>
</td>
</tr>
<% i=i+1
rs.MoveNext
loop
rs.Close
set rs=nothing %>
</table></form>
<%end sub%>
<%
Function showpage(Totalnumber,TotalPages,filename)
Dim n
n = TotalPages
Response.Write "<form method='Post' action="&filename&"?&Field="&strFiled&"&KeyWord="&strKeyword&" id=form1 name=form1>"
Response.Write "<p align='center'> "
If intCurrentPage<2 Then
Response.Write "<font color='red'>首页 上一页 </font>"
Else
Response.Write "<a href="&filename&"?page=1&Filed="&strFiled&"&KeyWord="&strKeyWord&">首页</a> "
Response.Write "<a href="&filename&"?page="&intCurrentPage-1&" >上一页</a> "
End If
If n-intCurrentPage<1 Then
Response.Write "<font color='red'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(intCurrentPage+1)&"&Filed="&strFiled&"&KeyWord="&strKeyWord&">"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&Filed="&strFiled&"&KeyWord="&strKeyWord&">尾页 </a>"
End If
Response.Write " 页次："&intCurrentPage&"/"&n&"页 "
Response.Write " 共有"&totalnumber&"个简历 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&intCurrentPage&">"
Response.Write " <input type='submit' value='GO' name='cndok'></form>"
End Function
%>
<!--#include file="../Include/bottom.asp"-->
<!--内容结束-->
</div>
</body>
</html>
<script>
function test()
{
if(!confirm('确认删除吗？')) return false;
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -