mosthot.asp

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

<table width="165" border="0" align="center" cellpadding="0" cellspacing="0">
  <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 1 id,name,viewnum,pic,introduce,price1,price2 from product where isfb=0 order by viewnum desc",conn,1,1
		  if rs.eof and rs.bof then
			  response.write "<tr><td>对不起，请您先到商城后台添加商品。</td></tr>"
			  else
			 %>
  <tr> 
    <td height="24" colspan="2" valign="middle"><img src="images/skin/default/gzz_title.gif" width="165" height="12"></td>
  </tr>
  <tr> 
    <td width="23%" height="60" valign="middle"> 
      <div align="center"><a  href=product.asp?id=<%=rs("id")%> target=_blank> 
        </a><strong><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="60" height="60"></a></strong> </div></td>
    <td> 
      <% response.write "<a href=product.asp?id="&rs("id")&" target=_blank title=此商品被浏览"&rs("viewnum")&"次>"
				if len(trim(rs("introduce")))>30 then
				response.write left(trim(rs("introduce")),28)&"..."
				else
				response.write trim(rs("introduce"))
				end if
				response.write "</a>"
			  %>
      <br>
      会员价：<font color=#FF6600><%=rs("price2")%></font>元 <br>
      <% end if
						   rs.close
			  set rs=nothing %>
    </td>
  </tr>
</table>