<% 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 %>

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

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

  中国工程机械人才网凭借丰富的猎头经验,专业的技巧,利用互联网的先进技术和庞大的人才库,开展专业的高级人才寻访。为客户提供“真诚、高效、增值、满意”的个性化服务。我们致力于人力资源的建设和开发,为企业提供专业咨询和解决方案。猎头服务将成为企业人力资源的外延支持。 
  对用人单位来讲,“猎头服务”是一种更有效的招聘手段。与其它招聘渠道相比较,能在很大程度上节约招聘成本,实现人力资源的优化配置,具有明显的优势。在以下情况下,用人单位可以选择“猎头服务”:
  一、需要寻找高级人才的企业。
  二、需求职位非常急迫的企业。
  三、需求定位很高级的企业。
  四、不能公开招聘职位的企业。
  五、长期无法招到合适人才的企业。

  我们的服务优势 
·专业咨询顾问团队 
·综合招聘解决方案 
·白领专业人士数据库 
·迅捷、准确的高效服务 
·猎头服务与专业筛选的双重组合 
·国际服务水准,国内合理价格 
·人才层次高。人才数据库拥有数万优秀人才 
·服务速度快、程序更人性化
  我们的承诺
·为客户提供高度个性化的招聘解决方案; 
·提供最优的性能价格比; 
·“零”风险猎头服务。 
<% 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 %>