<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") basclass=Request.QueryString("basclass") 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="hire" myurl="hire.asp?temp=1" %> 澳大利亚人才招聘,澳洲人才招聘-ABC环球集团,ABC Migration & Education
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='i1' order by sortnum" rs.Open sql,cn,1,1 %> <% if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then if trim(rs("website"))<>"" then %> " target=_blank><%=trim(rs("> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>
457招聘 本站招聘
<% sql="select * from career where state='1' order by updatetime desc" rs.Open sql,cn,1,1 i=1 pagesize=20 rs.PageSize=pagesize if pageno="" then pageno=1 else pageno=cint(pageno) if rs.PageCount>0 then rs.AbsolutePage=pageno pagecount=rs.PageCount reccount=rs.RecordCount do while not rs.EOF and i<=pagesize %> <% i=i+1 rs.MoveNext loop rs.Close %>
职位 企业(部门) 城市 人数 更新时间
<%=trim(rs("title"))%> <%=trim(rs("dept"))%> <%=trim(rs("city"))%> <%=trim(rs("percount"))%> <%=dateValue(rs("updatetime"))%>

<%if pagecount>1 then%> <%if pageno>1 then%> 上页  <%else%> 上页  <%end if%> <%for j=1 to pagecount if j=pageno then color2="ff0000" else color2="000000" %> ><%=j%> <%next%>  <%if pageno 下页 <%else%> 下页 <%end if%> <%end if%>