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 %> 商品名称：<%=rs(\ 商品价格：<%=rs(\元 浏览次数：<%=rs(\
End If %>
商品名称：<%=rs(\
商品价格：<%=rs(\元 浏览次数：<%=rs(\
详细资料
'如果没有查找到商品，则显示提示信息 If rs.EOF Then %>
'依次显示商品详细信息 Do While Not rs.EOF