56770_cx.asp

来自「本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习」· ASP 代码 · 共 42 行

<TABLE border=0 cellPadding=0 cellSpacing=0 width=180>
<tr>
<td height="23">
<table cellspacing=0 cellpadding=0 width=180 bgcolor=#CC0000>
<tr>
<td width=5>&nbsp; </td>
<td style="padding-left:10px;padding-top:2px" width="133" height="23"><%=request("sort_name")%>&nbsp;特价商品&nbsp; TOP 6</td>
</tr>
</table>
</td>
</tr>
<td bgcolor="#FFC7C7" height="125">
<table width="180" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFC7C7">
<tr>
<%set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from 56770_product where cx=true order by id DESC"
rs.open sql, conn, 1, 1
if rs.eof then
        response.write "目前没有任何特惠商品"
else
        do while not rs.eof
%>
<tr>
<td><img src="images/arrow.gif"><a href="showproduct.ASP?id=<%=rs("id")%>" target="_blank" class="a2">    <% if len(rs("product_name"))>9 then%>
<%=left(rs("product_name"), 8)%>..
<%else%>
<%=rs("product_name")%>
<%end if%>
￥<fontcolor="red"><%=rs("cprice")%></font></a>
</td>
</TR>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>
</td>
</tr>
</table>