catnew.asp

来自「一个电子商务网站完整代码,在.net平台下开发」· ASP 代码 · 共 35 行

<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="0" align="center" bgcolor="<% = bgclr1 %>">
  <tr> <td>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" align="center" >
  <tr> 
   <td height="20" bgcolor="<% = bgclr1 %>" align="center"><b><FONT color=#FFFFFF><% = strcat %>分类新品上架</FONT></b></td>
              </tr>
              <%
			 set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 10 id,name,viewnum from product where categoryid="&catid&" order by adddate desc",conn,1,1
			  if rs.eof and rs.bof then
			  response.write "<TR><TD height=20 bgcolor=#FFFFFF align=center>暂无此类商品</td></tr>"
			  else
			  i=0 
			  do while not rs.eof %>
			<TR>
                <TD height="20" bgcolor="#FFFFFF"> 
			<%  response.write "&nbsp;·<a href=product.asp?id="&rs("id")&" target=_blank title=此商品已被浏览"&rs("viewnum")&"次>"
				if len(trim(rs("name")))>20 then
				response.write left(trim(rs("name")),18)&"..."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a><br>" %>
				</TD>
              </TR>
				<%
				i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop 
			  rs.close
			  set rs=nothing
			  end if%>
            </TABLE>	</TD>
              </TR></TABLE>