sold.asp

电子商务网络购物系统

            <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" align="center">
              <tr> 
                <td height="35" style="PADDING-LEFT: 30px; PADDING-TOP: 4px" background="images/bg11.gif"><b><FONT color=#666699>销售排行</FONT></b></td>
              </tr>
              <%
			 set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 10 id,name,solded from product order by solded desc",conn,1,1
			  if rs.eof and rs.bof then
			  response.write "对不起，请您先到程序后台添加商品。"
			  response.End()
			  else
			  i=0
			  do while not rs.eof%>
              <TR BGCOLOR=<%=bgclr3%>>
                <TD background="images/bg12.gif" height="16"> 
                  <%response.write "&nbsp;·<a href=product.asp?id="&rs("id")&" target=_blank title=此商品已成功销售"&rs("solded")&"次>"
				if len(trim(rs("name")))>20 then
				response.write left(trim(rs("name")),18)&"..."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
                </TD>
              </TR>
              <%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing
			  end if%>
              <TR> 
                <TD background="images/bg12.gif" height="16" ALIGN="right"> <A HREF="sold.asp">更多排行&gt;&gt;&gt;</A>&nbsp;&nbsp;</TD>
              </TR>
              <tr>
                <td height="12" background="images/bg13.gif"></td>
              </tr>
            </TABLE>