当前位置：首页- 新闻中心 新闻在线   <% '显示新闻列表 Dim rs Set rs=Server.CreateObject("Adodb.Recordset") rs.Open "Select * From news_info Order By news_date Desc,news_cit Desc",Conn,1,1 if not(rs.Bof And rs.Eof) then dim newsperpage newsperpage=26'每页记录条数 rs.movefirst rs.pagesize=newsperpage if trim(request("page"))<>"" then currentpage=clng(request("page")) if currentpage>rs.pagecount then currentpage=rs.pagecount end if else currentpage=1 end if totalnews=rs.recordcount if currentpage<>1 then if (currentpage-1)*newsperpage <% i=i+1 rs.movenext loop else if rs.eof and rs.bof then %> <%end if end if%>      新 闻 标 题 发布日期 点击次数 "><%=cutstr(rs("news_title"),30)%> <%=rs("news_date")%> <%=rs("news_cit")%> 当前没有新闻！     共计<%=totalpages%>页.当前第 <%=currentpage%>/页, <%=totalnews%>条记录/<%=newsperpage%>篇每页. <% i=1 showye=totalpages if showye>10 then showye=10 end if for i=1 to showye if i=currentpage then %> <%=i%> <%else%> <%=i%> <%end if next if totalpages>currentpage then if request("page")="" then page=1 else page=request("page")+1 end if%> >> <%end if%> 转到：

网站导航 | 联系我们 | 客服在线 | 人才招聘 | 给我留言 | 站务管理 | 办事处专区 版权所有:中国.徐州锻压精机 电话：0516-66630060 传真：0516-83773060 手机：13382663060 Email:xz3060@163.com