tejiarank.asp

来自「采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 」· ASP 代码 · 共 23 行

<%set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 10 * from shop_books where tejiabook=1 order by adddate desc",conn,1,1%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%i=0
do while not rs.eof%>
<tr><td height="24" class="table-you"  STYLE='PADDING-LEFT: 18px'><img src="images/bar2.gif" width="10" height="10">
<%response.write "<a href=list.asp?id="&rs("bookid")&"  title=此商品已成功销售"&rs("chengjiaocount")&"次>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),11)&".."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				%>
</td>
</tr>
<%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
</table>