temp.asp

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

<TABLE WIDTH="256" height="98" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="0">
  <% 	set rs=server.CreateObject("adodb.recordset")
		  rs.open "select id,prename,name,company,mark,intro,introduce,predate,productdate,pretype,type,viewnum,price,price1,price2,other,grade,discount,pic from product where recommend=1 order by adddate desc ",conn,1,1
		  
				if err.number<>0 then
				response.write "<p align='center'>数据库中暂时无数据</p>"
				end if
				
  				if rs.eof And rs.bof then
       				Response.Write "<p align='center'> 对不起，目前还没有这种商品！</p>"
   				else
	  			i=0
	do while not rs.eof%>
  <tr> 
    <td colspan="2" background="images/skin/default/1.gif" border="0"></td>
  </tr>
  <TR> 
    <td width="1" border="0"></td>
    <TD VALIGN=middle width=205> <TABLE WIDTH="100%" align="center" CELLPADDING=0 CELLSPACING=0>
        <TR> 
          <TD width="120" 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="6" VALIGN=middle>&nbsp;</TD>
          <TD width="107" VALIGN=middle>市场价：<%=rs("price1")%>元<BR>
            会员价：<FONT COLOR=#FF6600><%=rs("price2")%>元</FONT><br>
            折　扣：<%=rs("discount")*100&"%"%></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>