key.asp

来自「上海购物网设计的购物系统是基于WEB开发的大型购物系统。 它以构建电子商务网」· ASP 代码 · 共 38 行

<table width="175" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
    <td><TABLE WIDTH="175" height="100%" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="0">
        <%
			 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%>
        <TD 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"></td>
        </tr>
      </TABLE></td>
  </tr>
</table>