📄 person_works.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%link="person_works.asp"%>
<!--#include file="checkpmember.asp" -->
<%
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.ExpiresAbsolute = Now() - 1 
Dim Action
Dim FoundErr,ErrMsg

Dim page,i
Dim totalPut
const MaxPerpage=20
Const strFileName="person_works.asp"
page=Trim(Request("page"))
If page<>"" And IsNumeric(page) Then
	If page<1 Or Len(page)>10 Then
		page=1
	Else
    	page=CLng(page)
	End If
Else
	page=1
End If
if trim(request("action"))<>"" then
  action=trim(request("action"))
  checks=trim(request("checks"))
  set rs=Server.CreateObject("Adodb.Recordset")
  mysend=split(checks,",")
  select case action
   case "delete"  '删除选中的应聘简历
    for i=0 to ubound(mysend)
	 id=trim(mysend(i))
	 conn.execute("delete from job_p_mysend where mysend_id="&id&"")
	next
  end select
  response.redirect "person_works.asp?page="&page&""
  response.end
 end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>工作申请记录--<%=SiteTitle%></title>
<link href="../css/<%=MainWebCss%>.css" rel="stylesheet" type="text/css" />
<script language="JavaScript">
<!--
  function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall')
       e.checked = form.chkall.checked;
    }
  }
  function showconfirm(id,page)
{
	var flag=false; //是否有选择职位信息
	var k=0;
	var refid;
	for(i=0;i<document.thisForm.elements.length;i++) 
	{
		if (document.thisForm.elements[i].name=="checks")
		{		
			if (document.thisForm.elements[i].checked==true) 
			{
				flag=true;
				break;
			}
		}
	}
	if (flag==false)
	{
		alert("请先选择一个职位！");
		return false;
	}
	//删除
	if (id==1)
	{
		if(confirm("您确定要删除选中的职位吗？")==true)
		{
			document.thisForm.action="person_works.asp?action=delete&page="+page+"";
			thisForm.submit();
		}
	}					
}
  //-->
</script></head>
<body>
<center>
<div id="head">
	<div id="logo"><img src="<%=SiteUrl&InstallDir&LogoUrl%>" alt="欢迎访问<%=SiteName%>" /></div>
	<div id="banner"><%Call Loginshow()%></div>
	<ul><%Call Membernav(1)%></ul>
</div>
<%Call Pmembermenu(3)%>
<div class="maintaba">
<span class="maintit">工作申请记录</span>
<%
Set rs= Server.CreateObject(FR_HR_RS)
	sql="select * from job_p_mysend,job_c_hire where mysend_pmember='"&pmember_login&"' and mysend_hireid = hire_id order by mysend_date desc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>暂无工作申请记录，请添加后再进行管理！</li>"
	else
		totalPut=rs.recordcount
		if (page-1)*MaxPerpage>totalput then
			if (totalPut mod MaxPerpage)=0 then
				page= totalPut \ MaxPerpage
			else
				page= totalPut \ MaxPerpage + 1
			end if
		end if
		if page=1 then
			Call MainInfo()
		else
			if (page-1)*MaxPerpage<totalPut then
				rs.move  (page-1)*MaxPerpage
				dim bookmark
				bookmark=rs.bookmark
				Call MainInfo()
			else
				page=1
				Call MainInfo()
			end if
		end if
	end if
	rs.close
	set rs=nothing
if FoundErr=True then
	call Show_Err()
end if
%>
<%Sub MainInfo()%>
<table width='98%' border='0' align='center' cellpadding='2' cellspacing='1' bgcolor="#99CCFF" class="tabb">
          <FORM name="thisForm" action="person_works.asp" method="post">
            <TR bgcolor="#E7E7E7">
			<TD height=29 align=middle><B>应聘职位</B></TD>
              <TD width="244" align=middle><B>公司名称</B></TD>
              <TD width="100" align=middle><B>申请时间</B></TD>
              <TD width="120" align=middle><B>投递的简历</B></TD>
              <TD width="78" align=middle><B>应聘人数</B></TD>
              <TD width="32" align=middle><IMG height=12 src="../images/sel_ico.gif" width=13> </TD>
            </TR>
            <%do while not rs.eof%>
			<TR align=middle bgColor=#f7f7f7>
			<TD height=30>
			<%if rs("hire_id")="" or isnull(rs("hire_id")) then%>
			<%=rs("mysend_place")%>（已删除）
			<%else
			 if (rs("hire_enddate")<date() or rs("hire_status")=0) then%>
			 <%=rs("mysend_place")%>（停止招聘）
			 <%else%>
			 <a href="<%=FormatLink(rs("hire_announcedate"),2,3,rs("hire_id"),0)%>" target="_blank"><%=rs("mysend_place")%></a>
			 <%end if
			 end if%>			</TD>
			<TD><%=rs("mysend_comname")%></TD>
			<TD><%=rs("mysend_date")%></TD>
			<TD><%=rs("mysend_resumename")%></TD>
			<TD><%=rs("hire_receiveresume")%></TD>
			<TD><input type="checkbox" name="checks" value="<%=rs("mysend_id")%>"></TD>
			</TR>
<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
		loop
	%>
            <TR bgcolor="#efefef">
              <TD height=24 colSpan=8 align=right>
                <INPUT name=chkall onClick="CheckAll(this.form)" type=checkbox value=on>
        选中所有职位&nbsp;&nbsp;
        <!--删除简历-->        <input name="Submit" type="button" class="inputa3" value="删　除" onClick=javascript:showconfirm(1,<%=page%>)>        </TD>
            </TR>
         
          <TR>
            <TD colSpan=10 align=right bgcolor="#f9f9f9"><%If totalput>0 Then
	Call Showpage(strFileName,totalput,MaxPerPage,false,true,"条申请记录")
End If%>            </TD>
          </TR>
		 </form>
    </TABLE>
<%End Sub%>
</div>
<%call bottom()
conn.close:set conn=nothing%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -