<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%=CompanyName%>-新闻中心
首页>>新闻中心
News
<% set rsp=server.CreateObject("adodb.recordset") RsSqlP="select LeSeno_id,title,Intime from News_Info where flag=0" RsSqlP=RsSqlP & " order by LeSeno_id desc" rsp.open RsSqlP,conn,1,1 %>
    <% if not rsp.eof then rsp.PageSize=28 '设置每页记录数 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(2)%><%=rsp(1)%>
  • <% rsp.movenext loop %>
<%If CurPage<>1 Then%> 上一页 <% Else %> <% End if %> <% for mypage=StartPageNum to EndPageNum if CurPage<>mypage then %> <%=mypage%> <% else %> <%=mypage%> <% end if next %> <%If CurPage 下一页 <% Else %> Next <% End if %> 共<%=TotalPages%>页,跳到页  
<% End If rsp.close set rsp=nothing %>