📄 h_plan_manage.asp.bak

📁 武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.
💻 BAK
字号:
<%@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: 49px; top: 180px;">
<!--内容开始-->
<% Dim intSysRight
   intSysRight=checkin_sys(session("UsersId"),session("PerId"),6,0)
%>
<form name="form1" method="post" action="H_plan_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>
      </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")) '接收get方式传入的关键字
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 invite where invite_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 invite where invite_id like '%"&strKeyWord&"%'",conn,3,3
case "2"
rs.Open "select * from invite where dept_name like '%"&strKeyWord&"%'",conn,3,3
case "3"
rs.Open "select * from invite where post_name like '%"&strKeyWord&"%'",conn,3,3
case "4"
rs.Open "select * from invite where invite_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,"H_plan_manage.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="9"><img src="..\images\sub01_05.jpg"  align="absmiddle"><font size="3" face="华文仿宋" color="#183978">需求计划列表：</font></td></tr>
<tr height="25" bgcolor="#eeeeee"><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>
 <%ElseIf rs("invite_stage")="待录入" then%>
 <a href="H_plan.asp?stage=0&invid=<%=rs("invite_id")%>">录入</a>
 <%ElseIf rs("invite_stage")="待修改" Or rs("invite_stage")="待初审" then%>
 <a href="H_plan.asp?stage=5&invid=<%=rs("invite_id")%>">修改</a> /<a href="H_plan_look.asp?invid=<%=rs("invite_id")%>">查看</a>
<%ElseIf rs("invite_stage")="过期" Or rs("invite_stage")="待初审"then%>
 <a href="H_plan_save.asp?stage=0&action=del&invid=<%=rs("invite_id")%>" onClick="test()">删除</a> /<a href="H_plan_look.asp?invid=<%=rs("invite_id")%>">查看</a>
 <%else%>
 <a href="H_plan_look.asp?invid=<%=rs("invite_id")%>">查看</a>
 <%end if%>
 </td>
 </tr>
 <% i=i+1
   rs.MoveNext
   loop
   rs.Close
   set rs=nothing %>
</table>
 <%end sub%>
 
<%
Function showpage(Totalnumber,TotalPages,filename)  
Dim n
n = TotalPages
Response.Write "<form method='Post' action="&filename&"?&selField="&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&selFiled="&strFiled&"&KeyWord="&strKeyWord&">首页</a> "  
	Response.Write "<a href="&filename&"?page="&intCurrentPage-1&"&selFiled="&strFiled&"&KeyWord="&strKeyWord&">上一页</a> "  
End If
				
If n-intCurrentPage<1 Then  
	Response.Write "<font color='red'>下一页 尾页</font>"  
Else  
	Response.Write "<a href="&filename&"?page="&(intCurrentPage+1)&"&selFiled="&strFiled&"&KeyWord="&strKeyWord&">"  
	Response.Write "下一页</a> <a href="&filename&"?page="&n&"&selFiled="&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 "&nbsp;<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 + -