<% Option Explicit Response.Buffer=True Dim objCn,objRst,objRst1,strSql,strWhere,i,strplace,stredulevel,i_,Asc_,pos_,ch_ Dim TotalCount,iPageCount,Upage,Dpage,RowsPerpage,iPageNo,tmpStr,j,intShowPage,intStyle,stredu,intPubDays,strZwMC,strFind,strarea,strCity Dim strLanguage,strAge,strSex,strAddress,strAdr_province,strAdr_city,strClickedUrl %> 服务程序--猎头服务--中国工程机械人才网 <% ////2个过程用来显示城市信息 sub fun(str,str1) dim lnglen,pt,sub1,sub2 if str="" then str="任何省份_无限制" end if lnglen=len(str) pt=instr(str,"_") sub1=left(str,pt-1) sub2=right(str,lnglen-pt) if str1=sub1 then response.write "" else response.write "" end if end sub sub fun1(str) dim lnglen,pt,sub1,sub2 if str="" then str="任何省份_无限制" end if lnglen=len(str) pt=instr(str,"_") sub2=right(str,lnglen-pt) response.write "" end sub Function ShowMIDLink(Mid_) Dim str1 ShowMIDLink="" str1="" If Trim(MID_)<>"" Then objRst1.Open "Select PID,ID,Corporation From Members Where Ucase(ID)='"&Ucase(MID_)&"'",objCn If (Not objRst1.Eof) Then If (Trim(objRst.Fields("PID")<>"")) Then str1=""&objRst.Fields("Corporation")&"" Else str1=objRst1.Fields("corporation") End If End if //----临时的-- str1=""&MID_&"" objRst1.Close End If ShowMIDLink=str1 End Function strarea=request("Province") If strArea="工作地点" then strArea="" strcity=request("city") strplace=strarea&"_"&strcity If strPlace="_" Then strPlace="" stredulevel=Request("t_edu") intPubDays=Request("txtPubDays") If intPubDays="" then intpubDays=30 strLanguage=Request("t_language") strAge=Request("t_age") strSex=Request("t_sex") strAdr_province=request("Province_adr") // If strArea="任何省份" then strArea="" strAdr_city=request("city_adr") strAddress=strAdr_province&"_"&strAdr_city If strAddress="_" Then strAddress="" strZwMc="输入职位名称" strFind=Request("txtFind") If strFind="" Then strFind=strZwMC Set objCn=Server.CreateObject("ADODB.Connection") Set objRst=Server.CreateObject("ADODB.RecordSet") Set objRst1=Server.CreateObject("ADODB.RecordSet") objCn.Open "webdb" strWhere=" Where 1>0 " If (stredulevel<>"") and ( stredulevel<>"00") Then strWhere=strWhere&" and edulevel like '%"&strEduLevel&"%'" End If If intPubDays<>"" Then strWhere=strWhere&" and pubdate>= current date - "& intPubDays&" days" End If If (strFind<>"") and (strFind<>strZwMC) Then strWhere=strWhere&" and willing like "&likestring(strfind) End If If (strPlace<>"") and (strArea<>"任何省份") Then If (strcity="") or (strCity="无限制") Then strWhere=strWhere&" and workplace like '%"&strarea&"%'" Else strWhere=strWhere&" and workplace like '%"&strPlace&"%'" End if End If If strLanguage<>"00" and strLanguage<>"" Then strWhere=strWhere&" and language="&Sqlstring(strLanguage,"") If strAge<>"00" and strAge<>"" Then strWhere=strWhere&" and age<="&strAge If strSex<>"00" and strSex<>"" Then strWhere=strWhere&" and sex="&SqlString(strSex,"") End If //---户口- If (strAddress<>"") and (stradr_province<>"任何省份") Then If (stradr_city="") or (stradr_city="无限制") Then strWhere=strWhere&" and address like '%"&stradr_province&"%'" Else strWhere=strWhere&" and Address like '%"&strAddress&"%'" End if End If // Response.write strWhere //----统计记录数------------------------------------------------------------- strSql="Select count(ID) From Rc_person "&strWhere objRst.Open strSql,objCn TotalCount=0 TotalCount=Cint(objRst.Fields(0)) objRst.Close //-----页数------------------------------------------------------- iPageNo=1 //页码 If (IsEmpty(Request("ipageno"))) or (Request("ipageno")="") Then iPageNo=1 Else iPageNo=Cint(Request("ipageno")) End If iPageCount=0 //总页数 RowsPerpage=34 //每页显示的最大条数 If iPageNo=1 Then Upage=1 Else Upage=iPageNo-1 End If If iPageNo=iPageCount Then Dpage=iPageCount Else Dpage=iPageNo+1 End If If TotalCount mod RowsPerpage=0 Then iPageCount=totalcount\RowsPerpage Else iPageCount=totalcount\RowsPerpage+1 End If If TotalCount=0 Then iPageCount=0 iPageNo=0 Upage=0 Dpage=0 End If %>

工程机械高级人员库
加入工程机械培训中心
猎头服务需求在线提交

您现在的位置:首页 >> 猎头服务

  将密切保持与客户的联系。希望客户公司提供一套完整的书面资料,包括面向世界的发展战略或战略设想、经营范围、主体业务等概况,希望安排实地考察。
  我们将不辞劳顿,尽心尽力,在认真调研、掌握实际情况和具体要求的基础上,严格遵循一流质量原则,确保符合客户的高标准和长远利益。 
一、 岗位、职务与人员要求分析
   与客户公司人力资源部经理及用人部门高级经理开会商讨,详细了解招聘职位、职责说明、聘用规格、年薪标准及其他配套待遇等信息。我们将根据这些条件和公司背景与文化进行目标分析,以明确客户公司用人的真正需求。 
二、 提交访寻建议书
   根据上面分析结果,我们会在1-2天内给客户提交一份寻访建议书。其中包括:所需人才的素质、能力等各项指标;可能薪资状况;大致的人才访寻区域、访寻途径、服务费用、付费办法及跟踪服务等项目。 
三、 签定协议书
   通过协商,在达成一致的情况下,双方将签定一份协议书,协议书中将明确双方的责任与义务,自签定之日起,协议书生效,双方按协议条款实施。 
四、 人才访寻和挖掘
   将根据所需人才的具体要求在人才库中筛选,或进行有针对性的访寻和挖掘工作。 
五、 面试与甄选
   经过初步筛选之后,我们将对较合适的人员进行有效深入的面试与甄选,以确保候选人对职位、职务是胜任的,并具有相当的稳定性。 
六、 推荐候选人
   经过严格的测评考核之后,我们将选出3-5位候选人,将他们的个人资料以秘密报告的形式递交给客户。 
七、 安排面试
   根据客户的要求,由我公司安排候选人接受客户的面试和其他形式的考核。 
八、 积极协助客户完成后续工作
<% If objRst.State=1 Then objRst.Close If objRst1.State=1 Then objRst1.Close If objCn.State=1 Then objCn.Close Set objRst=Nothing Set objRst1=Nothing Set objCn=Nothing %>