<% 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 %>
您现在的位置：首页 >> 招聘会

【北京定期招聘会】

【打印】 【关闭】
招聘会名称 时间 地点

首图人力资源市场定期招聘会

 每周六 8:30 -13:30 首都图书馆多功能厅（朝阳区东三环南路88号，华威桥东侧，潘家园古玩城对面）
饭店/物业人才专场招聘会 每周六 9:00 -14:00 沙滩文化部艺术厅
周六周日定期专题招聘洽谈会 每周六至周日 9:00 -15:00 一千河人力资源会馆(北京市海淀区知春路111号理想大厦二层)
中关村科技人才市场 每周三 海淀科技大厦七层
京市海淀职业介绍所 每周三、五 9:00 -12:00 海淀区政府大街3号

北京东城人才市场

 海体周二、周五招聘会9：00-14：00 海淀体育馆(北四环西路海淀桥北)
北京市人才市场定期人才招聘洽谈会 每周三、六、日 北二环路雍和宫立交桥北侧50米路西北京人才市场内
北京市人才服务中心 每周三、六、日 9:00 -14:00 劳动人民文化宫内
每周日专题招聘会 　 北京工人体育馆 
北京职业快车人力资源定期招聘会 每周六 9:00 -14:00 首都体育学院田径馆
东城区职业介绍服务中心 每周二、六 地坛公园内斋宫
中关村人力资源市场定期招聘洽谈会 每周三、六 北京友谊宾馆职工俱乐部
海淀职业介绍所定期招聘洽谈会 每周五 海淀工人文化宫院内
海淀区职业介绍服务中心每周六上午招聘洽谈会 每周六 8:30- 12:00 图新科贸中心一楼大厅
北京新闻人才劳务发展中心定期招聘洽谈会 每周三、六 北京工人体育馆
团市委北京青年人才服务中心定期招聘洽谈会 每周五 北京青年宫人才市场
　北京市全国总工会长安职业介绍服务中心招聘会 每周四 西四阜内大街93号
全国人才流动中心人才市场招聘会 每周二、三、四、五、六 9：00～15：00 海淀区三里河路13号中国建筑文化中心一层(甘家口商场北侧)，全国人才流动中心人才市场内
大、中专人才招聘会 每周日9：00-14：00 北三环双安商场对面向东200米北京青云大门内-青云当代科技大厦(联想桥西北角满庭芳园院内) 

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