%
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 )
%>
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 wires-Foshan Jiaguang Hardware Factory
<%
'开始输出分类
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
%>