<%@ 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招聘 ·457招聘 ·本站招聘 <% sql="select * from career where basclass='100' 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"))%> 共有<%=reccount%>条招聘信息 <%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%>