<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,liulancount from shop_books order by liulancount desc",conn,1,1%> <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center"> 
<tr> <td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> <%set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 10 * from shop_books order by chengjiaocount desc",conn,1,1%> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" ALIGN="CENTER"> 
<%i=0
do while not rs.eof%> <tr> <td height="22"> <IMG 
                  src="images/icon_jia.gif" width="15" height="9"> <%response.write "<a href=list.asp?id="&rs("bookid")&" target=_blank title=此商品已成功销售"&rs("chengjiaocount")&"次>"
				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></td></tr> </table>
