28,409
社区成员




<%
Set rs= Server.CreateObject("ADODB.recordset")
rs.open "Select top 8 * from 产品 where 类型=1 order by 点击 desc",lj,1,1
i=0
Do until rs.eof
i=i+1
%>
<tr><a href="MoNi-open.asp?id=<%Response.Write(rs("id"))%>">
<td height="25" bordercolor="#FFFFFF" bgcolor="#E2E2E2" class="ZT-hei" onmouseover="this.style.color='#FFFFFF';this.style.backgroundColor='#999999';" onmouseout="this.style.color='#000000';this.style.backgroundColor='#E2E2E2';"> <img src="images/top<%=i%>.gif"> <%Response.Write(rs("名称"))%></td>
</a></tr>
<%
Rs.movenext
Loop
rs.close
set rs=nothing
%>