<% 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、18、28日 福州市国际会展中心一层 (0591)7548854
福建福州市人才市场 每月5、15、25日 五一中路五一新村前街12号人事大楼 (0591)3332124
福建青年人才市场 每月16日 福州市国际会展中心一层 (0591)7844794
福建厦门人才市场交流会 每周五 厦门湖滨东路市人才中心 (0592)5053981
福建泉州人才市场 每月每周三、周六 刺桐西路北段市中心人才市场 (0595)2112384
福建漳州市人才市场 每月15、30日 漳州北二号路人才大楼三层 (0596)2032927
福建晋江市人才市场 每周五 晋江银利大厦东裙楼二层 (0595)5690922
福建石狮人才市场 每周四 石狮南环路信义大厦五楼 (0595)8588700

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