<%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 %>   <% catalog_width="13%" '显示分类名的宽度 if myrs_catalog.RecordCount>0 then myrs_catalog.MoveFirst do until myrs_catalog.EOF set rs_type=conn.execute("select id,typename from t_business_type where catalogid=" & myrs_catalog("catalogid") & " order by id") %> <%myrs_catalog.MoveNext loop end if%> "><%=myrs_catalog("catalogname")%> <%do until rs_type.eof Response.Write "" & rs_type("typename") & "　" rs_type.movenext loop%>