rank1.asp

来自「酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~」· ASP 代码 · 共 33 行

<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,liulancount from shop_books order by liulancount desc",conn,1,1%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" >
  <tr> 
    <td height="41" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
      <table width="100%" border="0" align="center" cellpadding="3" cellspacing="2">
        <%i=0
do while not rs.eof%>
        <tr> 
          <td height="22"><img src="images/ring01.gif" width="9" height="9"> 
            <%response.write "<a href=list.asp?id="&rs("bookid")&" target=_blank title=此商品已被浏览过"&rs("liulancount")&"次>"
				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>=6 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
      </table>
      <%set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 10 * from shop_books order by chengjiaocount desc",conn,1,1%>
    </td>
  </tr>
</table>