📄 r_resume_list.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: 48px; top: 190px;">
<%
If session("PerId")="" Or session("UsersId")="" Then
response.write "<script language='javascript'>alert('网页超时，请重新登陆！');location.href='../index.asp'</script></center>"
response.End
End if
dim rs1
set rs1=server.createobject("adodb.recordset")
rs1.open "select dept_id from personnel where personnel_id="&session("PerId"),conn,3,3 '获得登陆者的部门ID
dim intStage
intStage=trim(Request.QueryString("stage")) '接收简历的状态
dim intTotalPut '总的记录条数
dim intCurrentPage '当前要显示的页数
dim intTotalPages '总的页数
dim intSysRight
if Not isempty(request("page")) then '判断当前要显示的页数是否为空，为空的话让他显示第一页
intCurrentPage=Cint(request("page")) '否则将接收的字符型数据转换为整型数据
else
intCurrentPage=1
end if
dim rs
set rs=server.createobject("adodb.recordset")
select case intStage
case 1 '简历初审
intSysRight=checkin_sys(session("UsersId"),session("PerId"),12,0) '判断用户是否拥有初审的权限
If intSysRight=0 Then '此为无权限时的状态
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
rs.open "select * from resume where resume_stage='待初审'",conn,3,3
rs1.close
set rs1=nothing
case 2 '简历二审
intSysRight=checkin_sys(session("UsersId"),session("PerId"),13,rs1("dept_id"))
if intSysRight=2 then
rs.open "select * from resume where resume_stage='待二审' and resume_dept=(select dept_name from dept where dept_id="&rs1("dept_id")&")",conn,3,3
else
response.write "<center>对不起，你没有该操作权限，请与管理员联系！</center>"
response.end
end if
rs1.close
set rs1=nothing
case 3 '简历三审
intSysRight=checkin_sys(session("UsersId"),session("PerId"),14,rs1("dept_id"))
if intSysRight=2 then
rs.open "select * from resume where resume_stage='待三审' and resume_dept=(select dept_name from dept where dept_id="&rs1("dept_id")&")",conn,3,3
else
response.write "<center>对不起，你没有该操作权限，请与管理员联系！</center>"
response.end
end if
rs1.close
set rs1=nothing
case 4 '简历终审
intSysRight=checkin_sys(session("UsersId"),session("PerId"),15,0)
If intSysRight=0 Then
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
rs.open "select * from resume where resume_stage='待终审'",conn,3,3
rs1.close
set rs1=nothing
case 5 '简历入职
intSysRight=checkin_sys(session("UsersId"),session("PerId"),11,0)
If intSysRight=0 Then
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
rs.open "select * from resume where resume_stage='待入职'",conn,3,3
rs1.close
set rs1=nothing
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_splist.asp"
end if
sub showContent
dim i
i=0
%>
<table align="center" border="1" width="80%" cellspacing="0" cellpadding="0" class="table1">
<tr ><td colspan="7"><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%" align="center">简历编号</td>
<td align="center">姓名</td>
<td align="center">性别</td>
<td align="center">学历</td>
<td align="center">应聘部门</td>
<td align="center">应聘岗位</td>
<td width="20%" align="center">操作</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("resume_pname")%></td>
<td align="center"> <%=rs("resume_psex")%></td>
<td align="center"> <%=rs("resume_peduc")%></td>
<td align="center"> <%=rs("resume_dept")%></td>
<td align="center"> <%=rs("resume_post")%></td>
<td align="center">
<a href="R_censor.asp?stage=<%=intStage%>&resid=<%=rs("resume_id")%>">审核</a></td>
</tr>
<% i=i+1
rs.MoveNext
loop
rs.Close
set rs=nothing %>
</table>
<%end sub
Function showpage(intTotalnumber,intTotalPages,strFileName)
Dim n
n = intTotalPages
Response.Write "<form method='Post' action="&strFileName&"?stage="&intStage&" id=form1 name=form1>"
Response.Write "<p align='center'> "
If intCurrentPage<2 Then
Response.Write "<font color='red'>首页 上一页 </font>"
Else
Response.Write "<a href="&strFileName&"?page=1&stage="&intStage&">首页</a> "
Response.Write "<a href="&strFileName&"?page="&CurrentPage-1&"&stage="&intStage&" >上一页</a> "
End If
If n-intCurrentPage<1 Then
Response.Write "<font color='red'>下一页 尾页</font>"
Else
Response.Write "<a href="&strFileName&"?page="&(intCurrentPage+1)&"&stage="&intStage&">"
Response.Write "下一页</a> <a href="&strFileName&"?page="&n&"&stage="&intStage&">尾页 </a>"
End If
Response.Write " 页次："&intCurrentPage&"/"&n&"页 "
Response.Write " 共有"&intTotalnumber&"个未审核简历 "
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -