招聘信息

<% dim rs,sql sql="select * from tb_job" set rs = Server.CreateObject("adodb.RecordSet") rs.open sql, cnn, 1,1 if rs.eof and rs.bof then response.Write "暂无信息" else rs.pagesize = 8 if request("page")="" or isempty(request("page")) then page = 1 else page=int(request("page")) end if if page>rs.pagecount then page=rs.pagecount end if if not rs.BOF then Rs.Move Rs.PageSize*(page-1) end if i=1 do while not rs.eof and i<=rs.pagesize %>
" class="a1"><%=rs("title")%> <%=year(rs("addTime"))%>-<%=month(rs("addTime"))%>-<%=day(rs("addTime"))%>
<% i=i+1 rs.MoveNext loop end if %>
<% if rs.recordcount<>0 then if page-1 mod 10=0 then p=(page-1) \ 10 else p=(page-1) \ 10 end if ' response.write "页次:"& page &"/"& rs.pagecount &"页 每页"& rs.pagesize &" 共"& rs.recordcount &"条记录"&_ ' " 分页:" if p*10>0 then response.write "前十页  " uming_i=1 for ii=p*10+1 to P*10+10 if ii=page then response.write ""+Cstr(ii)+" " else response.write ""+Cstr(ii)+" " end if if ii=rs.pagecount then exit for uming_i=uming_i+1 next if ii<=rs.pagecount and uming_i=11 then response.write "  后十页 " end if %>
 

 

 

 

 

首页 | 招聘 | 联系方式 | 链接 | 站点地图 | 免责申明
友情链接:    234彩票网   鸿运彩票网址   700万彩票网   拉菲2彩票计划   234彩票投注