<%
Sql="Select Top 5 * From Product Order By UpdateTime Desc"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
%>
|
咖啡罐 |
全自动照相机 |
<%
Rs.MoveNext
Wend%>
<%
For I=1 To Rs.PageSize
If Rs.Eof Then
Exit For
End IF
%>
|
随身听 |
无线扫地机 |
<%
Rs.MoveNext
Next
%>
<%
Set Rs=Conn.ExeCute("Select * From Product Where Id="&Request("Id"))
If Not(Rs.Eof And Rs.Bof) Then
%>
|
超声波洗涤器 |
电控阀门 |
|
雪茄盒 |
烟纸盒 |
|
|
|
|
|
上一页
|
<%
End If
%>
|
