
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 10 shop_books.bookname,shop_books.bookid  from shop_action,shop_books where shop_books.bookid=shop_action.bookid order by shop_action.bookid desc",conn,1,1%>
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr> 
    <td height="14" bgcolor="EDECEC"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td width=5>&nbsp;</td>
          <td width=104> 
            <div align="center"></div>
            ×îÐÂ¶©¹ºÉÌÆ·</td>
          <td width=59 align="right">&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="2"></td>
        </tr>
        <tr> 
          <td height="10"> </td>
        </tr>
        <%if not rs.bof then
		idfirst=rs("bookid")
		do while not rs.eof
		if idfirst<>idnext then
		%>
        <tr> 
          <td height="22"> ¨‘ 
            <%
		  response.write "<a href=list.asp?id="&rs("bookid")&" target=_blank >"
		 if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),10)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				idnext=rs("bookid")
				%>
          </td>
        </tr>
        <tr> 
          <td height="1" background="images/bj_x1.gif"></td>
        </tr>
        <%end if
			  rs.movenext
			  if not rs.eof then
			  idfirst=rs("bookid")
			  end if
			  loop
			  end if
			  rs.close
			  set rs=nothing
			  %>
        <tr> 
          <td height="1" ></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="10">
        <tr> 
          <td></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
