hot.asp

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

<table width="155" cellspacing="0" cellpadding="0">
 <%conn.execute("Delete From Hot where datediff('d',Date,now())>7")
  Set rs = server.CreateObject("ADODB.Recordset")
  sql="select top 10 * from Hot"
  rs.open sql,conn,1,1
  if not rs.eof then
	do while not rs.eof
		Response.Write("<tr><td height=20 background=images/dp_bg3.gif>&nbsp;&nbsp;&nbsp;<a href=Product.asp?id="&rs("cpid")&">")
			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
	loop
end if
rs.close
set rs=nothing%>
 <tr>
</table>