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

工程机械高级人员库
加入工程机械培训中心
猎头服务需求在线提交
您现在的位置：首页 >> 招聘会

【云贵川定期招聘会】

【打印】 【关闭】
招聘会名称 时间 地点 电话
贵州人才大市场 每周六、每月28日 贵阳市北京路168号（省博物馆院内） (0851)6810708、6812828
云南人才市场 每月8、18、28日 昆明市人民中路与五一路交汇处的武成商业步行街（五一电影院旁） (0871)5384321
四川省联汇大型现场招聘会 每周一、三、五 成都市百花中心站侧兴百处商场二楼 (028)7058033
四川诚信（周五）特大型现场招聘会 周五 成都市一环路南三段世纪电脑城 (028)5567802
四川中国成都人才市场 每周二、四 成都市宁夏街136号人才大厦 (028)6639468、6241445
重庆市人才市场解放碑市场 每周二、五、六 重庆市人才市场解放碑市场（临江门都市广场五楼） (023)63782622、(023)63782223

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