newbooks01.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 35 行

<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <%Set rs= server.CreateObject("ADODB.Recordset")
	  sql="select top 8 * from Merchandise where Display=0 order by Date desc"
	  rs.open sql,conn,0,1
	  if rs.eof then
	  	Response.Write("<br><div align=center>暂无商品</div><br>")
	  else
		i=1
		do while not rs.eof%>
    <td width="135" align="center" valign="top">
	 <table width="135" border="0" cellspacing="0" cellpadding="0">
      <tr> 
          <td background="images/SPic_bg.gif" width="135" height="100" align="center" valign="middle" border="0"><a onfocus=blur() href="Product.asp?id=<%=rs("id")%>"><img src="<%=rs("SmallPic")%>" width="75" height="75" border="0"></a></td>
      </tr>
      <tr>
       <td align="center" height="22"><a onfocus=blur() href="Product.asp?id=<%=rs("id")%>">
	   <%if len(trim(rs("TradeName")))>11 then
		   response.write(""&left(trim(rs("TradeName")),10)&".."&"")
	   else
		   Response.Write(""&rs("TradeName")&"")
	   end if%></a></td>
     </tr>
   </table>
  </td><%if i mod 2 = 0 then%>
 </tr>
<%end if
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
end if
%>
</table>