sort_center.asp

图书管理系统的所有程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="640"  border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFBF00" bordercolordark="#FFFFFF"> 
  <tr> 
    <td width="5%" rowspan="2" bgcolor="#FFFFFF"><img src="images/sortbook.gif" ></td> 
    <td width="95%" height="24" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFCC00', endColorStr='#FFFFFF', gradientType='1')">&nbsp;</td> 
  </tr> 
  <tr> 
    <td height="22" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#55BFFF', gradientType='1')"><div align="center">热销排行</div></td> 
  </tr> 
  <tr bgcolor="#FFFFFF"> 
    <td colspan="2"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> 
		 <%Set rs=Server.CreateObject("ADODB.RecordSet")
		 rs.open "select top 10 sum(num) as sumn,tb_bookinfo.barcode,"&_
		 "tb_bookinfo.bookname,tb_bookinfo.author,tb_bookinfo.price,"&_
		 "tb_bookinfo.bookconcern from tb_selldetail inner join tb_bookinfo"&_
		 " on tb_selldetail.barcode=tb_bookinfo.barcode group by tb_bookinfo.barcode,"&_
		 "tb_bookinfo.bookname,tb_bookinfo.author,tb_bookinfo.price,"&_
		 "tb_bookinfo.bookconcern order by sumn desc",conn,1,3
		 if rs.eof then%> 
        <tr> 
          <td><div align="center">暂时没有图书销售</div></td> 
        </tr> 
        <%else%>
        <tr> 
          <td align="center" bgcolor="#FFFFFF" style="padding:5px"> <table width="100%" border="1" cellpadding="4" cellspacing="1" bordercolor="#FFFFEC" bordercolordark="#FFCC00"> 
              <tr> 
                <td width="7%"><div align="center">名 次</div></td> 
                <td width="37%"><div align="center">书 名</div></td> 
                <td width="21%"><div align="center">条形码</div></td> 
                <td width="22%"><div align="center">销售数量</div></td> 
                <td width="13%" align="center">放入购物车</td> 
              </tr> 
              <%
			  i=1
			  do while not rs.eof
			  %> 
              <tr bgcolor="#FFFFFF"> 
                <td align="center"><%=i%></td> 
                <td bgcolor="#FFFFFF"><a href="#" onClick="window.open('readbook.asp?bookID=<%=rs("barcode")%>','','width=600,height=300');"><%=rs("BookName")%></a></td> 
                <td bgcolor="#FFFFFF" align="center"><%=rs("barcode")%></td> 
                <td bgcolor="#FFFFFF" align="center"><%=rs("sumn")%></td> 
                <td bgcolor="#FFFFFF" align="center"><img src="images/add.gif" width="18" height="18" alt="我要买了" onClick="return newwin('buycar_add.asp?bookID=<%=rs("barcode")%>');"></td> 
              </tr> 
              <%
			  rs.movenext
			  i=i+1
			  loop
			  %> 
            </table></td> 
        </tr> 
        <%
	  end if
	  rs.close
	  set rs=nothing
	  %> 
      </table></td>
  </tr> 
</table>