| <% Set rs = Server.CreateObject(\ '设置SQL语句，查询最新添加的4个商品，读取到记录集rs中 sql = \ Set rs = Conn.Execute(sql) '如果没有找到商品，则显示提示信息 If rs.EOF Then %>
| <% End If '否则使用循环语句，依次显示商品信息 Do While Not rs.EOF %>
| '显示商品图片 If isNull(rs(\%> Else %> | <% End If '依次显示商品详细信息 Do While Not rs.EOF |