newpurchase.asp

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

<table width="180" cellspacing="0" cellpadding="0">
 <%Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select top 11 Id,TradeName from Purchase where State=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 href=PurchaseView.asp?id="&rs("id")&">")
			if len(trim(rs("TradeName")))>13 then
				response.write(""&left(trim(rs("TradeName")),12)&"..."&"")
			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>