<%
set rs=server.createobject("adodb.recordset")
exec = "select top 8 a.* from shop as a right join shop_fl as b on a.ssfl = b.id where a.homeshow = 1 And (b.id = 2 or b.sid = 2) order by a.px_id asc,a.id desc"
Set rs = conn.Execute(exec)
if rs.eof then
response.Write " 暂无产品!"
Else
do while not rs.eof
%>
<%
rs.movenext
loop
end if
%>