<% set rs=server.createobject("adodb.recordset") sql="select * from HrDemand order by id desc" rs.open sql,conn,1,1 dim MaPerPage MaPerPage=4 dim text,checkpage text="0123456789" Rs.PageSize=MaPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list '显示帖子的子程序 Sub list()%> <% title="人才招聘" SiteContent="软件工程师,厦门亿吉尔科技,人才招聘,人才中心" %>
 
 
<% if not rs.eof then i=0 do while not rs.eof %> <% i=i+1 if i >= MaPerpage then exit do rs.movenext loop end if %>

职位名称:  <%=rs("HrName")%>
工作地点:  <%=rs("HrAddress")%>
工资待遇:  <%=rs("HrSalary")%> 发布日期:  <%=rs("HrDate")%>
需求人数:
 <%=rs("HrRequireNum")%> 人
有效期限:
 <%=rs("HrValidDate")%>
具体要求:
<%=rs("HrDetail")%>
<% Response.write "全部" Response.write "共" & Cstr(Rs.RecordCount) & "条招聘信息          " Response.write "第" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write " 首页 " Response.write " 上一页 " Else Response.write " 上一页 " End if If currentpage < Rs.PageCount Then Response.write " 下一页 " Response.write " 尾页 " Else Response.write "" Response.write " 下一页 " End if Response.write "转到第" response.write"页" rs.close %>
<% End sub %> <% rs.close set rs=nothing %>