
		
        <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
          <TBODY>
             <TR> 
              <TD vAlign=center height=20>热门标签：
		  <%
			 set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 10 keyname,keyorder,keynum from keyname order by keynum desc",conn,1,1
			  if rs.eof and rs.bof then
			 
			  else
			  i=0
			  do while not rs.eof%>
			 
				  <%response.write "<a href=research.asp?action=1&searchkey="&rs("keyname")&"&jiage=0 target=_blank title=此关键字被搜索过"&rs("keyorder")&"次>"
				if len(trim(rs("keyname")))>5 then
				response.write left(trim(rs("keyname")),5)&"..."
				else
				response.write trim(rs("keyname"))
				end if
				response.write "</a>&nbsp;"
				%>
			
			 <%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  end if
			  rs.close
			  set rs=nothing
			  %>
           </TD>
            </TR>
          </TBODY>
        </TABLE>