<%call log_chk() call passChk()%>

后台管理：>> 招聘管理

<% dim theact theact=request("theact") dim CurrentPage '当前页 dim TotalPages '总页数 MaxPerPage=20 Set rs1= Server.CreateObject ("ADODB.RecordSet") sql="select * from adzp order by zp_odr asc" rs1.open sql,conn,1,3 if rs1.eof then response.Write("") else rs1.pagesize=MaxPerPage If trim(Request("Page"))<>"" then CurrentPage= CLng(request("Page")) If CurrentPage> rs1.PageCount then CurrentPage = rs1.PageCount End If Else CurrentPage= 1 End If totalPut=rs1.recordcount 'totalput=总记录数 if CurrentPage<>1 then if (currentPage-1)*MaxPerPage < totalPut then rs1.move(currentPage-1)*MaxPerPage end if end if do while not rs1.eof and c<20 Set rs2= Server.CreateObject ("ADODB.RecordSet") sql="select * from adyp where zp_id="&rs1("zp_id")&"" rs2.open sql,conn,1,3 if rs2.eof then thenum=0 else thenum=rs2.recordcount end if rs2.close set rs2=nothing %> <% c=c+1 rs1.movenext loop rs1.close set rs1=nothing %>

招 聘 管 理
职位名称	发布时间	查看简历	操作	状态
<%=left(rs1("zp_zw"),12)%>[<%=rs1("zp_odr")%>]	<%=formatdatetime(rs1("zp_time"),2)%>	">查看[共 <%=thenum%> 份]	">修改 ">删除 <%if rs1("zp_sta")=0 then%>&act=thes">开启<%end if%><%if rs1("zp_sta")=1 then%>&act=thek">暂停<%end if%>	<%if rs1("zp_sta")=0 then%>已暂停<%end if%><%if rs1("zp_sta")=1 then%>已开启<%end if%>

<% '------------------------------------------------------页面跳转 dim n,k if (totalPut mod MaxPerPage)=0 then 'n表示总页数 n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if k=currentPage k=currentPage if k<>1 then response.write "["+"第一页] " response.write "["+"上一页] " else Response.Write "[第一页] [上一页]" end if if k<>n then response.write "["+"下一页] " response.write "["+"最后一页] " else Response.Write "[下一页] [最后一页]" end if '------------------------------------------------------页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别 response.Write(" | 共"&n&"页 / "&totalPut&"条信息 / ") response.Write("当前第"&k&"页") response.Write(" ") for myi=1 to n response.Write(""&myi&"") next response.Write("") response.Write("") end if%>