<%set rs_1=server.CreateObject("adodb.recordset") rs_1.open"select * from db_product where protj=true order by hit desc",conn,1,1 if rs_1.recordcount=0 then response.write"暂无产品" response.end else while not rs_1.eof%> <%rs_1.movenext wend rs_1.close set rs_1=nothing end if%>