<% kind=request("kind") if id=1 then title_top="产品展示_佛山博尔高隔间  |办公隔墙|高隔间|玻璃隔断" description_top="佛山博尔隔墙公司 ,专注高隔间、防火高隔断、吸音高隔间、整体木纹隔间的铝材、门、百叶帘、配件等整体配套。36、80、84、108 十几个款式,公司 备有500吨库存。咨询:  400-660-0343" keywords_top="办公室隔墙  ,玻璃隔断,百叶 帘,生态门" else title_top="产品展示_佛山博尔高隔间  |办公隔墙|高隔间|玻璃隔断" description_top="佛山博尔隔墙公司 ,专注高隔间、防火高隔断、吸音高隔间、整体木纹隔间的铝材、门、百叶帘、配件等整体配套。36、80、84、108 十几个款式,公司 备有500吨库存。咨询:  400-660-0343" keywords_top="办公室隔墙  ,玻璃隔断,百叶 帘,生态门" end if %> 火拼牛牛网站|<%=title_top%>
<% call left3() call left_sp() call left_lxwm() call left_zsjm() call left_swf() %>
<% keyword=request("keyword") if kind="" then ' Set rss=Server.CreateObject("Adodb.RecordSet") ' sql = "select * from pro_type where ranking<>999 order by ranking" ' rss.Open sql,conn,1,1 ' if not rss.eof then ' kind=rss("id") ' kindname=rss("kind") ' end if ' rss.close ' Set rss=Nothing Else Set rss=Server.CreateObject("Adodb.RecordSet") sql = "select * from pro_type Where id=" & kind & " order by ranking" rss.Open sql,conn,1,1 if not rss.eof then ' kind=rss("id") kindname=rss("kind") content=rss("content") end if rss.close Set rss=Nothing end if smallkind=request("smallkind") if smallkind<>"" then Set rss=Server.CreateObject("Adodb.RecordSet") sql = "select * from smallpro_type where id=" & smallkind & " order by id" rss.Open sql,conn,1,1 if not rss.eof then smallkindname=rss("smallkind") content=rss("content") end if rss.close Set rss=Nothing End If %>
隔墙分类您当前所以位置: 首页 > 产品展示<%if kindname<>"" then response.Write " > "&kindname%>
<% dim strFileName const MaxPerPage=16 const MaxTD=4 pwidth=149 pheight=141 dim totalPut,CurrentPage,TotalPages strFileName=request.ServerVariables("script_name")&"?kind="&kind&"&smallkind="&smallkind&"" if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if Set rs=Server.CreateObject("Adodb.RecordSet") if smallkind<>"" then sql="select * from product where 1=1 and smallkind="&smallkind&"" else sql="select * from product where 1=1 and kind="&kind&"" end if if kind="" then sql="select * from product where 1=1 and kind not in (35,36,37)" end if if keyword<>"" then sql="select * from product where pic_type_cn like '%"&keyword&"%' and kind not in (35,36,37)" end if sql=sql&" order by bian desc" rs.Open sql,conn,3,1 %> <% totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage strFileName,totalput,MaxPerPage,true,true,"条记录" else if (currentPage-1)*MaxPerPage <% Do Until Rs.Eof %>
    <% For j = 1 To MaxTD If Not Rs.Eof Then On Error Resume Next IMGPath=Replace(rs("smallphoto"),"../","") Set PP = New ImgWHInfo W = PP.imgW(Server.MapPath(IMGPath)) H = PP.imgH(Server.MapPath(IMGPath)) Set pp = Nothing If W/H>=pwidth/pheight Then If W>pwidth Then pw=pwidth ph=H*(pwidth/W) Else pw=W ph=H End If Else If H>pheight Then pw=W*(pheight/H) ph=pheight Else pw=W ph=H End If End If On Error Goto 0 %>
  • ">" width="<%=pw%>" height="<%=ph%>" alt="名称:<%=rs("pic_type_cn")%>" />名称:<%=rs("pic_type_cn")%>
  • <% Rs.MoveNext i=i+1 if i>=MaxPerPage then response.Write "
" exit do end if End If Next %> <% Loop %>
<%end sub%>
友情链接:    8G彩票   喜彩彩票注册   五分钟一期彩票   免费彩票软件   170彩票网