<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") keyno=Request.QueryString("keyno") classcode=Request.QueryString("classcode") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="hr" myurl="hr.asp?temp=1" %> 澳大利亚人才招聘,澳洲人才招聘-ABC环球集团,ABC Migration & Education
<% sql="select keyno,title from career where state='1' order by sortnum desc" rs.Open sql,cn,1,1 do while not rs.EOF if keyno="" then keyno=rs(0) if cstr(keyno)=cstr(rs(0)) then %>
<%=trim(rs(1))%>
<%else%>
<%=trim(rs(1))%>
<% end if rs.MoveNext loop rs.Close %>
<% if keyno<>"" then sqltext="select * from career where keyno="&keyno rs.Open sqltext,cn,1,1 if not rs.EOF then sortnum=rs("sortnum") title=trim(rs("title")) dept=trim(rs("dept")) duty=trim(rs("duty")) content=trim(rs("content")) treatment=trim(rs("treatment")) flag=trim(rs("flag")) state=trim(rs("state")) yxqx=trim(rs("yxqx")) city=trim(rs("city")) email=trim(rs("email")) percount=trim(rs("percount")) end if rs.Close end if %>
   <%=title%>
<%if len(duty)>0 then%> <%end if%> <%if len(content)>0 then%> <%end if%>
招聘部门:<%=dept%>
工作城市:<%=city%>
需要人数:<%=percount%>
工作待遇:<%=treatment%>
工作性质: <% Select case flag case "1" Response.Write("全职") case "0" Response.Write("兼职") case else Response.Write("全/兼职") end select %>
有效时限:<%=yxqx%>
联系邮箱:<%=email%>
职位描述:
<%=checkstr(duty,"1")%>
职位要求:
<%=checkstr(content,"1")%>