recommend.asp

电子商务网络购物系统

            <TABLE WIDTH="100%" ALIGN="center" BORDER="0" CELLSPACING="0" CELLPADDING="0">
              <tr> 
             <td height="35" style="PADDING-LEFT: 30px; PADDING-TOP: 4px" background="images/bg14.gif"><b><FONT color=#666699>精品推荐</FONT></b></td>
              </tr>
              <TR><TD background="images/bg15.gif" HEIGHT="22">
                             <%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 id,name,price2 from product where recommend=1 order by adddate desc",conn,1,1
dim icount
icount=rs.recordcount
if rs.eof and rs.bof then
response.write "<center>无推荐商品</center>"
else

		  i=0
		  do while not rs.eof
		  response.write "&nbsp;·<a href=product.asp?id="&rs("id")&" target=_blank>"
		  if len(trim(rs("name")))>12 then
		  response.write left(trim(rs("name")),10)&"..."
		  else
		  response.write trim(rs("name"))
		  end if
		  response.write "</a>&nbsp;<font color=#FF6600>"&rs("price2")&"元</font><br>"
		  i=i+1
		  if i>=10 then exit do
		  rs.movenext
		  loop
end if
rs.close
set rs=nothing%>
                </TD>
              </TR>
			   <TR> 
          <TD background="images/bg15.gif" height="16" ALIGN="right"> <A HREF="recommend.asp">更多推荐&gt;&gt;&gt;</A>&nbsp;&nbsp;</TD>
              </TR>
			 <tr><td height="12" background="images/bg16.gif"></td></tr>
            </TABLE>