company_interviewsend.asp

嘉缘人才6.0精简 ,很好用的人才系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<!--#include file="../inc/sendmail.asp" -->
<%link="company_interviewsend.asp?action="&request("action")&"&checks="&request("checks")&""%>
<!--#include file="checkcmember.asp" -->
<!--#include file="flagandexpend.asp"-->
<%
If CheckCFlag("Climits",4)=False Then
	alert "您无权使用面试邀请！",1 
else
	if CheckCFlag("Climits",5)=False Then
	alert "您的面试邀请次数达到最大限制，请联系客服进行帐号升级！",1 
	end if
End If
if trim(request("step"))="2" then
 action=CheckStr(trim(request("action")))
 checks=trim(request("checks"))
 hireid=clng(trim(request("hireid")))
 subject=CheckStr(trim(request("subject")))
 content=CheckStrbox(trim(request("content")))
 set rs=Server.CreateObject("Adodb.Recordset")
 sql="select hire_place,hire_comname,hire_email from job_c_hire where hire_id="&hireid
 rs.open sql,conn,1,1
  place=rs("hire_place")
  comname=rs("hire_comname")
  cemail=rs("hire_email")
 rs.close
 person=split(checks,",")
 '步骤：
 '1）存入企业的“邀请面试记录”
 '2）如果该人才是个人会员，则存入该会员的“面试通知”
 '3) 把工作申请记录中相应信息的面试标志置1
 for i=0 to ubound(person)
  id=trim(person(i))
  select case action '取出相关信息
   case "myreceive"   '收到应聘简历中触发
    sql="select * from job_c_myreceive where myreceive_id="&id
    rs.open sql,conn,1,1
    resumeid=rs("myreceive_resumeid")
    names=rs("myreceive_name")
    sex=rs("myreceive_sex")
    birth=rs("myreceive_birth")
    edu=rs("myreceive_edu")
	pmember=rs("myreceive_pmember")
    rs.close
	rs.open "select member_email from JOB_member where member_login='"&pmember&"'"
	if not(rs.eof) then
	    pmember_email=rs("member_email")
	end if
	rs.close
   case "myexpert"   '企业人才库触发
    sql="select * from job_c_myexpert where myexpert_id="&id
    rs.open sql,conn,1,1
    resumeid=rs("myexpert_resumeid")
    names=rs("myexpert_name")
    sex=rs("myexpert_sex")
    birth=rs("myexpert_birth")
    edu=rs("myexpert_edu")
	pmember=rs("myexpert_pmember")
    rs.close
   case "comrecycle"   '简历回收站触发
    sql="select * from job_c_recycle where comrecycle_id="&id
    rs.open sql,conn,1,1
    resumeid=rs("comrecycle_resumeid")
    names=rs("comrecycle_name")
    sex=rs("comrecycle_sex")
    birth=rs("comrecycle_birth")
    edu=rs("comrecycle_edu")
	pmember=rs("comrecycle_pmember")
    rs.close
   case "resume"   '简历上触发
	 sql="select * from job_p_resume where resume_id="&id
	 rs.open sql,conn,1,1
	 resumeid=rs("resume_id")
	 names=rs("resume_name")
	 sex=rs("resume_sex")
	 birth=rs("resume_birth")
	 edu=rs("resume_edu")
	 pmember=rs("resume_pmember")
	 rs.close
   case "search"   '搜索结果中触发
   	 sql="select * from job_p_resume where resume_id="&id
	 rs.open sql,conn,1,1
	 resumeid=rs("resume_id")
	 names=rs("resume_name")
	 sex=rs("resume_sex")
	 birth=rs("resume_birth")
	 edu=rs("resume_edu")
	 pmember=rs("resume_pmember")
	 rs.close
   end select
	sql="select * from job_c_interview" '存入企业的“邀请面试记录”
    rs.open sql,conn,3,3
    rs.addnew
    rs("cominterview_resumeid")=resumeid
    rs("cominterview_name")=names
    rs("cominterview_sex")=sex
    rs("cominterview_birth")=birth
    rs("cominterview_edu")=edu
    rs("cominterview_hireid")=hireid
	rs("cominterview_place")=place
	rs("cominterview_cmember")=cmember_login
	rs("cominterview_pmember")=pmember
	rs("cominterview_date")=now()
    rs.update 
    rs.close
	if pmember<>"" then  '如果该人才是个人会员，则存入该会员的“面试通知”
     sql="select * from job_p_myinterview"
     rs.open sql,conn,3,3
     rs.addnew
     rs("myinterview_hireid")=hireid
     rs("myinterview_comname")=comname
     rs("myinterview_place")=place
     rs("myinterview_pmember")=pmember
     rs("myinterview_cmember")=cmember_login
	 rs("myinterview_read")=0
	 rs("myinterview_title")=subject
	 rs("myinterview_content")=content
	 rs("myinterview_date")=now()
     rs.update 
     rs.close
	end if
	'把工作申请记录中相应信息的面试标志置1
	conn.execute("update job_p_mysend set mysend_interview=1 where mysend_hireid="&hireid&" and mysend_pmember='"&pmember&"'")
    '职位发送面试通知数加1
	conn.execute("update job_c_hire set hire_sendinterview=hire_sendinterview+1 where hire_id="&hireid)
   next
   set rs=nothing
   Call SendMail(pmember_email,subject&" 面试邀请职位："&place,content)
   response.write("<script language=javascript>alert('您的面试邀请已成功发送！');location.href='javascript:window.close()';</script>")
 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 fnRemoveBrank(strSource)
{
 return strSource.replace(/^\s*/,'').replace(/\s*$/,'');
}
function Juge(theForm)
{
 if (fnRemoveBrank(theForm.hireid.value) == "")
  {
    alert("请选择面试职位!");
	theForm.hireid.focus();
    return (false);
  }
  if (fnRemoveBrank(theForm.subject.value) == "")
  {
    alert("请输入邮件主题!");
	theForm.subject.focus();
    return (false);
  }
  if (fnRemoveBrank(theForm.content.value) == "")
  {
    alert("请输入邮件内容!");
	theForm.content.focus();
    return (false);
  }
 }
//-->
</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(2)%></ul>
</div>
<%Call Cmembermenu(3)%>
<div class="maintaba">
<span class="maintit">发送面试邀请</span>
        <%
 action=CheckStr(trim(request("action")))
 checks=trim(request("checks"))
 set rst=server.createobject("adodb.recordset")
%>
        <br class="br">
        <table width="98%"  border="0" align="center" cellpadding="4" cellspacing="0">
          <tr>
            <td class="prmtopborder2"><span class="font-title">您要邀请面试的人才如下：</span></td>
          </tr>
          <tr>
            <td valign="top" class="table2"><TABLE width=100% height="30" 
                  border=0 align=center cellPadding=3 cellSpacing=3 class="table2">
              <TBODY>
                <TR>
                  <TD align=center bgcolor="#E7E7E7" class="font-title">姓 
                    名</TD>
                  <TD align=center bgcolor="#E7E7E7" class="font-title">性 别</TD>
                  <TD align=center bgcolor="#E7E7E7" class="font-title">年 龄</TD>
                  <TD align=center bgcolor="#E7E7E7" class="font-title">学 历</TD>
                </TR>
                <%
					select case action
					 case "myreceive"  '收到应聘简历中触发
					  myreceive=split(checks,",")
                      for i=0 to ubound(myreceive)