b2b_buyzk.asp

来自「小型网上购物网站」· ASP 代码 · 共 41 行

<TABLE align="center" cellSpacing=0 cellPadding=0 width=98% border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top>
	   <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
 <%

			i=0
			rs.open "select top 11 id,discount,name from product where stock >= 0 order by discount asc",conn,1,1
			if rs.eof and rs.bof then
		   rs.close
			response.write "<br>目前没有特价商品"
			end if
			do while not rs.eof
			i=i+1
			%>
              <TR>
                <TD height="20"> 
				<%
			if len(trim(rs("name")))>10 then
			response.write "&nbsp;·<a href=b2b_cpinfo.asp?id="&rs("id")&" target=_blank>"&left(trim(rs("name")),10)&"...</a>&nbsp;<font color=#FF6600>"&rs("discount")*100&"%</font><br>"
			else
			response.write "&nbsp;·<a href=b2b_cpinfo.asp?id="&rs("id")&" target=_blank>"&trim(rs("name"))&"</a>&nbsp;<font color=#FF6600>"&rs("discount")*100&"%</font><br>"
			end if 
			%>
			  </TD>
              </TR>
			  <%
			if i>=10 then exit do
			rs.movenext
			loop
			rs.close

			%>
          </TBODY>
      </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>