jingpininfo.asp

电子商务购物系统

                      <%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,huiyuanjia from shop_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%" class="table-shangxia" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="23" bgcolor="f1f1f1">　精品推荐</td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <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 class="table-xia" height="22"> 
            <%
		  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>

      </table>
    </td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
                      <%end if
rs.close
set rs=nothing%>