<% strCurrMenu="15424" ThisPage=request.ServerVariables("URL") %> <% strClassName=GetVariable("classname") if strClassName="" then strClassName="All products" end if strQuery="" strClass=GetVariable("class") if strClass<>"" then SourCode=conn.execute("Select c_code From web_product_class Where mn_id=" & strCurrMenu & " and id="&strClass)(0) strQuery=strQuery & " And c_code Like '" & SourCode &"%'" end if strKey=GetVariable("key") if strKey<>"" then strQuery=strQuery & " And (p_name Like '%" & strKey & "%' Or p_detail Like '%" & strKey & "%') " strClassName="Search：" & strKey end if strPrice1=GetVariable("price1") if strPrice1<>"" then strQuery=strQuery & " And p_price>=" & strPrice1 strClassName=strClassName & "　　The lowest price " & strPrice1 end if strPrice2=GetVariable("price2") if strPrice2<>"" then strQuery=strQuery & " And p_price<=" & strPrice2 strClassName=strClassName & "　　Highest price " & strPrice1 end if %> <% '读取产品展示的属性，以确定显示那个字段 showClass=GetKey("showClass",WebUserID,"product_" & strCurrMenu ) showPrice=GetKey("showPrice",WebUserID,"product_" & strCurrMenu ) showSize=GetKey("showSize",WebUserID,"product_" & strCurrMenu ) showSymbol=GetKey("showSymbol",WebUserID,"product_" & strCurrMenu ) showFace=GetKey("showFace",WebUserID,"product_" & strCurrMenu ) showShop=GetKey("showShop",WebUserID,"product_" & strCurrMenu ) showDetail=GetKey("showDetail",WebUserID,"product_" & strCurrMenu ) %>

<% '开始输出分类 strcode="" for i=1 to Len(SourCode) \ 4 strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'" next if strcode<>"" then strcode="(1<>1"&strcode&" or Len(c_code)=4)" else strcode=" Len(c_code)=4" end if strSQL="Select * From v_web_product Where mn_id=" & strCurrMenu & strQuery & " Order by p_code,ID Desc" 'response.Write(strsql) Set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 for i=1 to rs.recordcount Level=(Len(rs("c_code"))/4-1)*3 %> <% rs.movenext next %>  <% If Len(rs("c_code"))>4 Then Response.Write "├" Response.Write String(Level,"-") %>&mnid=<%=strCurrMenu%>&classname=<%=trim(rs("c_name"))%>"><%=trim(rs("c_name"))%>

Operating principles : first in one's integrity, in order to win people     Company Spirit : prosper, work hard, be bold and self-improvement     Company talent : CD-Germany job, that is only useful, as only the demolition     Service principles : integrity efficient, customer supremacy     Company style : realistic entrepreneurial and creative

The plantProfessional production：Rivet，Half Rivet，Color core pulling rivets，Shen first core pulling rivets，Lantern - core pulling rivets，Closed core pulling rivets，Open-core pulling rivets，Open-shaped rim of their hats core pulling rivets，Rafah flowers core pulling rivets，Drawing-core pulling rivets，Double drum-core pulling rivets，Stamping wiresAnd so on.     Welcomes domestic and overseas correspondence in business negotiations.