recommend.asp

来自「上海购物网设计的购物系统是基于WEB开发的大型购物系统。 它以构建电子商务网」· ASP 代码 · 共 45 行

<table width="175" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td bgcolor="#CCCCCC"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td height="24"><img src="images/skin/default/excellent_title.gif" width="164" height="13"></td>
        </tr>
        <tr> 
          <td height="22"> 
            <%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 id,name,price2 from product where recommend=1 and isfb=0 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 height="16" align="right"> <a href="recommend.asp">更多推荐&gt;&gt;&gt;</a>&nbsp;&nbsp;</td>
        </tr>
        <tr> 
          <td height="12"></td>
        </tr>
      </table></td>
  </tr>
</table>