<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img src="images/main/rmsp.gif" width="178" height="34"></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 10 bookid,bookname,liulancount from sh_chanpin order by liulancount desc",conn,1,1%>
   <tr> 
    <td> 
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <%i=0 
				do while not rs.eof%>
        <tr> 
          <td height="24" background="images/main/dp_bg2.gif"> 
          <%response.write "　　<a href=list.asp?id="&rs("bookid")&" title=此商品已被瀏覽過"&rs("liulancount")&"次>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),11)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				%></td>
        </tr>
        <%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="10">
        <tr>
          <td width="89%" align="right"><a href="top.asp"></a><a href="top.asp"><font color="#FF3300">更多&gt;&gt;&gt;</font></a></td>
          <td width="20%" align="right">&nbsp;</td>
        </tr>
		 <tr> 
          <td height="6" colspan="2" ></td>
        </tr>
      </table>
    </td>
  </tr>
</table>