4new.asp

时代商城购物系统功能

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<%	set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 4 id,name,pic,price1,price2,adddate from product order by adddate desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "<table CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=""100%""><tr><td align=center>对不起，请您先到后台添加商品！</td></tr></table>"
		  else
%> 
            <TABLE cellSpacing=0 cellPadding=0 width=564 align=center border=0>
              <TBODY>
				<tr><td colSpan=8 height=30><img src="images/newarrivals.gif" border="0" usemap="#Map"></td></tr>
              		 <TR>
                <TD background=images/b4.gif colSpan=8 height=1></TD>
			  		</TR>
              <TR>
			  <% dim j
			  j=0
			  do while not rs.eof %>
                <TD width=140 border="0" align=center>
                  <TABLE cellSpacing=0 cellPadding=0 width="140" border=0>
                  <TBODY>
				  <tr><td height="80" colspan="2" align="center"> 
				  <A  HREF=product.asp?id=<%=rs("id")%> TARGET=_blank>
				  <IMG ALT=上市日期<%=trim(rs("adddate"))%> SRC=<%if trim(rs("pic"))="" then %>
				  images/emptybook.gif
				  <% else %>
				  <% = trim(rs("pic")) %>
				  <% end if%> BORDER=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></A><hr width="20%"></td></tr>
                    <TR> 
                      <TD colSpan=2>&nbsp;<FONT COLOR=#FF6600><%=trim(rs("name"))%></FONT></TD>
                    </TR>
                    <TR height=20> 
                      <TD width="40%" align=right>市场价：</TD>
                      <TD width="60%"><%=trim(rs("price1"))%>&nbsp;元</TD>
                    </TR>
                    <TR height=20> 
                      <TD align=right>会员价：</TD>
                      <TD><FONT COLOR=#FF6600><%=trim(rs("price2"))%></FONT>&nbsp;元</TD>
                    </TR>
                    <TR height=20> 
                      <TD align=right>节　省：</TD>
                      <TD><%=rs("price1")-rs("price2")%>&nbsp;元</TD>
                    </TR>
                    <TR>
                      <TD align="right"><a href=# onClick="javascript:window.open('cart.asp?id=<% = rs("id") %>','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/cart.gif width=50 height=19 align=absmiddle border=0></a></TD>
                      <TD align="center"><a href=# onClick="javascript:window.open('addto.asp?id=<% = rs("id") %>&action=add','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/addto.gif width=50 height=19 align=absmiddle border=0></a></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
                <TD width=1 background=images/b3.gif></TD>
				<% rs.movenext 
				j=j+1
				if rs.eof then 
		  exit do
	  end if 
	if j>=4 then exit do
	  loop 
	  rs.close
	  set rs= nothing %>
                </TR></TBODY></TABLE>
		<% end if %>
<map name="Map">
  <area shape="rect" coords="43,3,126,22" href="newarrivals.asp" target="_blank" alt="新品上市排行">
  <area shape="rect" coords="504,5,550,21" href="newarrivals.asp" target="_blank" alt="新品上市排行">
</map>