cheaply.asp

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

<table width="225" cellspacing="0" cellpadding="0">
 <%Set rs1 = Server.CreateObject("ADODB.Recordset")
 sql="select top 8 * from Merchandise where Display=0 and Cheap=1 order by Date DESC"
 rs1.open sql,conn,1,1
 if not rs1.eof then
	For i=1 to rs1.Recordcount
		Response.Write("<tr><td height=18 width=225>&nbsp;<img src=Images/sign_arrow.gif>&nbsp;<a onfocus=blur() href=Product.asp?id="&rs1("id")&">")
			if len(trim(rs1("TradeName")))>16 then
				response.write(""&left(trim(rs1("TradeName")),15)&"..."&"")
			else
				Response.Write(""&rs1("TradeName")&"")
			end if
		Response.Write("</a></td></tr>")
		Response.Write("<tr><td><img src=Images/dot_line2.gif></td></tr>")
		rs1.movenext
	Next
end if
rs1.close
set rs1=nothing%>
</table>