《管理信息系统》课程设计指导书

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

'依次显示商品详细信息 Do While Not rs.EOF