10new.asp

上海购物网设计的购物系统是基于WEB开发的大型购物系统。 它以构建电子商务网站为目标

<TABLE WIDTH="257" height="98" BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0>
  <%		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 10 id,name,pic,price1,price2 from product where isfb=0 and recommend=1 order by adddate desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "<tr><td align=center>对不起，请您先到后台添加商品！</td></tr>"
		  else
		  i=0
		  do while not rs.eof
		  %>
  <tr> 
   </td>
  </tr>
  <TR> 
    <td width="1" height="114" border="0"></td>
    <TD VALIGN=middle> <table width="100%" cellpadding=0 cellspacing=0>
        <tr> 
          <td width="120" height="97" rowspan="2" align="right" valign=middle> 
            <a href=product.asp?id=<%=rs("id")%> target=_blank> </a> 
            <table style="LETTER-SPACING: 1px" cellspacing=0 cellpadding=0 
            width=112 border=0>
              <tbody>
                <tr valign=top> 
                  <td style="PADDING-LEFT: 2px; PADDING-TOP: 2px" 
                background=images/skin/default/jingpin_bg.gif height=112><a  href=product.asp?id=<%=rs("id")%> target=_blank><img alt=<%=trim(rs("name"))%> src=<%if trim(rs("pic"))="" then %>
				  images/emptybook.gif
				  <% else %>
				  <% = trim(rs("pic")) %>
				<% end if%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a></td>
                </tr>
              </tbody>
            </table>
          </td>
          <td height="30" align="center" valign=middle> <a href=product.asp?id=<%=rs("id")%> target=_blank><font color=#FF6600></font></a></td>
          <td height="30" valign=bottom><a href=product.asp?id=<%=rs("id")%> target=_blank><font color=#FF6600><strong><%=trim(rs("name"))%></strong></font></a></td>
        </tr>
        <tr> 
          <td width="2" height="75" align="center" valign=middle>&nbsp;</td>
          <td width="121" valign=middle>市场价：<%=rs("price1")%>元<br>
            会员价：<font color=#FF6600><%=rs("price2")%>元</font><br>
            节　省：<%=rs("price1")-rs("price2")%>元</td>
        </tr>
      </table></TD>
  </TR>
  <%i=i+1
			  if i>=6 then exit do
			  rs.movenext
			  loop
			  end if
			  rs.close
			  set rs=nothing
				%>
</TABLE>