%
strCurrMenu="14775"
%>
<%
strClassName=GetVariable("classname")
if strClassName="" then
strClassName="所有产品"
end if
strQuery=""
strClass=GetVariable("class")
if strClass<>"" then
strQuery=strQuery & " And p_class=" & strClass
end if
strKey=GetVariable("key")
if strKey<>"" then
strQuery=strQuery & " And (p_name Like '%" & strKey & "%' Or p_detail Like '%" & strKey & "%') "
strClassName="搜索:" & strKey
end if
strPrice1=GetVariable("price1")
if strPrice1<>"" then
strQuery=strQuery & " And p_price>=" & strPrice1
strClassName=strClassName & " 最低价格 " & strPrice1
end if
strPrice2=GetVariable("price2")
if strPrice2<>"" then
strQuery=strQuery & " And p_price<=" & strPrice2
strClassName=strClassName & " 最高价格 " & 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 )
%>
<%
'开始输出分类
strSQL="Select * From web_product_class Where mn_id=" & strCurrMenu & " Order by c_index"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,conn,1,1
for i=1 to rs.recordcount
%>