key.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

            <TABLE WIDTH="175" BORDER="0" CELLSPACING="0" CELLPADDING="0" align="center">
              <tr> 
                <td height="35" style="PADDING-LEFT: 30px; PADDING-TOP: 4px" background="images/bg11.gif"><b><FONT color=#666699>10大热门关键字</FONT></b></td>
              </tr>
              <%
			 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 BGCOLOR=<%=bgclr3%>>
                <TD background="images/bg12.gif" height="16"> 
                  <%response.write "&nbsp;·<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>
              <%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  end if
			  rs.close
			  set rs=nothing
			  %>
              <tr>
                <td height="12" background="images/bg13.gif"></td>
              </tr>
            </TABLE>