您的当前位置: 首页>> 按车型搜索

品牌精品
<% call Writeproductpp()%>
商品类目
<% 'Call SetConn () sql="select * from adesigner order by carorder" Set rs0 = Server.CreateObject ("ADODB.Recordset") 'response.write sql rs0.open sql,conn,1,1 if rs0.bof and rs0.eof then response.write "NOTHINGS" else 'response.write "
" & rs0.recordcount dim m m=1 do while not rs0.eof 'response.write rs0("class") if m<=6 then %> <% m=m+1 %> <% else %> <% m=2 end if rs0.movenext loop 'rs0.close end if %>
请选择您的爱车品牌
<% sql="select * from adesigner order by carorder" Set rs = Server.CreateObject ("ADODB.Recordset") 'response.write sql rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "NOTHINGS" else %> <%dim n n=0 do while not rs.eof %>
<%=rs("class")%>> top
.jpg" border="0" alt="<%=rs("class")%>">
<% sql1="select catalogid,dtypeway,tcatalogname from tdcatalog where dtypeway="&rs("classid") Set rs1 = Server.CreateObject ("ADODB.Recordset") rs1.open sql1,conn,1,1 do while not rs1.eof %>  <%=rs1(2)%> <% rs1.movenext loop rs1.close %>
<% rs.movenext loop %>
<% end if rs.close 'conn.close 'set conn=nothing%>