<% set rs=server.CreateObject("adodb.recordset") rs.open "select top 10 id,name,solded from product where sortsid="&sortsid&" order by solded desc",conn,1,1 if rs.eof and rs.bof then response.write " <% i=i+1 if i>=10 then exit do rs.movenext loop rs.close set rs=nothing end if%>

<% = strsorts %>分类销售排行

暂无此类商品" else i=0 do while not rs.eof %>

<% response.write " ·" if len(trim(rs("name")))>20 then response.write left(trim(rs("name")),18)&"..." else response.write trim(rs("name")) end if response.write " " %>