• <xmp id="ek2ug"><nav id="ek2ug"></nav>
  • <nav id="ek2ug"><code id="ek2ug"></code></nav>
    <menu id="ek2ug"><tt id="ek2ug"></tt></menu>
    <dd id="ek2ug"></dd>
  • <menu id="ek2ug"></menu>
    <menu id="ek2ug"><strong id="ek2ug"></strong></menu>
    <xmp id="ek2ug">
     
    當前位置:首頁- 新聞中心
    新聞在線  
    <% '顯示新聞列表 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
    真人版无码作爱视频| 国产成人免费视频一区二区三区|精品亚亚洲成AV无码专区|亚洲熟妇无码天堂|
  • <xmp id="ek2ug"><nav id="ek2ug"></nav>
  • <nav id="ek2ug"><code id="ek2ug"></code></nav>
    <menu id="ek2ug"><tt id="ek2ug"></tt></menu>
    <dd id="ek2ug"></dd>
  • <menu id="ek2ug"></menu>
    <menu id="ek2ug"><strong id="ek2ug"></strong></menu>
    <xmp id="ek2ug">