网站首页 企业简介 销售网络 产品展示 网上订单 留言反馈 联系我们
用户名:
密  码:

 

<% dim curpage if request.QueryString("curpage")=""or request.QueryString("curpage")=0 then curpage=1 else curpage=cint(request.QueryString("curpage")) end if set rs=server.CreateObject("adodb.recordset") sql="select * from news order by id desc" rs.open sql,conn,3,3 if not rs.eof then dim yes yes=1 rs.pagesize=20 dim infpagesize infpagesize=rs.pagesize totalpages=rs.pagecount if curpage>rs.pagecount then curpage=rs.pagecount end if rs.absolutepage=curpage rs.cachesize=rs.pagesize totalcount=int(rs.recordcount) i=0 do while not rs.eof and i <%rs.movenext i=i+1 loop rs.close set rs=nothing else rs.close set rs=nothing end if%>
<%if yes=1 then%>
页次:<%=curpage%>/<%=totalpages%>,每页:<%=infpagesize%>     [首 页]  [上一页]  [下一页]  [尾 页]  
<%end if%>
欢迎光临,星火螺母厂
版权所有:星火螺母厂   制作维护:邯郸联创电子商务网   冀ICP备06031735号