<%const current_ver="cn" '设置当前版本号%>

<% set myrs_catalog=server.CreateObject("adodb.recordset") myrs_catalog.Open "select catalogid,catalogname from t_business_catalog where mever='" & current_ver & "'",conn,1,1 %>   产品搜索   所有产品 <%if myrs_catalog.RecordCount>0 then myrs_catalog.MoveFirst do until myrs_catalog.EOF Response.Write "" & myrs_catalog("catalogname") & "" myrs_catalog.MoveNext loop end if %> 高级搜索   推荐产品     分类列表   <%if myrs_catalog.RecordCount>0 then myrs_catalog.MoveFirst do until myrs_catalog.EOF set rs_type_list=conn.execute("select id,typename from t_business_type where catalogid=" & myrs_catalog("catalogid") & " order by id") %> <%if not rs_type_list.eof then%> <%end if myrs_catalog.MoveNext loop end if%> "><%=myrs_catalog("catalogname")%>   <%do until rs_type_list.eof Response.Write "" & rs_type_list("typename") & "　" rs_type_list.movenext loop %>   <%catalogN=myrs_catalog.RecordCount a=catalogN+1 %> 首页--＞高级搜索   高级搜索 您可以组合以下条件来进行搜索： 目录： 所有产品 <%if myrs_catalog.RecordCount>0 then myrs_catalog.MoveFirst do until myrs_catalog.EOF Response.Write "" & myrs_catalog("catalogname") & "" myrs_catalog.MoveNext loop end if %> 类别： 关键字段： 促销产品： 无所谓 是促销产品 不是促销产品 搜索内容：