<% Server.ScriptTimeOut=1000000 %> 人才|招聘|求职|找工作|猎头|百大英才网
<%Call GetShouTopAD()%>
<% if isArray(ArrayRecord) then strListPe_LogID="" arrTemp=funGetPageDataArray(ArrayRecord,pageNo,intPageSize) if isArray(arrTemp) then for i=0 to ubound(arrTemp) strListInvite_ID=strListInvite_ID&","&GetID(arrTemp(i)) next if strListInvite_ID<>"" then strListInvite_ID=mid(strListInvite_ID,2) end if strSql="select a.invite_id,a.Reoc,a.co_usename,a.job_name,a.qty,a.experience,a.mon_Pay,a.edc_level,a.sex,a.last_update" strSql=strSql&",b.co_name,(select region from sy_area where id=a.work_site) as region,dbo.f_getFullName(a.work_site) as regionFullName,(select cl.co_class from co_log cl where cl.co_usename=a.co_usename) as co_class,sc.web_name,sc.web,sc.model,sc.web_tag" strSql=strSql&" from view_co_invite a left join co_base b on a.co_usename=b.co_usename left join (select * from sc_set sc where sc.audit>0) sc on a.sc_id=sc.sc_id where a.invite_id in ("&strListInvite_ID&") order by a.last_update desc" response.write ("") 'response.end rs.open strSql,conn,1,1 i=1 while not rs.eof %> 0 then %>class="joblistLightBG"<%end if%>> <% rs.movenext i=i+1 wend rs.close() end if %>
编号 招聘职位 公司名称 所在站点 工作经验 月薪 学历 人数 性别要求 更新日期
<%=i%> &invite_id=<%=rs("invite_id")%>" target="_blank" title="<%=SqlToHTML(rs("job_name"))%>"> <%=SqlToHTML(AlignString(rs("job_name"), 24))%> <%if not isNull(rs("region")) then%>">(<%=AlignString(Trim(rs("region")),8)%>)<%end if%> <%=GetReoc(int(rs("Reoc")))%> " target="_blank" title="<%=rs("co_name")%>"> <% =SqlToHTML(AlignString((rs("co_name")), 30)) %><%'if (rs("co_class")=6 or rs("co_class")=7 or rs("co_class")=8) then response.Write("(推荐)") end if%> <%if not isNull(Rs("Web")) then:response.write ""&rs("Web_Name")&"":else:response.write ""&strIniWebNameBadaJob&"":end if%> <%=funGetInviteExperienceString(rs("experience"))%> <%=funGetMoneyPayString(rs("mon_pay"))%> <%=funGetEdcLevelString(rs("EDC_LEVEL"))%> <%if rs("qty")>0 then:response.write rs("qty")&"人":else:response.write "不限":end if%> <%=funGetSexString(trim(rs("SEX")))%> <%=month(DateValue(rs("Last_Update")))%>月<%=day(DateValue(rs("Last_Update")))%>日
<%=strPageString%>
<% '测试是否SESSION内存溢出,暂时关闭数组存储 'Session(strPageUrlString&":RecordArray")="" Function GetReoc(intReoc) Dim Text if intReoc=0 then exit Function end if if intReoc=1 or intReoc=3 then Text=Text&" " end if if intReoc=2 or intReoc=3 then Text=Text&" " end if GetReoc=Text End Function %>