indexpro.asp

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

<table width="405" border="0" align="center" cellpadding="5" cellspacing="0">
  <%Set rs= server.CreateObject("ADODB.Recordset")
  sql="select top 6 * from Merchandise where Display=0 and id in (select max(id) from Merchandise group by BigId) order by id desc"
  rs.open sql,conn,0,1
  if not rs.eof then
  do while not rs.eof%>
    <tr> 
    <td width="130" height="100" align="center" valign="middle" background="images/SPic_bg.gif"><a onfocus=blur() href=Product.asp?id=<%=rs("id")%>><img src="<%=rs("SmallPic")%>" width="75" height="75" border="0"></a></td>
      <td width="275" valign="top"> <span class=MainHeader13> <a onfocus=blur() href=Product.asp?id=<%=rs("id")%>> 
        <%if len(trim(rs("TradeName")))>18 then
			response.write(""&left(trim(rs("TradeName")),17)&"..."&"")
		else
			Response.Write(""&rs("TradeName")&"")
		end if%>
        </a></span><br><%=left(rs("Brief"),40)%>...<br>
		市场价：￥<%=split(rs("Price"),"￥")(0)%>元　 
		会员价：￥<%=split(rs("Price"),"￥")(int(Grade))%>元　 <a onfocus=blur() href="AddToCart.asp?cpid=<%=rs("id")%>">		购买</a> 
      </td>
    </tr>
  <%rs.movenext
  loop
  end if
  rs.close
  set rs=nothing%>
</table>