hotshops.asp

21世纪人才www.51zy.net 网站源码

<div id="hotshops">
			<h1>明星店铺</h1>
			<!-- 热卖排行查询数据库开始 -->
			<%set rs=server.CreateObject("adodb.recordset")
			rs.open "select Top 10 * from shjia where flag=2 order by adddate desc",conn,1,1%><ul>
			<%do while not rs.eof%>	<li><%if rs.eof then%><%else%>
      <%response.write "<a href=user/index.asp?id="&rs("shjiaid")&" target=_blank>"
				if len(trim(rs("name")))>10 then
				response.write left(trim(rs("name")),8)&".."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
      <%rs.movenext%>
      <%end if%></li>
			<%loop
			rs.close
			set rs=nothing%></ul>
			<!-- 热卖排行查询数据库结束 -->
		</div>