key.asp

时代商城购物系统功能

<TABLE align="center" cellSpacing=0 cellPadding=0 width=100% border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top>
	   <TABLE height=5 cellSpacing=1 cellPadding=0 width=100% border=0>
          <TBODY>
            <TR> 
              <TD bgColor=#ff93c9></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE height=20 cellSpacing=0 cellPadding=0 width=100% border=0>
          <TBODY>
            <TR> 
			  <td align="center"><font color="#ff6600">10大热门关键字</font></td>
            </TR>
			<tr><td colspan="3" background=images/bg_04.gif border=0></td></tr>
          </TBODY>
			 </TABLE>
		
        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
		  <%
			 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 "<tr><td align=center background=images/bg12.gif>还没有进行过任何搜索</td></tr>"
			  else
			  i=0
			  do while not rs.eof%>
            <TR> 
              <TD vAlign=center height=20>
			  <IMG height=11 src="images/images0112.gif" 
                  width=15 align=absMiddle border=0>
				  <%response.write "<a href=research.asp?action=1&searchkey="&rs("keyname")&" target=_blank title=此关键字被搜索过"&rs("keyorder")&"次>"
				if len(trim(rs("keyname")))>10 then
				response.write left(trim(rs("keyname")),8)&"..."
				else
				response.write trim(rs("keyname"))
				end if
				response.write "</a><font color=#FF6600>..."&rs("keyorder")&"次</font>"
				%></TD>
            </TR>
			<tr><td background=images/bg_04.gif border=0></td></tr>
			 <%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  end if
			  rs.close
			  set rs=nothing
			  %>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>