10new.asp

一个电子商务网站完整代码,在.net平台下开发

<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH="100%">
<%		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 id,name,pic,price1,price2 from product 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 colspan="3" background="images/hor.gif" border="0"></td>
              </tr>
              <TR> 
                <TD  WIDTH="205">
				<TABLE CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
                    <TR> 
                      <TD width="80" align="center" VALIGN=middle height="100"> 
                  <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>
                      <TD width="125" VALIGN=middle>
					  <A HREF=product.asp?id=<%=rs("id")%> TARGET=_blank><FONT COLOR=#FF6600><%=trim(rs("name"))%></FONT></A><br>
                        市场价：<%=rs("price1") %>元<BR>
                        会员价：<FONT COLOR=#FF6600><%=rs("price2")%>元</FONT><br>
                        节　省：<%=rs("price1")-rs("price2")%>元<BR> 
						<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/cart.gif width=50 height=19 align=absmiddle border=0></a> 
						<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/addto.gif width=50 height=19 align=absmiddle border=0></a>
						<%rs.movenext%> </TD>
                    </TR>
                  </TABLE></TD>
                <td width="1" background="images/ver.gif" border="0"></td>
                <TD width="205" VALIGN=middle>
									  <% if rs.eof then

					  exit do
					  else %>
				<TABLE WIDTH="100%" CELLPADDING=0 CELLSPACING=0>
                    <TR> 
                      <TD width="80" align="center" VALIGN=middle height="100"> 
                        <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>
                      <TD width="125" VALIGN=middle>
					  <A HREF=product.asp?id=<%=rs("id")%> TARGET=_blank><FONT COLOR=#FF6600><%=trim(rs("name"))%></FONT></A><br>
                        市场价：<%=rs("price1")%>元<BR>
                        会员价：<FONT COLOR=#FF6600><%=rs("price2")%>元</FONT><br>
                        节　省：<%=rs("price1")-rs("price2")%>元<BR> 
						<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/cart.gif width=50 height=19 align=absmiddle border=0></a> 
						<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/addto.gif width=50 height=19 align=absmiddle border=0></a></TD>
                    <% end if %>
					</TR>
                  </TABLE></TD>
              </TR>
              <%i=i+1
			  if i>=5 then exit do
			  rs.movenext
			  loop
			  end if
			  rs.close
			  set rs=nothing
				%>
            </TABLE>