<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%=CompanyName%>-Careers
Home>>Careers
Careers
<% set rsp=server.CreateObject("adodb.recordset") RsSqlP="select title,Intime,content from contact_info where flag=0 order by hits asc,LeSeno_id desc" rsp.open RsSqlP,conn,1,1 %> <% if not rsp.eof then rsp.PageSize=2 '设置每页记录数 TotalPages = rsp.PageCount '读取总页数 If Request("CurPage")<>"" and IsNumeric(Request("CurPage")) Then CurPage = Int(Request("CurPage")) If CurPage="" or CurPage<1 Then CurPage=1 If CurPage>TotalPages Then CurPage=TotalPages rsp.AbsolutePage=CurPage '当前页 StartPageNum=1 '初始页 TurnPagesNum=5 '每一个页类数目 Do While StartPageNum+TurnPagesNum-3<=CurPage StartPageNum=StartPageNum+TurnPagesNum-4 '这两行数字必须少于页类数目的一半 Loop EndPageNum=StartPageNum+(TurnPagesNum-1) If EndPageNum>TotalPages Then EndPageNum=TotalPages If CurPage>1 Then frontPage = CurPage - 1 frontNum = frontPage * rsp.PageSize End if I=0 do while not rsp.eof and I
<%=rsp(0)%>（<%=rsp(1)%>）
<%=rsp(2)%>
<% rsp.movenext loop %>
<%If CurPage<>1 Then%> Previous <% Else %> Previous <% End if %> <% for mypage=StartPageNum to EndPageNum if CurPage<>mypage then %> <%=mypage%> <% else %> <%=mypage%> <% end if next %> <%If CurPage Next <% Else %> Next <% End if %> Total<%=TotalPages%>Pages，SkipPage  
<% End If rsp.close set rsp=nothing %>