> 10大热门关键字 <% set rs=server.CreateObject("adodb.recordset") rs.open "select top 10 keyname,keyorder from keyname order by keyorder desc",conn,1,1 if rs.eof and rs.bof then response.write "" else i=0 do while not rs.eof%> <%i=i+1 if i>=10 then exit do rs.movenext loop end if rs.close set rs=nothing %> 还没有进行过任何搜索 <%response.write "" if len(trim(rs("keyname")))>10 then response.write left(trim(rs("keyname")),8)&"..." else response.write trim(rs("keyname")) end if response.write "..."&rs("keyorder")&"次" %>