10discount.asp

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

<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
         <%set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 6 id,name,discount,price1,price2,pic from product order by discount asc",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%" align="center">
                    <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("discount")*100&"%"%><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>
                  </TABLE></TD>
                <td width="1" background="images/ver.gif" border="0"></td>
                <TD VALIGN=middle width=205> 
				<TABLE WIDTH="100%" align="center" 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("discount")*100&"%"%><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>
                    </TR>
                  </TABLE></TD>
              </TR>
              <%i=i+1
			  if i>=5 then exit do
			  rs.movenext
			  loop
			   end if
			  rs.close
			  set rs=nothing
				%>
            </TABLE>