<%set rs=server.createobject("adodb.recordset") rs.open "select * from prodkind order by shuzhi asc",conn,1,3 do while not rs.eof%> <% set objrs=server.CreateObject("adodb.recordset") objrs.open "Select * From prodskind Where bigkind="&rs("bigkind")&" order by xuhao asc",conn,1,3 if not(objrs.bof and objrs.eof) then do while not objrs.eof %> <%objrs.movenext loop end if objrs.close set objrs=nothing rs.movenext loop rs.close set rs=nothing%>
      "><%=rs("eprodname")%>
       &smallkind=<%=objrs("smallkind")%>"><%=objrs("eprodsname")%>








MP:0086-13396860579
TEL:0086-391-8613196
FAX:0086-391-8613196
<% set objrs=server.CreateObject("adodb.recordset") if request("bigkind")<>"" and request("smallkind")<>"" then sql="select * from products where bigkind="&request("bigkind")&" and smallkind="&request("smallkind")&" and (prodid like '%"&trim(request("key"))&"%' or cpzhi like '%"&trim(request("key"))&"%' or prodname1 like '%"&trim(request("key"))&"%') and tuiji=0 order by prodpage asc,xuhao asc" elseif request("bigkind")<>"" and request("smallkind")="" then sql="select * from products where bigkind="&request("bigkind")&" and (prodid like '%"&trim(request("key"))&"%' or cpzhi like '%"&trim(request("key"))&"%' or prodname1 like '%"&trim(request("key"))&"%') and tuiji=0 order by prodpage asc,xuhao asc" elseif request("bigkind")="" and request("smallkind")="" then sql="select * from products where (prodid like '%"&trim(request("key"))&"%' or prodname1 like '%"&trim(request("key"))&"%') and tuiji=0 order by prodpage asc,xuhao asc" end if objrs.open sql,conn,1,3 if objrs.bof and objrs.eof then response.write"" else PageSize=9 objrs.PageSize = PageSize totalfilm=objrs.recordcount pgnum=objrs.Pagecount if page="" or clng(page)<1 then page=1 end if if clng(page) > pgnum then page=pgnum end if if pgnum>0 then objrs.AbsolutePage=page end if%> <%x=0 do while not objrs.eof for j=1 to 3 if not objrs.eof then%> <% for i=1 to 3 if not objrs.eof then %> <%x=x+1 objrs.movenext if objrs.eof then exit do end if next end if next if x>=objrs.pagesize then exit do loop end if %> <%if objrs.pagecount>1 then%> <%end if objrs.close set objrs=nothing conn.close set conn=nothing%>



Sorry,I not find products picture.


<%set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from prodskind where smallkind="&request("smallkind")&"",conn,1,3 response.write""&rs2("prodsname")&"" rs2.close set rs2=nothing%>
 
">" width="147" height="133" border="0" class="bg">
"><%=objrs("prodid")%>
 
Record:<%=((page-1)*pagesize+1)%>- <%if int(page)>=int(pgnum) then response.write""&objrs.recordcount&"" else response.write""&(page*pagesize)&"" end if%> Total:<%=objrs.recordcount%> <%=pagesize%>/page <%if page>1 then%> [&smallkind=<%=request("smallkind")%>&key=<%=trim(request("key"))%>&page=<%=page-1%>" class="css1">Previous] <%end if%> <%if int(objrs.recordcount/pagesize)<>(objrs.recordcount/pagesize) then pagecount1=int(objrs.recordcount/pagesize)+1 else pagecount1=int(objrs.recordcount/pagesize) end if if page<10 then if pagecount1>page then page1=page else if pagecount1<10 then page1=pagecount1 else page1=10 end if end if for i=1 to page1 if i=int(request("page")) then response.write""&page&""%> <%else%> &smallkind=<%=request("smallkind")%>&key=<%=trim(request("key"))%>&page=<%=i%>" class="css1"><%=i%> <%end if next else if pagecount1>(page+5) then page1=page+5 else page1=pagecount1 end if for i=page-5 to page1 if i=int(request("page")) then response.write""&page&""%> <%else%> &smallkind=<%=request("smallkind")%>&key=<%=trim(request("key"))%>&page=<%=i%>" class="css1"><%=i%> <%end if next end if if int(request("page")) [&smallkind=<%=request("smallkind")%>&key=<%=trim(request("key"))%>&page=<%=(request("page")+1)%>" class="css1">Next] <%end if%>
 
copyright © AAA Dali Hardware