<%
Const MaxTop = 10
Dim rstTop,SqlTop
SqlTop = "Select Top "&MaxTop&" * From product Where down > 0 Order By down Desc"
Set rsTop = Conn.Execute(SqlTop)
%>
 |
产品资料下载排行榜 |
| 产 品 名 |
下载次数 |
<%Do While Not rsTop.Eof%>
| 「<%=rsTop("name")%>」 |
<%=rsTop("down")%> |
<%
rsTop.MoveNext
Loop
rsTop.Close
Set rsTop = nothing
%>
|
|
|
|
|