%
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
%>
SQL Server 2005 中包含了非常丰富的新特性:通过提供一个更安全、可靠和高效的数据管理平台,增强企业组织中用户的管理能力,大幅提升IT管理效率并降低运维风险和成本;通过提供先进的商业智能平台满足众多客户对业务的实时统计分析、监控预测等多种复杂管理需求,推动企业管理信息化建设和业务发展;同时,SQL Server 2005将提供一个极具扩展性和灵活性的开发平台,不断拓展您的应用空间,实现Internet数据业务互联,为您带来新的商业应用机遇。