<% dim catename catename = Request("catename") %> 深圳鑫盛精密模具配件有限公司
  返回首页 公司简介 产品中心 在线订单 客户反馈 联系我们  
 当前位置:首页>>产品中心 >><%=catename%>
<% dim cateid cateid = Request("cateid") set rs=server.CreateObject("ADODB.RecordSet") rs.open "select * from TAB_PRODUCT_CATE order by PRO_CATE_ID DESC",conn,1 while not rs.eof %> <% rs.MoveNext wend rs.close set rs=nothing %>
&catename=<%=rs("pro_cate_name")%>"> <%=rs("PRO_CATE_NAME")%>
<% set rs=server.CreateObject("ADODB.RecordSet") if cateid = "" then rs.open "select * from TAB_PRODUCT order by ORDERS asc",conn,1 else rs.open "select * from TAB_PRODUCT where type="& cateid &" order by ORDERS asc",conn,1 end if '------------------------------------------- pagesize=10 iCount=rs.RecordCount if (iCount mod pagesize)=0 then pagecount=int(iCount/pagesize) else pagecount=int(iCount/pagesize)+1 end if if Request("currentpage")<>"" and Request("currentpage")<>"0" then currentpage=Cint(Request("currentpage")) else currentpage=1 end if if not rs.EOF then rs.PageSize =pagesize rs.AbsolutePage=currentpage ipage=0 end if if iCount=0 then currentpage=0 end if '------------------------------------------- while not rs.eof and ipage <% rs.MoveNext ipage=ipage+1 wend rs.close set rs=nothing %>
" target="_blank"><%=rs("product_name")%> " target="_blank">
共 <%=iCount%> 条 第<%=currentpage%>/<%=pagecount%>页 | <%if currentpage>1 then Response.Write "首页  " Response.Write "上一页  " else Response.Write "首页  " Response.Write "上一页  " end if %> <%if currentpage 下一页" Response.Write " 末页" else Response.Write " 下一页  " Response.Write " 末页" end if %>