info_market.asp

来自「这是一个很小的电子商务网站」· ASP 代码 · 共 44 行

<%
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select top 10 * from sh_books order by chengjiaocount desc",conn,1,1
%>
<table width="18%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr> 
   <td width=86><img src="images/main/xsph.gif" width="178" height="34"></td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
	<%
		i=0 
		do while not rs.eof
	%>
  <tr> 
    <td height="24" background="images/main/dp_bg3.gif"> 
      <%
			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")),10)&"..."
			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
		%>
  <tr>
    <td height="24" align="right"><a href="top.asp"><font color="#FF3300">更多&gt;&gt;&gt;</font></a></td>
  </tr>
</table>