📄 h_plan_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:520px; width:102px; height:17px; z-index:4">
<div align="center"><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 intStage
intStage=trim(Request.QueryString("stage")) '接收从task.asp页面传过来的值,表示需求计划的阶段
dim intTotalPut '总的记录条数
dim intCurrentPage '当前要显示的页数
dim intTotalPages '总的页数
Dim intSysRight '用户访问权限，可能值为1,2,1表示用户具有该操作的权限，
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 ""
' rs.Open
Case 0 '待录入待修改
intSysRight=checkin_sys(session("UsersId"),session("PerId"),6,0)
If intSysRight=0 Then
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
rs.Open "select * from invite where invite_stage='待录入' or invite_stage='待修改'",conn,3,3
case 1 '待初审
intSysRight=checkin_sys(session("UsersId"),session("PerId"),7,0)
If intSysRight=0 Then
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
rs.open "select inv.invite_id,inv.dept_name,inv.post_name,inv.invite_mannumber,inv.invite_requestdate,inv.invite_stage,ad.invaudit_id from invite as inv inner join inviteaudit as ad on inv.invite_id=ad.invite_id where ad.invaudit_stage='初审' and inv.invite_stage='待初审'",conn,3,3
case 2 '待二审
intSysRight=checkin_sys(session("UsersId"),session("PerId"),8,0)
If intSysRight=0 Then
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
rs.open "select inv.invite_id,inv.dept_name,inv.post_name,inv.invite_mannumber,inv.invite_requestdate,inv.invite_stage,ad.invaudit_id from invite as inv inner join inviteaudit as ad on inv.invite_id=ad.invite_id where ad.invaudit_stage='二审' and inv.invite_stage='待二审'",conn,3,3
case 3 '待三审
intSysRight=checkin_sys(session("UsersId"),session("PerId"),9,0)
If intSysRight=0 Then
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
rs.open "select inv.invite_id,inv.dept_name,inv.post_name,inv.invite_mannumber,inv.invite_requestdate,inv.invite_stage,ad.invaudit_id from invite as inv inner join inviteaudit as ad on inv.invite_id=ad.invite_id where ad.invaudit_stage='三审' and inv.invite_stage='待三审'",conn,3,3
case 4 '待发布
intSysRight=checkin_sys(session("UsersId"),session("PerId"),10,0)
If intSysRight=0 Then
Response.Write "<center>您没有此操作权限，如有问题请与系统管理员联系！</center>"
response.end
End if
rs.Open "select * from invite where invite_stage='待发布'",conn,3,3
Case 5
rs.Open "select * from invite where invite_stage='已发布'",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,"H_plan_splist.asp"
end if%>
<%sub ShowContent
dim i
i=0
%>
<table align="center" border="1" width="80%" cellspacing="0" cellpadding="0" class="table1">
<%select case intStage
case 0 %>
<tr><td colspan="6"><img src="..\images\sub01_05.jpg" align="absmiddle"><font size="3" face="华文仿宋" color="#183978">待录入及修改需求计划列表：</font></td></tr>
<%case 1%>
<tr><td colspan="6"><img src="..\images\sub01_05.jpg" align="absmiddle"><font size="3" face="华文仿宋" color="#183978">待初审需求计划列表：</font></td></tr>
<%case 2%>
<tr><td colspan="6"> <img src="..\images\sub01_05.jpg" align="absmiddle"><font size="3" face="华文仿宋" color="#183978">待二审需求计划列表：</font></td></tr>
<%case 3%>
<tr><td colspan="6"><img src="..\images\sub01_05.jpg" align="absmiddle"><font size="3" face="华文仿宋" color="#183978">待三审需求计划列表：</font></td></tr>
<%case 4%>
<tr><td colspan="6"><img src="..\images\sub01_05.jpg" align="absmiddle"><font size="3" face="华文仿宋" color="#183978">待发布需求计划列表：</font></td></tr>
<%case 5%>
<tr><td colspan="6"><img src="..\images\sub01_05.jpg" align="absmiddle"><font size="3" face="华文仿宋" color="#183978">已发布需求计划列表：</font></td></tr>
<% end select%>
<tr bgcolor="#eeeeee" height="25"><td width="10%" align="center">计划编号</td>
<td width="20%" align="center">招聘部门</td>
<td width="20%" align="center">招聘岗位</td>
<td width="10%" align="center">招聘人数</td>
<td width="20%" 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("invite_id")%></td>
<td align="center"><%if len(trim(rs("dept_name")))>16 then Response.Write left(trim(rs("dept_name")),14)&"..." else Response.write trim(rs("dept_name")) end if %></td>
<td align="center"><%if len(trim(rs("post_name")))>16 then Response.Write left(trim(rs("post_name")),14)&"..." else Response.write trim(rs("post_name")) end if %></td>
<td align="center"><%=rs("invite_mannumber")%></td>
<td align="center"><%=rs("invite_requestdate")%></td>
<td align="center">
<% if rs("invite_stage")="待发布" then%>
<a href="H_inform.asp?invid=<%=rs("invite_id")%>">发布</a>/<a href="H_plan_look.asp?invid=<%=rs("invite_id")%>">查看</a>
<%ElseIf rs("invite_stage")="待录入" then%>
<a href="H_plan.asp?stage=0&invid=<%=rs("invite_id")%>">录入</a>
<%ElseIf rs("invite_stage")="待修改" then%>
<a href="H_plan.asp?stage=5&invid=<%=rs("invite_id")%>">修改</a>
<%ElseIf rs("invite_stage")="已发布" then%>
<a href="R_resume.asp?stage=0&invid=<%=rs("invite_id")%>">申请</a>/<a href="H_plan_look.asp?invid=<%=rs("invite_id")%>">查看</a>
<%else%>
<a href="H_censor.asp?invid=<%=rs("invite_id")%>&inauid=<%=rs("invaudit_id")%>&stage=<%=intStage%>">审核</a>
<%end if%>
</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="&intCurrentPage-1&"&auditstage="&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&"&auditstage="&intStage&">尾页 </a>"
End If
Response.Write " 页次："&intCurrentPage&"/"&n&"页 "
Response.Write " 共有"&intTotalnumber&"条记录 "
Response.Write "<font size='2'>转到：</font><input type='text' name='page' size=2 maxlength=10 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 + -