discount.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 37 行

            <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
              <tr> 
             <td height="35" style="PADDING-LEFT: 30px; PADDING-TOP: 4px" background="images/bg14.gif"><b><FONT color=#666699>特价商品</FONT></b></td>
              </tr>
				<tr> 
                <td background="images/bg15.gif" height="22"> 
                  <%
			set rs=server.CreateObject("adodb.recordset")
			i=0
			rs.open "select top 10 id,discount,name from product order by discount asc",conn,1,1
			if rs.eof and rs.bof then
			response.write "<br>目前没有特价商品"
			end if
			if rs.recordcount>=3 then
			rs.absoluteposition=3
			do while not rs.eof
			i=i+1
			if len(trim(rs("name")))>14 then
			response.write "&nbsp;·<a href=product.asp?id="&rs("id")&" target=_blank>"&left(trim(rs("name")),12)&"...</a>&nbsp;<font color=#FF6600>"&rs("discount")*100&"%</font><br>"
			else
			response.write "&nbsp;·<a href=product.asp?id="&rs("id")&" target=_blank>"&trim(rs("name"))&"</a>&nbsp;<font color=#FF6600>"&rs("discount")*100&"%</font><br>"
			end if
			if i>=10 then exit do
			rs.movenext
			loop
			end if
			rs.close
			set rs=nothing
			%>
                </TD>
              </TR>
			  <TR> 
                
          <TD background="images/bg15.gif" height="16" ALIGN="right"> <A HREF="discount.asp">更多特价&gt;&gt;&gt;</A>&nbsp;&nbsp;</TD>
              </TR>
<tr><td height="12" background="images/bg16.gif"></td></tr>
            </TABLE>