index_sellrank.asp

来自「asp的网上卖东西的..看看还可以的吧」· ASP 代码 · 共 76 行

      <TABLE cellSpacing=0 cellPadding=0 width=185 border=0>
        <TBODY>
          <TR>
            <TD>
              <TABLE cellSpacing=1 cellPadding=5 width=185 
                        bgColor=#d5d5d5 border=0>
                <TBODY>
                  <TR>
                    <TD bgColor=#fafafa>
                      <TABLE class=sub_basic cellSpacing=0 cellPadding=0 
                              width=173 border=0>
                        <TBODY>
                          <TR>
                            <TD>
                              <TABLE class=sub_basic cellSpacing=0 
                                cellPadding=0 width=173 border=0>
                                <TBODY>
                                  <TR>
                                    <TD width=22><B><IMG height=16 
                                src="images/sub_gesi_icon.gif" width=17 
                                align=absMiddle> </B></TD>
                                    <TD class=title_01 height=24>最新销售排行TOP10</TD>
                                    <TD vAlign=bottom align=right width=30 
                                height=24>&nbsp;</TD>
                                  </TR>
                                </TBODY>
                            </TABLE></TD>
                          </TR>
                          <TR>
                            <TD><IMG height=2 
                                src="images/mydata_left_sunimg.gif" 
                                width=173></TD>
                          </TR>
                          <TR>
                            <TD height=5></TD>
                          </TR>
                          <TR>
                            <TD align=middle>
                              <TABLE class=sub_basic cellSpacing=0 
                                cellPadding=0 width=167 border=0>
                                <TBODY>
								<%set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 10 * from BJX_goods order by chengjiaocount desc",conn,1,1%>
	  <%i=0
do while not rs.eof%>
								
                                  <TR>
                                    <TD width=8><IMG height=5 
                                src="images/sub_catleft_bullet.gif" width=3 
                                align=absMiddle></TD>
                                    <TD><%response.write "<a href=goodsview.asp?bjxGid="&rs("bookid")&"  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%>
                                </TBODY>
                            </TABLE></TD>
                          </TR>
                        </TBODY>
                    </TABLE></TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
        </TBODY>
    </TABLE>