<%
Set rzsl = Server.CreateObject("ADODB.Recordset")
sqlsl="select top 9 ID,Product_Id,Title,DefaultPicUrl from Product where Elite='"& 1 &"' order by UpdateTime asc"
rzsl.open sqlsl,conn,1,1
do while not rzsl.eof
%>
<%
rzsl.movenext
loop
rzsl.close
set rzsl=nothing
%>