<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim rsClass__MMColParam rsClass__MMColParam = "165" If (Request("MM_EmptyValue") <> "") Then rsClass__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsClass Dim rsClass_numRows Set rsClass = Server.CreateObject("ADODB.Recordset") rsClass.ActiveConnection = MM_conn_STRING rsClass.Source = "SELECT * FROM Class WHERE uplevel = " + Replace(rsClass__MMColParam, "'", "''") + "" rsClass.CursorType = 0 rsClass.CursorLocation = 2 rsClass.LockType = 1 rsClass.Open() rsClass_numRows = 0 %> <% Dim rsProduct__MMColParam rsProduct__MMColParam = "171" If (Request.QueryString("cid") <> "") Then rsProduct__MMColParam = Request.QueryString("cid") End If %> <% Dim rsProduct Dim rsProduct_numRows Set rsProduct = Server.CreateObject("ADODB.Recordset") rsProduct.ActiveConnection = MM_conn_STRING rsProduct.Source = "SELECT * FROM AllProduct WHERE Class = " + Replace(rsProduct__MMColParam, "'", "''") + " ORDER BY Brand, PModel" rsProduct.CursorType = 0 rsProduct.CursorLocation = 2 rsProduct.LockType = 1 rsProduct.Open() rsProduct_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsClass_numRows = rsClass_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 rsProduct_numRows = rsProduct_numRows + Repeat2__numRows %> 天津峰达进口工程机械有限公司
   
  首页 > 产品展示 >纯正部品抢购
 
<% While ((Repeat1__numRows <> 0) AND (NOT rsClass.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsClass.MoveNext() Wend %>
> 
<% While ((Repeat2__numRows <> 0) AND (NOT rsProduct.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsProduct.MoveNext() Wend %>
 
产品名称：  
　　品牌：
产品件号：
产品产地：
产品备注：
 
   
产品名称：  
　　品牌：
产品件号：
产品产地：
产品备注：
 
   
产品名称：  
　　品牌：
产品件号：
产品产地：
产品备注：
 
   
产品名称：  
　　品牌：
产品件号：
产品产地：
产品备注：
 
   
产品名称：  
　　品牌：
产品件号：
产品产地：
产品备注：
 
   
产品名称：  
　　品牌：
产品件号：
产品产地：
产品备注：
 
   
产品名称：  
　　品牌：
产品件号：
产品产地：
产品备注：
 
   

上一页 1.2.3.4
<% rsClass.Close() Set rsClass = Nothing %> <% rsProduct.Close() Set rsProduct = Nothing %>