tonglei_market.asp

asp商城之王

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
   <td width=86><img src="images/main/blph.gif" width="178" height="34"></td>
  </tr> <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 8 * from sh_chanpin where anclassid="&anclassid&" order by chengjiaocount desc", conn,1,1
if rs.eof and rs.bof then
			  response.write "<TR><TD height=20 bgcolor=#FFFFFF align=center>暂无此类商品</td></tr>"
			  else
			  i=0 
			  do while not rs.eof 
%>
     <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
			  end if%>
    <td height="24" align="right"><a href="top.asp"><font color="#FF3300">更多&gt;&gt;&gt;</font></a></td>
  </tr>
</table>