newbooks.asp

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

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