<%@ 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
·457招聘 ·本站招聘
<% sql="select * from career where basclass='200' and 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%>