<%set rs = server.CreateObject("adodb.recordset")
sql = "select * from pecker_About where ViewFlag and id<5 and not ChildFlag order by Sequence asc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<%set rs = server.CreateObject("adodb.recordset")
sql = "select * from pecker_ProductSort where ViewFlag and ParentID<>0 order by id asc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<%set rs = server.CreateObject("adodb.recordset")
sql = "select * from pecker_NewsSort where ViewFlag and ParentID<>0 order by id desc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<%set rs = server.CreateObject("adodb.recordset")
sql = "select top 6 * from pecker_ProductSort where ViewFlag and ParentID<>0 order by id asc"
rs.open sql,conn,1,3
do while not rs.eof
%>
"><%=rs("SortName")%>
<%rs.movenext
loop
rs.close
set rs = nothing%>
精品推荐 / RECOMMEND PRODUCT
<%set rs = server.CreateObject("adodb.recordset")
sql = "select top 12 * from pecker_Products where ViewFlag and CommendFlag order by id desc"
rs.open sql,conn,1,3
do while not rs.eof
%>
<%set rs = server.CreateObject("adodb.recordset")
sql = "select top 6 * from pecker_News where ViewFlag order by id desc"
rs.open sql,conn,1,3
do while not rs.eof
%>