<% Function dlb(id) set rs8=server.CreateObject("ADODB.RECORDSET") sql8="select * from lb where lb_id="&id&"" rs8.open sql8,conn if rs8.eof then response.Write "没有大类" else response.Write rs8("lb_name") end if rs8.close End Function %> 台州同际轴承制造有限公司

产品展示Product

产品展示:

<% dl=request("dl") zl=request("zl") gjz=request("gjz") xl=request("xl") lb=request("lb") id=request("id") if gjz<>"" then if gjz<>"" and lb<>"" then sql="select * from cp where info like '%"&gjz&"%' and lb_name="&lb&" order by px asc" else sql="select * from cp where info like '%"&gjz&"%' order by px asc" end if else sql="select * from cp order by px desc" end if if dl<>"" and zl="" and xl="" then sql="select * from cp where lb_name="&dl&" order by px asc" end if if dl<>"" and zl<>"" and xl="" then sql="select * from cp where xl="&zl&" and lb_name="&dl&" order by px asc" end if if dl<>"" and zl<>"" and xl<>"" then sql="select * from cp where xl="&zl&" and lb_name="&dl&" and cl="&xl&" order by px asc" end if rs.open sql,conn,1,3 if rs.recordcount=0 then %> <% else page=cint(request("page")) rs.pagesize=x*y ys=rs.pagecount zys=rs.recordcount mys=rs.pagesize if page<1 then page=1 end if if page>ys then page=ys end if dd=rs.pagecount yss=10 if pageyss then eee=page/yss+0.01 eee1=int(page/yss+0.01) if eee>eee1 then eee1=eee1+1 end if t=yss*int(page/yss) w=eee1*yss end if if w
<% if not rs.eof then for j=1 to y for i=1 to x if rs.eof=true then exit for end if %>
<% rs.movenext next %> <%next end if end if %>
暂时没有该方面的信息!
">" <%=xg%> border="0" <%=xk%> />
" class="cc"><%=rs("info")%>
<%=sjj%>>
共有<%=zys%>件作品  <%=mys%>件/页  共有<%=ys%>页  当前第<%=page%>页   <%if page<>1 then%> 首页   上一页  <% end if if page<>ys then %> 下一页   未页 <%end if %>   <% for i=t to w if i>dd then exit for end if if i=cint(request("page")) then l="" ll="" else l="" ll="" end if %> <%next%>