info_good.asp

一个ASP做的购物车

<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,huiyuanjia from wq_books where bestbook=1 order by adddate desc",conn,1,1
dim icount
icount=rs.recordcount
if rs.eof and rs.bof then
response.write "<center>&nbsp;</center>"
else%>
                      
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr>
    <td height="22" bgcolor="#FFE7B3"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td width=5>&nbsp;</td>
          <td> 
            <div align="center"></div>
             
            &nbsp;精品推荐</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
      <table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="2"></td>
        </tr>
        <tr> 
          <td height="20"> 
            <div align="center"> </div>
          </td>
        </tr>
        <tr> 
          <td> 
            <%
		  i=0
		  do while not rs.eof
		  response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"
		  if len(trim(rs("bookname")))>18 then
		  response.write left(trim(rs("bookname")),18)&"..."
		  else
		  response.write trim(rs("bookname"))
		  end if
		  response.write "</a>&nbsp;&nbsp;<font color=#FF6600>"&formatnumber(rs("huiyuanjia"),2)&"元</font><br>"
		  i=i+1
		  if i>=5 then exit do
		  rs.movenext
		  loop
		  		  %>
          </td>
        </tr>
        <tr> 
          <td height="1" background="images/bj_x1.gif"></td>
        </tr>
        <tr> 
          <td height="1" ></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
                      <%end if
rs.close
set rs=nothing%>