www.gusucode.com > ASP+ACCESS音乐网站建设设计(源代码+论文+开题报告+答辩PPT+外 > ASP+ACCESS音乐网站建设设计(源代码+论文+开题报告+答辩PPT+外文翻译)\音乐网站设计\gw_sort.asp

    <% set rs=server.createobject("adodb.recordset") 
           sql="select top 15 * from yougou order by click desc"
		  rs.open sql,conn,1,1 %>

<% dim x,y
y=rs.recordcount
if y>15 then
y=15
end if
for x=1 to y %>
<LI><a href=# onClick=windowOpen1('ygxq.asp?id=<%=rs("id")%>') title=评价:★★★★★><%=rs("zjmc")%></A>&nbsp;[<%=rs("click")%>次]</LI>

<% rs.movenext
  next                                                                                                            
  rs.close  %>