newselled.asp

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

<table width="155" cellspacing="0" cellpadding="0">
 <%Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select top 10 * from OrderList where id in (select max(id) from OrderList group by TradeName) order by id desc"
 rs.open sql,conn,1,1
 if not rs.eof then
	For i=1 to rs.Recordcount
		Response.Write("<tr><td height=20 background=images/dp_bg3.gif>&nbsp;&nbsp;&nbsp;<a href=Product.asp?id="&rs("id")&">")
			if len(trim(rs("TradeName")))>11 then
				response.write(""&left(trim(rs("TradeName")),9)&"..."&"")
			else
				Response.Write(""&rs("TradeName")&"")
			end if
		Response.Write("</a></td></tr>")
		rs.movenext
	Next
end if
rs.close
set rs=nothing%>
</table>